ПОМОГИТЕ С НАПИСАНИЕМ ИГРЫ |
ПОМОГИТЕ С НАПИСАНИЕМ ИГРЫ |
alex 10 |
12.12.2014 19:09
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 22 Пол: Мужской Реальное имя: Алексей Репутация: 0 |
помогите пожалуйста!! на паскале програмировать начал недавно. Пробовал писать графические игры-но ничего не получилось!
|
alex 10 |
18.12.2014 11:27
Сообщение
#2
|
Новичок Группа: Пользователи Сообщений: 22 Пол: Мужской Реальное имя: Алексей Репутация: 0 |
ура получилось!!!
Код uses crt; var a,d,g:integer; begin clrscr; a:=1; d:=2; g:=3; while g=a+d do begin randomize; a:=random(10); d:=random(10); write(a,'+',d); readln(g); end; end. Добавлено через 7 мин. маленький upgrade Код uses crt; var a,d,g,ff:integer; begin clrscr; writeln('до какого числа можно мне выдавать числа?'); readln(ff); a:=1; d:=2; g:=3; while g=a+d do begin randomize; a:=random(ff); d:=random(ff); write(a,'+',d); readln(g); end; end. |
Текстовая версия | 29.04.2024 11:48 |