Самостоятельная работа по теме «Программирование циклов на языке Паскаль»

Вариант 1

1. Дана блок-схема (см. рисунок). Какое значение будет иметь N на выходе, если S=1,1? Постройте трассировочную таблицу и составьте программу на языке Паскаль.

Ответ:

Programzad1;

vars, s1, n:real;

begin

writeln('Введите s');

readln(s);

s1:=0;

n:=0;

whiles1<sdo

begin

n:=n+1;

s1:=s1+1/n

end;

writeln('n=',n)

end.

Таблица

2. Найти сумму и произведение всех целых чисел от 1 до 20. Написать программу на языке Паскаль.

Ответ:

Programzad2;

varsum, pr, i:integer;

begin

sum:=0;

pr:=1;

fori:=1to20do

begin

sum:=sum+i;

pr:=pr*i

end;

writeln('Сумма чисел от 1 до 20 равна=',sum, '. Произведение чисел от 1 до 20 равно=',pr)

end.

Вариант 2

1. Дана блок-схема (см. рисунок). Какое значение будет иметь N на выходе, если S=2,1? Постройте трассировочную таблицу.

Ответ:

Programzad1;

vars, s1, n:real;

begin

writeln('Введите s');

readln(s);

s1:=0;

n:=0;

whiles1<sdo

begin

n:=n+1;

s1:=s1+1/n

end;

writeln('n=',n)

end.

Таблица

2. В кинотеатре 30 рядов кресел. В первом ряду 20 кресел, в каждом последующем на 2 кресла больше, чем в предыдущем. Сколько мест в зрительном зале?

Programzad2;

varr, kr, i, sum:integer;

begin

r:=30;

kr:=20;

sum:=20;

fori:=2to30do

begin

kr:=kr+2;

sum:=sum+kr;

end;

writeln('Всего кресел в зале = ',sum)

end.

Вариант 3

1. Дана блок-схема (см. рисунок). Какое значение будет иметь z на выходе, если х=6? Постройте трассировочную таблицу.

Programzad1;

varx,z,i:real;

begin

writeln('Введитех');

readln(x);

z:=1;

i:=0;

repeat

z:=(z+x/2)/2;

i:=i+1;

untili<4;

writeln('z = ',z)

end.

Таблица

2. В первый час работы рабочий изготавливает 25 деталей, за каждый последующий час на 3 детали больше, чем за предыдущий. Подсчитать, сколько рабочий изготовит деталей за 8 часов работы.

Programzad2;

vardet, i, sum:integer;

begin

det:=25;

sum:=25;

fori:=2to8do

begin

det:=det+3;

sum:=sum+det;

end;

writeln('Всего деталей за 8 часов = ',sum)

end.

Адрес публикации: https://www.prodlenka.org/metodicheskie-razrabotki/461084-samostojatelnaja-rabota-po-teme-programmirova