Редактирование и отладка программ с помощью Pascal (стр. 6 из 12)

Program as; Блок-схема

Uses crt;

Var a,j:integer;

Begin clrscr;

Writeln(‘Введи число’);

Readln(j);

For a:=10 to j do writeln(sqrt(a):5:2);

Readln;

end.

Задание 3.Найти сумму квадратов всех целых чисел от 10 до 50

Program as;

Uses crt;

Var a,s:real;

Begin clrscr;

For a:=10 to 50 do s:=sqr(a)+s;

Writeln(s);

end.

Задание 4.Одна штука некоторого товара стоит 20 тенге. Напечатать таблицу стоимости 2,3…20 штук этого товара

Блок-схема

Program as;

Uses crt;

Var a,b:integer;

Begin clrscr;

B:=20;

For a:=2 to 20 do writeln(a*b);

Readln;

end.

Задание 5. Найти произведение всех целых чисел от 1 до А (значение А вводится с клавиатуры; 1<=A<=20.

program as; Блок-схема.

uses crt;

var a,b,p:integer;

begin clrscr;

p:=1;

readln(a);

for b:=1 to a do if (1<=a) and (a<=20) then

p:=p*a;

writeln(p);

readln;

end.

(Вводим значение 4)

Ответ:256

Задание 6.Напечатать программу, печатающую таблицу значений функции y=cos2x на отрезке [0;1] с шагом h=0,1

Program as; Блок-схема

Uses crt;

Var y,x:real;

Begin clrscr;

X:=0;

While x<=1 do begin y:=cos(2*x);

Writeln(y:5:2);

X:=x+0,1;

End;

End.

Задание 7.Напечатать программу, вычисления факториала

Program as; Блок-схема

Uses crt;

Var i,n:integer;

f:real;

Begin clrscr;

Readln(n);

F:=1; i:=1;

While i<=n do begin f:=f*i;

i:=succ(i);

end;

Writeln(‘факториал от’,n,’равен’,f);

End.

Задание 8.Программа подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+…1/N

Program as; Блок-схема

Uses crt;

Var s:real;

N:integer;

Begin clrscr;

S:=0;N:=0;

While n<1000 do begin N:=n+1;

S:=s+1/N;

End;

Writeln(s);

Readln;

End.

Задание 9.Вычислить наибольший общий делитель двух натуральных чисел А и В.

Program as; Блок-схема

Uses crt;

Var a,b:integer;

Begin clrscr;

writeln(‘Введи 2 натур. Числа’);

readln(a,b);