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)-считывает числа, введённые пользователем
Пример: Возвести х в степень у
Начало Ввод(х,у) Степень(х,у) Вывод(алг) Конец
Калькулятор находит сумму, разность, произведение, частное, возводит в степень или извлекает корень согласно введённым пользователем данным, либо заданным по умолчанию.
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;
// Vivod summi vsex stipendii
WriteLn('Summa vsex stipendii = '+IntToStr(Summa));
end.