Задачи с использованием оператора repeat

Программа 4

На склад привозят однородный груз на машинах различной грузоподъемности. На компьютер, управляющий работой склада, поступает информация о весе груза очередной машины. Составить программу подсчета количества машин, прибывших на склад до его заполнения, если вместимость склада не более 100 тонн.

Цикл разгрузки заканчивается, если выполняется условие: sum> 100.

program store4;

var sum,w:real; num:iпteger,

begin

num:=0; sum:=0;

repeat

writeln('введите вес груза машины') ,

readln(w); sum:=sum+w;

if sum<=100 then num:=num +1

еlse writeln('груз уже не поместится')

until sum>=100;

writeln(`количество разгруженных машин =`,num:3)

end.

Программа 5

Ввести последовательность, заканчивающуюся 0. Определить максимальное число, введенное с клавиатуры.

program zadacha_5;

uses crt;

var

a: integer;

m: integer;

begin

clrscr;

m:=0;

repeat

readln(a);

if a>m then m:=a;

until a<=0;

writeln ('максимальное число: ',m);

readln;

end.

Программа 6

Составить программу, которая определит число и сумму цифр для любого натурального числа, не превосходящего maxint, а также выводит запись числа в обратном порядке, опуская незначимые нули в его начале.

program zadacha_6;

var

k, s, n: integer; a:longint;

begin

write(‘введите натуральное число :’); readln(n);

k:=0; s:=0; a:=0;

repeat

k:=k+1;

s:=s+n mod 10;

a:=a*10+n mod 10;

n:=n div 10

until n=0;

writeln (‘число цифр: ',k, ‘,сумма цифр: ’, s);

writeln (‘запись числа в обратном порядке: ’,а);

readln;

end.

Задачи с использованием оператора for

Программа 7

Составить программу, по которой будет напечатана таблица перевода километров в мили (1 миля = 1,603 км). Параметром цикла можно считать целую величину k – количество километров.

Пусть эта величина изменяется от 1 до 10 (с шагом 1).

Программа 7

ргоgram mili;

coпst а=1.603; b='км'; с='мили';

var k:integer; m:геаl;

begin

writeln(b:5,c:7);

writeln;

for k:=1 to 10 dо

begin

m:=k/a; writeln(k:5; m:6:3}

end

епd.

Запишем в этой программе цикл с параметром в форме 2:

for k:=10 downto 1 до begin

m:=k/а; writeln(k:5,m:6:3)

end.

Тогда значения k в таблице буду убывать от 10 до 1 с шагом 1.

Программа 8

Составить таблицу умножения на 7.

program zadacha_8;

var

i, p: integer;

begin

writeln ('таблица умножения на 7');

for i:=1 to 10 do

begin

p:=7*i;

writeln ('7x',i,'=',p);

end;

readln;

end.

Программа 9

Ввести шесть чисел и найти произведение чисел больших 5

program zadacha_9;

var

x,p: integer;

i: integer;

begin

p:=1;

for i:=1 to 6 do

begin

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

readln(x);

if x>5 then

begin

p:=p*x;

end;

end;

writeln('p=',p);

readln;

end.

Программа 10

Вычислить и напечатать первые 10 чисел Фибоначчи.

Числами Фибоначчи называются члены ряда Фибоначчи. Каждый из членов этой последовательности равен сумме двух предыдущих.

Program Fib; Сonst n=10; {количество чисел} Var i,f1,f2,f3:Integer; Begin         f1 := 1; f2 := 1; {первые два числа Фибоначчи}         For i := 3 To n Do         Begin               f3 := f1 + f2; {следующее число}               Writeln(f3);                f1 := f2; f2 := f3         End End.

Программа 11

Определить факториал введенного числа

Program Fact; Var u,e,n:Integer; Begin

Readln(e);

U:=1;        For n := 1 To e Do         Begin                 u:= u*n;

End;

 Writeln(‘факториал числа=’,u);

Readln; End.