Автор работы: Пользователь скрыл имя, 30 Октября 2013 в 18:05, лабораторная работа
Часто при решении задач приходится многократно вычислять значения по одним и тем же зависимостям для различных значений входящих в их величины. Такие многократно повторяемые участки вычислительного процесса называются циклами. Использование циклов позволяет существенно сократить объем схемы алгоритма и длину соответствующей ей программы. Различают циклы с заданным и неизвестным числом повторений. С заданным числом повторений - цикл со счетчиком. С неизвестным числом повторений - цикл с предусловием, цикл с постусловием.
writeln(s:5:2);
readln;
end.
20. Вычислить сумму 2/3+3/4+4/5+…+10/11.
program zadacha_20;
uses crt;
var
j,i:integer;
s:real;
begin
clrscr;
S:=0;
for i:=2 to 10 do
begin
j:=i+1;
S:=S+i/j
end;
writeln('сумма равна',s:2:4);
readln;
end.
21. Вычислить сумму 1+1/3+1/32+1/33+...+1/38. Операцию возведения в степень не использовать
program zadacha_21;
uses crt;
var
i,n:integer;
s:real;
begin
clrscr;
s:=1;
for i:=1 to 8 do
begin
i:=i+1;
s:=1/(3*i)+s;
end;
writeln('s=',s:2:1);
readln;
end.
22. Автоморфным числом называется число, равное последним цифрам своего квадрата. Например,52=25, 252=625. Составить программу, которая находит все автоморфные числа в интервале [m;n].
program zadacha_22;
uses crt;
var
i:integer;
q:integer;
w:integer;
n:integer;
begin
clrscr;
writeln('Введите натуральное
readln(n);
for i:=1 to n do
begin
if (i>0) and (i<10) then
begin
q:=sqr(i);
w:=q mod 10;
end;
if (i>10) and (i<100) then
begin
q:=i*i;
w:=q mod 100;
end;
if i=w then
begin
writeln('число',i,'
end;
end;
readln;
end.
23. Замечена следующяя закономерность:
9*9+7=88
98*9+6=888
987*9+5=8888
Напишите программу, проверяющую и продолжающую эту последовательность.
program zadacha_23;
uses crt;
var
i,k,n:longint;
begin
clrscr;
k:=9;
for i:=9 downto 2 do
begin
n:=0;
n:=k*9+i-2;
writeln(k,'*9+',i-2,'=',n);
k:=k*10+i-1;
end;
readln;
end.
24. Замечена следующяя закономерность:
1*9+2=11
12*9+3=111
123*9+4=1111
Напишите программу, проверяющую и продолжающую эту последовательность.
program zadacha_24;
uses crt;
var
i: integer;
k: longint;
m: longint;
n: integer;
begin
clrscr;
k:=1;
for i:=1 to 9 do
begin
m:=(k*9)+(i+1);
writeln (k,'*9+',i+1,'=',m);
k:=(k*10)+(i+1);
end;
readln;
end.