Разбор задач «Язык программирование Pascal. Циклические алгоритмы. Готовые программы»
Циклические алгоритмы в Pascal. Разбор задач
Нахождение среднего арифметического от 10 до 45
uses crt;
var
n : integer;
i : integer;
sr : real;
begin
sr := 0;
n := 45-10; // количество элементов
for i := 10 to 45 do
sr := sr + i; // общая сумма элементов
sr := sr / n; // нахождение среднего
writeln(sr);
end.
Найти факториал числа 5,т.е.5!
uses crt;
var
s : integer;
i : integer;
begin
// Первоначальное значение s
// при суммировании необходимо s=0
// при произведении необходимо s=1
s := 1;
for i := 1 to 5 do
s := s * i; // общая сумма элементов
writeln(s);
end.
3. Квадраты чисел от 10 до b
uses crt;
var
i, b : integer;
begin
read(b);
if ( b > 10 ) then
for i := 10 to b do
writeln(i,'^2 = ', Sqr(i))
else
writeln('Значение должно быть > 10');
end.
4. Сумма, произведение и среднее ареф. кубов от а до b
uses crt;
var
i, a, b, n : integer;
sum, pr : integer;
sr : real;
begin
sum := 0;
pr := 1;
sr := 0;
n := 0;
read(a , b);
for i := a to b do begin
sum := sum + i;
pr := pr * i;
sr := sr + Power(i,3);
n := n + 1;
end;
sr := sr / n;
Writeln('Сумма = ', sum);
Writeln('Произведение = ', pr);
Writeln('Сред. кубов = ', sr);
end.
5. Сложить дроби
uses crt;
var
i, x : integer;
y : real;
begin
read(x);
y:=0;
for i:= 1 to 5 do
y:=y+ (Power(x,i)/i);
writeln(y);
end.
.uses crt;
var
i : integer;
y : real;
begin
y:=0;
for i:= 1 to 5 do
y:= y+ Power(i,3); // k = i
y := y + 10;
writeln(y);
end.
while
Богатый дядюшка
uses crt;
var
let : integer; // возраст
sum : integer; // сумма
begin
let := 0;
sum := 1;
while ( sum < 100) do
begin
let := let + 1;
sum := sum * 2 + let;
end;
writeln(let);
end.
Вывести на печать целые положительные кратные 9, числа пока истинно условие i<=100.
uses crt;
var
i : integer;
begin
i := 1;
while ( i <= 100) do
begin
if ( i mod 9 = 0 ) then writeln(i);
i:=i+1;
end;
end.
Вводится последовательность чисел, конец последовательности 0. Посчитать сумму последовательности.
uses crt;
var
x : integer;
sum : integer;
begin
sum := 0;
read(x);
while (x <> 0) do
begin
sum:= sum + x;
read(x);
end;
Writeln(sum);
end.
Вычислить выражение 
.
uses crt;
var
x : integer;
sum : real;
begin
sum := 0;
x := 1;
while (x <= 10) do
begin
sum:= sum + Power(x+5,2);
x:=x+1;
end;
Writeln(sum);
end.
Вычислить значение функции Y= (Х + 3) в точках от 1 до 5 с шагом 0,5.
