Дано целое положительное число N. Вычислить факториал этого числа:N!=1*2*3*…*N используя различные виды циклов. Опишите алгоритм решения задачи записав блок-схему, АЯ и программу на языке программирования Паскаль для каждого из них. Выполните проверку с трассировочной таблицы для произвольных чисел.
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.
1.Степень(число,степень)
2.Корень(число,степень)
3.Сложение(число,число2)
4.Умножение(число,число2)
5.Деление(число,число2)
6.Вычитание(число,число2)
7.Вывод(алг)-выводит результат алгоритма
8.Если(условие)
9.скобка1 скобка2-для содержания операторов в условии
начало конец - для содержания всего алгоритма
10.Ошибка - сообщает об ошибке и прекращает выполнение алгоритма
11.Ввод(x)-считывает числа, введённые пользователем
Пример: Возвести х в степень у
Начало
Ввод(х,у)
Степень(х,у)
Вывод(алг)
Конец
Калькулятор находит сумму, разность, произведение, частное, возводит в степень или извлекает корень согласно введённым пользователем данным, либо заданным по умолчанию.