Хранение информации Задание 1. носитель Заполните таблицу. Укажите для каждого примера информационный и форму представления (числовая, текстовая, графическая, звуковая, видеоинформация) Носитель Пример Форма представления Учебник по истории Мультфильм Объявление в лифте Купюра 100р. Звонок с урока
begin Write('Введите размер оплаты труда: '); Readln(z); Write('Лицензия первичная (1) или повторная (2)? '); Readln(p); Writeln('На сколько лет выдается лицензия?'); Writeln('0 - до года, 1 - 1-2 года, 2 - 2-3 года,'); Write('3 - 3-4 года, 4 - 4-5 лет: '); Readln(n); case n of 0: s := 0.3 * z; 1: s := 0.4 * z; 2: s := 0.5 * z; 3: s := 0.6 * z; 4: s := 0.7 * z; else s := 1e9 end; if p = 2 then s := 0.2 * s; Writeln('Сумма лицензионного сбора составит ', s:0:2) end.
Тестовое решение:
Введите размер оплаты труда: 26400 Лицензия первичная (1) или повторная (2)? 1 На сколько лет выдается лицензия? 0 - до года, 1 - 1-2 года, 2 - 2-3 года, 3 - 3-4 года, 4 - 4-5 лет: 2 Сумма лицензионного сбора составит 13200.00
Турбо Паскаля нет, вставьте первым оператором Uses CRT
const n = 20;
var x: array[1..n] of real; i: integer; sp, sn: real;
begin Randomize; Write('Элементы массива: '); sp := 0; sn := 0; for i := 1 to n do begin x[i] := (Random(101) - 50) / 1.33; Write(x[i]:0:5, ' '); if x[i] > 0 then sp := sp + x[i] else if x[i] < 0 then sn := sn + x[i]{нули тоже сюда, они не мешают} end; Writeln(#13#10, 'Сумма положительных=', sp:0:5, ', отрицательных=', sn:0:5) end.
-------------------------