Урок 10.2
Primary tabs
Модицифируйте код:
var i:integer;
begin
for i:=1 to 10 do
begin
writeln(777);
break;
end;
readln();
end.
- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).
var i:integer; begin for i:=1 to 10 do begin writeln(777); break; end; readln(); end.
В примере №2 есть код, который описывает программу угадывания числа с трех попыток. Перепишите этот код так, чтобы:
-Можно было бы задать угадываемое число (пусть его вводит пользователь)
-Если пользователь все же угадал число - напишите в сообщении о победе с какой именно попытки ему это удалось.
var a, b, i:integer; begin writeln('vvedite chiso'); readln(a); writeln('vvedite vashe chislo c 3 popitoc'); for i:=1 to 3 do begin writeln('popitka nomer ',i,' vvedite chislo'); readln(b); if (b = a) then begin writeln('Win, ', 'win c ', i,' ', 'poputki'); break end else writeln('ne ugadali!'); end; writeln('game over!'); readln(); end. Вывод консоли: vvedite chiso 5 vvedite vashe chislo c 3 popitoc popitka nomer 1 vvedite chislo 3 ne ugadali! popitka nomer 2 vvedite chislo 2 ne ugadali! popitka nomer 3 vvedite chislo 5 Win, win c 3 poputki game over!
В примере №2 есть код, перепишите его таким образом, чтобы сообщение "Игра окончена" выводилась, только если пользователь не угадал загаданное число.
var a, b, i:integer; begin writeln('vvedite chiso'); readln(a); writeln('vvedite vashe chislo c 3 popitoc'); for i:=1 to 3 do begin writeln('popitka nomer ',i,' vvedite chislo'); readln(b); if (b = a) then begin writeln('Win ', 'win c ', i, 'poputki'); break end else writeln('ne ugadali!'); end; if b<>a then writeln('game over!'); readln(); end. Вывод консоли: vvedite chiso 5 vvedite vashe chislo c 3 popitoc popitka nomer 1 vvedite chislo 2 ne ugadali! popitka nomer 2 vvedite chislo 3 ne ugadali! popitka nomer 3 vvedite chislo 1 ne ugadali! game over!
- Log in to post comments
- 50 reads