Составить 5 любых алгоритмов
5-9 класс
|
Напечатать сумму двух чисел:
VAR
a, b: Real;
BEGIN
Read(a, b);
Write(a, b);
END.
Вывести расстояние между двумя точками:
VAR
x1, x2, y1, y2: Real;
BEGIN
Read(x1, y1);
Read(x2, y2);
Write(Sqrt(Sqr(x2 - x1) + Sqr(y2 - y1)));
END.
Возвести число N в K степень:
VAR
n, k, ans, i: LongInt;
BEGIN
Read(n, k);
ans := 1;
for i := 1 to k do
ans := ans * n;
Write(ans);
END.
Посчитать факториал числа N:
VAR
ans: Int64;
n, i: Integer;
BEGIN
Read(n);
ans := 1;
For i := 2 to n do
ans := ans * i;
Write(ans);
END.
Вывести N-ое число Фибоначчи:
VAR
n, i, f1, f2, f3: LongInt;
BEGIN
Read(n);
f3 := 1;
for i := 1 to n do begin
f1 := f2; f2 := f3;
f3 := f1 + f2; end;
Write(f3);
END.
Другие вопросы из категории
программирования алгоритм, который находит и выводит номера двух элементов массива, наименее отличающихся друг от друга. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них. const N=30; var a: array [1..N] of integer; i, j, min, min2, s: integer; begin for i:=1 to N do readln(a[i]);
Читайте также
Мне необходимо составить алгоритм каждой буквы : н,у,р,л,а,н
Примерно алгоритм выглядит вот так- Поднять перо. Сместиться в точку.Опустить перо.Сместиться на вектор.
Составьте хотя бы алгоритм буквы Н
числа 2 числа 30. Алгоритм должен включать только команды 1 и 2, и состоять не более чем из 4 команд.
1) Приведите пример циклического алгоритма:а) из литературного произведенияб)из любой предметной области изучаемой в школе.
2) Ежегодный прирост рыбы в пруду составляет 15%. Запасы рыбы оценены в А тонн. Ежегодный план отлова В тонн. Наименьший запас рыбы составляет С тонн (запас ниже С тонн уже не восстанавливается) .Составьте БЛОК СХЕМУ алгоритма для подсчета кол-ва лет, в течение которых можно выдерживать заданный план.
поверхности, суммы ребер прямоугольного параллелепипеда. 3. Составьте программу вычисления диагоналей ромба по стороне и углу.