Исполнитель Калькулятор. 1.Степень(число,степень) 2.Корень(число,степень) 3.Сложение(число,число2) 4.Умножение(число,число2) 5.Деление(число,число2) 6.Вычитание(число,число2) 7.Вывод(алг)-выводит результат алгоритма 8.Если(условие) 9.скобка1 скобка2-для содержания операторов в условии начало конец - для содержания всего алгоритма 10.Ошибка - сообщает об ошибке и прекращает выполнение алгоритма 11.Ввод(x)-считывает числа, введённые пользователем
Пример: Возвести х в степень у
Начало Ввод(х,у) Степень(х,у) Вывод(алг) Конец
Калькулятор находит сумму, разность, произведение, частное, возводит в степень или извлекает корень согласно введённым пользователем данным, либо заданным по умолчанию.
Program Pro1; type Date = record day : 1..31; mounth : 1..12; year : integer; end; Person = record SurnameName : string; Birthday : date; end; ListOfPeople = array [1..50] of person; var People: ListOfPeople; JoungHuman: Integer; i, JoungHumanIndex: Byte; begin for i:=1 to 50 do begin Write('Human '+IntToStr(i)+':') Write('Input Surname and Name:') ReadLn(People[i].SurnameName); Write('Input Birthday date(day, mounth, year):') Read(People[i].Birthday.day, People[i].Birthday.mounth, People[i].Birthday.year); end;
1.Степень(число,степень)
2.Корень(число,степень)
3.Сложение(число,число2)
4.Умножение(число,число2)
5.Деление(число,число2)
6.Вычитание(число,число2)
7.Вывод(алг)-выводит результат алгоритма
8.Если(условие)
9.скобка1 скобка2-для содержания операторов в условии
начало конец - для содержания всего алгоритма
10.Ошибка - сообщает об ошибке и прекращает выполнение алгоритма
11.Ввод(x)-считывает числа, введённые пользователем
Пример: Возвести х в степень у
Начало
Ввод(х,у)
Степень(х,у)
Вывод(алг)
Конец
Калькулятор находит сумму, разность, произведение, частное, возводит в степень или извлекает корень согласно введённым пользователем данным, либо заданным по умолчанию.
type Date = record
day : 1..31;
mounth : 1..12;
year : integer;
end;
Person = record
SurnameName : string;
Birthday : date;
end;
ListOfPeople = array [1..50] of person;
var
People: ListOfPeople;
JoungHuman: Integer;
i, JoungHumanIndex: Byte;
begin
for i:=1 to 50 do
begin
Write('Human '+IntToStr(i)+':')
Write('Input Surname and Name:')
ReadLn(People[i].SurnameName);
Write('Input Birthday date(day, mounth, year):')
Read(People[i].Birthday.day, People[i].Birthday.mounth, People[i].Birthday.year);
end;
//
JoungHumanIndex:=1;
//
JoungHuman:=People[1].Birthday.day + People[1].Birthday.mounth*13 + People[1].Birthday.year * 32 * 13;
for i:=2 to 50 do
if JoungHuman> People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13 then
begin
//
JoungHumanIndex:=i;
//
JoungHuman:=People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13;
end;
WriteLn('Most joung human: '+People[JoungHumanIndex].SurnameName);
end.