Составьте в pascal abc сложную(красивую с многими элементами и прочим прочим что б всего было много) граффическую программу!

102

293

Посмотреть ответы 2

Ответы на вопрос:

pvi00o2mailru

Информатика

4,4(67 оценок)

вот , моя игра . угадай число.

program k2game; uses crt; var i,a,n: integer; begin textbackground(14); clrscr; gotoxy(33,2); textcolor(4); writeln('игра "угадай число! " '); delay(400); textcolor(5); gotoxy(23,4); writeln('1. компьютер загадывает число от 0 до 9.'); delay(840); textcolor(5); gotoxy(23,5); writeln('2. ваша - угадать это число! '); delay(840); textcolor(5); gotoxy(23,6); writeln('3. не забывайте, что у вас всего две попытки! '); delay(640); textcolor(5); gotoxy(23,7); writeln('4. если же вы ошиблись, то компьютер даст вам подсказку.');

randomize; a: =random(10); n: =0; textcolor(0); repeat gotoxy(23,9); writeln(' введите число.'); gotoxy(23,10); readln(i); if (i < > a) then begin n: =n+1; gotoxy(23,11); if (i> a) then writeln('подсказка: загаданное число меньше.') else writeln('подсказка: загаданное число больше.') end; until ((i=a) or (n=2));

gotoxy(23,13); textcolor(2); if (i=a) then writeln('поздравляю! вы выйграли! ') else writeln('к сожалению,н

о вы проиграли! ');

end.