Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
4ikabym
1 / 1 / 0
Регистрация: 09.10.2010
Сообщений: 21
1

В чем ошибка?

30.12.2010, 21:01. Просмотров 893. Ответов 11
Метки нет (Все метки)

Привет всем! Начал изучение паскаля и вот мое первое задание:
Написать программу, которая очищает экран и выводит слов red, green, blue, yellow, каждое своим цветом в центр четвертей экрана.

Я эту программу написал:
(в конце после delay стоит END.)
Но при компиляции выходит ошибка:


Что я сделал не правильно?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.12.2010, 21:01
Ответы с готовыми решениями:

в чем ошибка
помогите пожалуйста найти ошибку...программа высчитывает сумму с точностью,а...

В чем ошибка?
в программе program z1a; const a=1.2; var x,y:real; begin cls; write...

В чем ошибка?
uses crt; type nazw=array of String ; const ed:nazw=...

В чем ошибка?
uses crt; var x,y,c,a:integer; Function F(n:integer):integer; begin...

В чем ошибка?
Здраствуйте форумчане! у меня возник вопрос в чем здесь ошибка "A:=a;" при...

11
marshal
Robin Bad на форуме
235 / 235 / 194
Регистрация: 14.12.2010
Сообщений: 513
30.12.2010, 21:03 2
А зачем вам закрашивать весь фон? Может он просто не знает такого слова magenta?(впрочем как и я, а что это такое?)
1
4ikabym
1 / 1 / 0
Регистрация: 09.10.2010
Сообщений: 21
30.12.2010, 21:06  [ТС] 3
Я убрал закрашивание экрана, программа заработала! Но мне нужно экран закрашивать)
0
marshal
Robin Bad на форуме
235 / 235 / 194
Регистрация: 14.12.2010
Сообщений: 513
30.12.2010, 21:10 4
ну ладно, тогда поставь какой-нибудь свой цвет, например grey(насколько помню серый)

Добавлено через 50 секунд
и ещё кое-что заметил там после delay вроде нет точки с запятой?

Добавлено через 1 минуту
Ну, пошло?
0
4ikabym
1 / 1 / 0
Регистрация: 09.10.2010
Сообщений: 21
30.12.2010, 21:12  [ТС] 5
Цитата Сообщение от marshal Посмотреть сообщение
ну ладно, тогда поставь какой-нибудь свой цвет, например grey(насколько помню серый)
Не помогло =(


Цитата Сообщение от marshal Посмотреть сообщение
и ещё кое-что заметил там после delay вроде нет точки с запятой?
Она там не обязательна, так как это последний оператор.
0
marshal
Robin Bad на форуме
235 / 235 / 194
Регистрация: 14.12.2010
Сообщений: 513
30.12.2010, 21:13 6
В смысле?
Что теперь не так?
0
4ikabym
1 / 1 / 0
Регистрация: 09.10.2010
Сообщений: 21
30.12.2010, 21:14  [ТС] 7
Цитата Сообщение от marshal Посмотреть сообщение
В смысле?
Что теперь не так?
Все та же ошибка
0
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
30.12.2010, 21:14 8
Код выложи а не скрин.
1
4ikabym
1 / 1 / 0
Регистрация: 09.10.2010
Сообщений: 21
30.12.2010, 21:18  [ТС] 9
SuPeR XaKer, пару минут =)

Добавлено через 3 минуты
оппа, открыл код через блокнот, а там вместо круглой скобки стоит ">", хотя в турбо паскале я написал крушлую скобку. все спасибо
0
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
30.12.2010, 21:21 10
да и на скрине >
0
4ikabym
1 / 1 / 0
Регистрация: 09.10.2010
Сообщений: 21
30.12.2010, 21:22  [ТС] 11
Блин, точно, значит это я смудил! =)))
0
marshal
Robin Bad на форуме
235 / 235 / 194
Регистрация: 14.12.2010
Сообщений: 513
30.12.2010, 21:23 12
так там ещё, по-моему, где-то в 19 строке скобки вообще нет
0
30.12.2010, 21:23
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.12.2010, 21:23

В чем ошибка!
Program Cramer_2; {Method Cramera for linear systems} Uses str;...

в чем ошибка?
в одномерном массиве посчитать количество отрицательных элементов с права от...

в чем ошибка
var a,i,s:integer; begin for i:=3 to a-1 do if (a mod i=0)and(ord(i))then...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru