Циклический вычислительный процесс

1.С помощью while написать программу для вывода всех чисел от 1 до 10.

program z1;

uses crt;

var a: integer;

begin

clrscr;

a: =1;

while a< =10 do begin

writeln(a);

a: =a+1;

end;

readln;

end.

2.С помощью repeat написать программу для вывода всех чисел от 1 до 10.

program z2;

uses crt;

var a: integer;

begin

clrscr;

a: =1;

repeat

writeln(a);

a: =a+1;

until a> 10;

readln;

end.

3.С помощью for написать программу для вывода всех чисел от 1 до 10.

program z3;

uses crt;

var a: integer;

begin

clrscr;

for a: =1 to 10 do writeln(a);

readln;

end.

4.Вычислить значения функции y=n² – n для n от -5 до 5 с шагом 1.

program z4;

uses crt;

var n, y: integer;

begin

clrscr;

for n: =-5 to 5 do begin

y: =sqr(n)-n;

writeln(y);

end;

readln;

end.

5.Вычислить y= при x, изменяющемся от 1 до 9 с шагом 1.

program z5;

uses crt;

var x: integer; y: real;

begin

clrscr;

for x: =1 to 9 do begin

y: =sqrt(x);

writeln(y);

end;

readln;

end.

6.Вычислить m!

program z6;

uses crt;

var m, i, x: integer;

begin

clrscr;

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

readln(m);

x: =1;

for i: =1 to m do x: =x*i;

writeln(x);

readln;

end.

7.Вычислить P=m! /n!

program z7;

uses crt;

var m, n, i, x, y: integer; p: real;

begin

clrscr;

writeln('Введите m, n');

readln(m, n);

x: =1; y: =1;

for i: =1 to m do x: =x*i;

for i: =1 to n do y: =y*i;

p: =x/y;

writeln(p);

readln;

end.

8.Вычислить сумму чисел от 1 до введенного Вами числа n.

program z8;

uses crt;

var n, i, s: integer;

begin

clrscr;

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

readln(n);

s: =0;

for i: =1 to n do s: =s+i;

writeln(s);

readln;

end.

9.Вычислить сумму квадратов чисел от 1 до введенного Вами числа n.

program z9;

uses crt;

var n, i, s: integer;

begin

clrscr;

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

readln(n);

s: =0;

for i: =1 to n do s: =s+sqr(i);

writeln(s);

readln;

end.

10.Найти среднее значение для первых восьми натуральных чисел.

program z10;

uses crt;

var i: integer; x: real;

begin

clrscr;

x: =0;

for i: =1 to 8 do x: =x+i;

x: =x/8;

writeln(x);

readln;

end.

11.Составить таблицу перевода долларов в рубли от 1 до 10 с шагом 1.

program z11;

uses crt;

var d: integer; r: real;

begin

clrscr;

for d: =1 to 10 do begin

r: =d*30.7616587;

writeln(r);

end;

readln;

end.

12.Составить программу для вывода таблицы умножения для числа 8:

1 * 8 =

2 * 8 =

3 * 8 =

…….

8 * 8 =

program z12;

uses crt;

var i: integer;

begin

clrscr;

for i: =1 to 8 do writeln(i, ' * 8 = ', i*8);

readln;

end.

13.Вычислить: y=

program z13;

uses crt;

var i, k, n: integer; y: real;

begin

clrscr;

writeln('Введите k, n');

readln(k, n);

y: =0;

for i: = k-1 to n do begin y: =y+1/i;

writeln(y);

readln;

end.

14.Написать программу печати таблицы перевода расстояний из дюймов в сантиметры (1 дюйм = 2, 5 см) для значений длин от 1 до 20 дюймов.

program z14;

uses crt;

var d: integer; s: real;

begin

clrscr;

for i: =1 to 20 do begin

s: =d*2.5;

writeln(s);

end;

readln;

end.

15.Написать программу вывода всех четных чисел от 2 до 100 включительно.

program z15;

uses crt;

var a: integer;

begin

clrscr;

a: =2;

while a< =100 do begin

writeln(a);

a: =a+2;

end;

readln;

end.

16.Написать программу вычисления суммы всех нечетных чисел в диапазоне от 1 до 99 включительно.

program z16;

uses crt;

var a, s: integer;

begin

clrscr;

s: =0; a: =1;

while a< =99 do begin

s: =s+a;

a: =a+2;

end;

writeln(s);

readln;

end.

17.Написать программу, которая требует у Вас пароль, например, 111. Если пароль правильный, то все строки экрана заполняются сообщением «Молодец!».

program z17;

uses crt;

var password, i: integer;

begin

clrscr;

writeln('Введите пароль');

readln(password);

if password=111 then

for i: =1 to 25 do writeln(" Молодец! ");

readln;

end.

18.Составить программу определения наименьшего общего кратного двух натуральных чисел.

program z18;

uses crt;

var a, b, nok: integer;

begin

clrscr;

writeln('Введите два числа);

readln(a, b);

if a> b then nok: =a else nok: =b;

while (nok mod a< > 0) or (nok mod b< > 0) do nok: =nok+1;

writeln(nok);

readln;

end.

19.Вычислить наибольшее и наименьшее значение функции y=3x² + x – 4, если на заданном интервале [a, b] x изменяется с шагом 0, 1.

program z19;

uses crt;

var a, b, x, y, min, max: real;

begin

clrscr;

writeln('Введите a, b');

x: =a;

y: =3*sqr(x)+x-4;

min: =y; max: =y;

while x< =b do begin

x: =x+0.1;

y: =3*sqr(x)+x-4;

if y< min then min: =y;

if y> max then max: =y;

end;

writeln(min);

writeln(max);

readln;

end.

20.Вычислить сумму квадратов N четных натуральных чисел.

program z20;

uses crt;

var n, i, s: inter;

begin

clrscr;

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

readln(n);

s: =0;

for i: =1 to n do s: =s+2*i;

writeln(s);

readln;

end.

21.Вычислить 1+2 + 4 +8 +… + 2¹⁰

program z21;

uses crt;

var i, s, x: integer;

begin

clrscr;

s: =0; x: =1;

for i: =1 to 11 do begin

s: =s+x;

x: =x*2;

end;

writeln(s);

readln;

end.

22.Вычислить (1+2)*(1+2+3)* …*(1+2+…+10)

program z22;

uses crt;

var i, s, x: integer;

begin

clrscr;

s: =1; x: =0;

for i: =1 to 10 do begin

x: =x+1;

s: =s*x;

end;

writeln(s);

end.

23.Билет называют «счастливым», если в его номере сумма первых трех цифр равна сумме последних трех. Подсчитать число тех «счастливых» билетов, у которых сумма трех цифр равна 13.

program z23;

uses crt;

var i, k, a, b: integer;

begin

clrscr;

k: =0;

for i: =100000 to 999999 do begin

a: =(i mod 10)+(i mod 100 div 10)+(i mod 1000 div 100);

b: =(i div 10)+(i div 100 mod 10)+(i div 1000 mod 100);

if (a=13) and (b=13) then k: =k+1;

end;

writeln(k);

end.

24.Составить программу вычисления суммы всех двухзначных чисел.

program z24;

uses crt;

var i, s: integer;

begin

clrscr;

s: =0;

for i: =10 to 99 do s: =s+i;

writeln(s);

readln;

end.

25.Для заданного числа n составить программу вычисления суммы 1+ 1/2 + 1/3 +… + 1/n, где n- натуральное число.

program z25;

uses crt;

var i, n: integer; s: real;

begin

clrscr;

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

readln(n);

s: =0;

for i: =1 to n do s: =s+1/i;

writeln(s);

readln;

end.

26.Каждая бактерия делится на две в течение одной минуты. В начальный момент имеется одна бактерия. Составить программу, которая рассчитывает количество бактерий на заданное Вами целое значение момента времени (7 минут, 15 минут и т.д.).

program z27;

uses crt;

var i, t, x: integer;

begin

clrscr;

writeln('Введите время');

readln(t);

x: =1;

for i: =1 to t do x: =x*2;

writeln(x);

readln;

end.

27.Составить программу вывода на экран всех простых чисел, не превосходящих заданного N. Простым называется натуральное число больше единицы, имеющее только два делителя: единицу и само это число.

program z28;

uses crt;

var i, j, n: integer; prost: boolean;

begin

clrscr;

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

readln(n);

for i: =1 to n do begin

prost: =true;

for j: =1 to i do if i mod j=0 then prost: =false;

if prost=true then writeln(i);

end;

readln;

end.

28.В 1202 году итальянский математик Леонард Пизанский (Фибоначчи) предложил такую задачу: пара кроликов каждый месяц дает приплод – двух кроликов (самца и самку), от которых через два месяца уже получается новый приплод. Сколько кроликов будет через год, если в начале года имелась одна пара? Согласно условию задачи числа, соответствующие количеству кроликов, которые появляются через каждый месяц, составляют последовательность 1, 1, 2, 3, 5, 8, 13, 21, 34, …

program z28;

uses crt;

var a, b: integer;

begin

clrscr;

a: =1; b: =0;

for i: =1 to 12 do begin

b: =b+a;

a: =b-a;

end;

writeln(b);

readln;

end.

29.Составить программу, которая выводит полную запись десятичного числа 42*4*, в которой пропущены две цифры, если известно, что данное число кратно 72.

program z29;

uses crt;

var i: integer;

begin

clrscr;

for i: =42000 to 42999 do if i mod 100 div 10=4 then if i mod 72=0 then writeln(i);

readln;

end.

30.В старояпонском календаре был принят 60-летний цикл, состоящий из пяти 12-летних подциклов. Подциклы обозначались названиями цвета: зеленый, красный, желтый, белый и черный. Внутри каждого подцикла годы носили названия животных: крысы, коровы, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. 1984 год – год зеленой крысы – был началом очередного цикла. Написать программу, которая вводит номер некоторого года нашей эры и печатает его название по старояпонскому календарю.