Исполнитель Калькулятор. 1.Степень(число,степень) 2.Корень(число,степень) 3.Сложение(число,число2) 4.Умножение(число,число2) 5.Деление(число,число2) 6.Вычитание(число,число2) 7.Вывод(алг)-выводит результат алгоритма 8.Если(условие) 9.скобка1 скобка2-для содержания операторов в условии начало конец - для содержания всего алгоритма 10.Ошибка - сообщает об ошибке и прекращает выполнение алгоритма 11.Ввод(x)-считывает числа, введённые пользователем
Пример: Возвести х в степень у
Начало Ввод(х,у) Степень(х,у) Вывод(алг) Конец
Калькулятор находит сумму, разность, произведение, частное, возводит в степень или извлекает корень согласно введённым пользователем данным, либо заданным по умолчанию.
Program Stipendiya; type Student = record Ocenka: array [1..5] of Byte; end; var i, j: Byte; Summa: Integer; Troechik: Boolean; Studenti: array [1..25] of Student; begin for i:=1 to 25 do begin // Zapolnyaem ocenki studentov: WriteLn('Vvedite ocenki '+IntToStr(i)+' studenta: '); for j:=1 to 5 do begin Write('Ocenka za '+IntToStr(i)+' ekzamen: '); ReadLn(Studenti[i].Ocenka[j]); end; end;
// Chitaem summu
S:=0;
WriteLn('');
for i:=1 to 25 do begin // Troechik:=False; // for j:=1 to 5 do if Studenti[i].Ocenka[j] < 4 then Troechik:=True; // if not Troechik then begin WriteLn('Vidat stipendiu '+IntToStr(i)+' studentu'); Summa:=Summa + 900; end; end;
1.Степень(число,степень)
2.Корень(число,степень)
3.Сложение(число,число2)
4.Умножение(число,число2)
5.Деление(число,число2)
6.Вычитание(число,число2)
7.Вывод(алг)-выводит результат алгоритма
8.Если(условие)
9.скобка1 скобка2-для содержания операторов в условии
начало конец - для содержания всего алгоритма
10.Ошибка - сообщает об ошибке и прекращает выполнение алгоритма
11.Ввод(x)-считывает числа, введённые пользователем
Пример: Возвести х в степень у
Начало
Ввод(х,у)
Степень(х,у)
Вывод(алг)
Конец
Калькулятор находит сумму, разность, произведение, частное, возводит в степень или извлекает корень согласно введённым пользователем данным, либо заданным по умолчанию.