Программа должна выводить за на полет стрелы и при утвердительном ответе изобразить летящую стрелу слева направо до конца графического окна. При отрицательном ответе должен быть выход из программы. Использовать вложенный цикл с предусловием. Внешний цикл организует за и получает ответ пользователя, а внутренний цикл выполняет полет стрелы.
i,max,min,k:integer;
arifm:real;
begin
k:=0;
arifm:=0;
Randomize;
for i:=0 to 9 do
mas[i]:=Random(15);
for i:=0 to 9 do
write(mas[i],' ');
{poisk max}
max:=mas[0];
for i:=1 to 9 do
if max<mas[i] then
max:=mas[i];
{poisk min}
min:=mas[0];
for i:=1 to 9 do
if min>mas[i] then
min:=mas[i];
arifm:=(max+min)/2;
writeln('max: ',max);
writeln('min: ',min);
writeln('arifm: ',arifm:0:3);
for i:=0 to 9 do
if mas[i]<arifm then
inc(k);
writeln('k: ',k);
readln;
end.
begin
var k:=0;
var Terminate:boolean;
repeat
Terminate:=True;
var n:=ReadInteger('Введите номер месяца:');
case n of
1,3,5,7,8,10,12:Writeln('31 день');
4,6,9,11:Writeln('30 дней');
2:Writeln('28 дней в обычном году и 29- в високосном')
else begin
Writeln('Вы ошиблись, номер должен быть от 1 до 12');
Inc(k);
Terminate:=False
end
end
until Terminate;
if k>0 then Writeln('Вы ошиблись ',k,' раз(а).')
end.
Тестовое решение:
Введите номер месяца: 18
Вы ошиблись, номер должен быть от 1 до 12
Введите номер месяца: 0
Вы ошиблись, номер должен быть от 1 до 12
Введите номер месяца: 5
31 день
Вы ошиблись 2 раз(а).