|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.11.2017, 16:13 | #1 |
Новичок
Джуниор
Регистрация: 25.11.2017
Сообщений: 2
|
помогите исправить ошибки в программе
вот она (написана в pascal abc):
program first; uses formsabc; var header := new TextBox(); n := new IntegerField('ваш ответ',10); start := new Button('старт'); check := new Button('Проверка'); procedure start_click; var n, x, y, z, k, i, a: byte; begin n := 10; for i := 1 to 10 do begin x := Random(9) + 1; y := Random(9) + 1; Write(x, ' * ', y, ' = '); ReadLn(z); end; end; procedure check_click; begin if x*y=z then writelh.header('правильно') else writeln.header('неправильно'); if x*y=z then (a+1); end; begin writeln('ваша оценка:',a div 2); end. |
25.11.2017, 16:17 | #2 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,707
|
Код:
Код:
|
25.11.2017, 16:20 | #3 |
Новичок
Джуниор
Регистрация: 25.11.2017
Сообщений: 2
|
спасибо
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите Исправить Ошибки в Программе | Maxim_Burea | Помощь студентам | 5 | 26.09.2009 22:54 |
Помогите исправить ошибки в программе | rar14 | Общие вопросы C/C++ | 1 | 20.04.2009 19:07 |
помогите исправить ошибки в программе... | VDK23 | Помощь студентам | 1 | 17.04.2008 13:05 |
Помогите исправить ошибки в программе | Gambit90 | Помощь студентам | 1 | 20.12.2007 16:24 |