46.57K
Категория: ПрограммированиеПрограммирование

Примеры алгоритмов

1.

Пример 2. Составить программу для вычисления
суммы первых 10 натуральных чисел.
Program Summa;
Var i,S:byte;
Begin
i:=1;
While i<=10 do
begin
S:=S+i;
i:=i+1;
end
Writeln(‘Сумма S=’,S);
End.

2.

• Пример 3. Составить программу для вычисления
первых шести членов последовательности,
заданной формулой n-го члена: xn=2n-1.
Program Prim3;
Var x,n:integer;
Begin
Writeln;
n:=1;
While n<=6 do
begin
x:=2*n-1;
writeln(x,‘ ');
inc(n);
end;
End.

3.

Пример 4. Составить программу, которая
выводит на экран 15 первых нечетных
натуральных чисел.
program n5;
var i, x: integer;
begin
x:=1;
for i:=1 to 15 do
Begin
writeln(x,′ ′);
x:=x+2;
end;
end.

4.

Домашнее задание: Чиновник, ежемесячно получает
заработную плату в размере Х рублей. Величина Х
равна 5000 рублей ежемесячно. Автомобиль BMW
X5, который хочет купить на зарплату чиновник, стоит
2000000 рублей. Напишите программу, которая
вычислит, сколько месяцев потребуется чиновнику
на сбор нужной суммы.
English     Русский Правила