Практическая работа № 15
Циклы с условием
Уровень A. Напишите программу, которая получает с клавиатуры количество повторений и выводит столько же раз какое-нибудь сообщение.
Пример:
Сколько раз повторить? 3
Привет!
Привет!
Привет!
Уровень B. Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 1.
Пример:
Введите число? 311
Единиц: 2
Уровень C. Напишите программу, которая получает с клавиатуры натуральное число и находит наибольшую цифру в его десятичной записи.
Пример:
Введите число? 311
Наибольшая цифра: 3
Уровень D. Напишите программу, которая получает с клавиатуры натуральное число и определяет, есть ли в его десятичной записи одинаковые цифры, стоящие рядом.
Пример: Пример:
Введите число: 553 Введите число: 535
ответ: да. ответ: нет.
УМОЛЯЮ
Program lab5;
const n=11;
type masiv=array[1..n]of integer;
var l,k,m:masiv;
i:integer;
procedure vivod(mas:masiv);
var i:integer;
begin
for i:=1 to n do write(mas[i],' ');
writeln;
end;
procedure new_mas(var mas:masiv);
var i,j:byte;
min:integer;
begin
j:=1;
min:=mas[1];
for i:=2 to n do
if (min>mas[i]) then
begin
min:=mas[i]; j:=i;
end;
writeln('min = ',min);
mas[j]:=mas[1];
mas[1]:=min;
end;
begin
writeln('Дано:');
randomize;
for i:=1 to n do
begin
l[i]:=random(-56,40);
k[i]:=random(-56,40);
end;
write('массив L[',n,']: ');
vivod(l);
new_mas(l);
write('измененный массив L[',n,']: ');
vivod(l);
write('массив K [',n,']: ');
vivod(k);
new_mas(k);
write('измененный массив K[',n,']: ');
vivod(k);
for i:=1 to n do m[i]:=l[i]+k[i];
write('массив M[',n,']: ');
vivod(m);
end.
Пример:
Дано:
массив L[11]: 4 -34 -2 3 -53 -53 38 1 -33 -3 11
min = -53
измененный массив L[11]: -53 -34 -2 3 4 -53 38 1 -33 -3 11
массив K [11]: -43 -18 -8 -9 34 -34 -49 40 -47 -22 9
min = -49
измененный массив K[11]: -49 -18 -8 -9 34 -34 -43 40 -47 -22 9
массив M[11]: -102 -52 -10 -6 38 -87 -5 41 -80 -25 20
1. Сумма углов квадрата 360 градусов.
2. В сутках 24 часа.
3. В году 12 месяцев.
4. В слове "семь" 4 буквы.
5. В слове "семь" 3 звука.
6. 2*3=6
7. 5<7
8. В треугольнике три стороны.
9. Круг не имеет углов.
10. Лондон - столица Великой Британии.
Ложные высказывания
1. Сумма углов квадрата - 180 градусов.
2. В сутках 18 часов.
3. В году 13 месяцев.
4. В слове "семь" 3 буквы.
5. В слове "семь" 4 звука.
6. 3*2=7
7. 5>7
8. В треугольнике 5 сторон.
9. У круга 3 угла.
10. Лондон - столица Парижа.