Разбор задач «Язык программирование 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.

 

6. Вычислить у = 10 +.

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.