Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.12.2014, 07:40   #1
Evgenii_95
Пользователь
 
Регистрация: 13.11.2014
Сообщений: 18
Восклицание Построить прямоугольники в два ряда по четыре прямоугольника в ряд и заполнить их различными типами штриховки (Pascal ABC)

Построить прямоугольники в два ряда по четыре прямоугольника в ряд и заполнить их соответственно 12-ю различными типами штриховки.

Код:
program пример;
{демонстрация цветов заполнения}
uses graph,crt;
var gd,gm,x,y,k, j:integer;
begin
gd:=0; gm:=0; initgraph (gd, gm, ' ');
x:=60; y:=40;
for j:=0 to 2 do
for k:=0 to 3 do
begin
rectangle ((k + 1) *x,(j+1)*y, (k+2)*x, (j+2)*y);
setfillstyle{k+j*4, j+1);
bar((k+1)*x+1, (j+1)*y+1, (k+2)*x-1, (j+2)*y-1)
end;
while not keypressed do;
end.
на ABC выдает ошибку, помогите что тут не так?

_________
1) Название темы не соответствует правилам форума

Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил и предупредил Вас.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!


Прошу учесть на будущее...

Модератор.

Последний раз редактировалось Serge_Bliznykov; 12.12.2014 в 08:15.
Evgenii_95 вне форума Ответить с цитированием
Старый 12.12.2014, 08:08   #2
WinCoder
Заблокирован
 
Регистрация: 24.11.2014
Сообщений: 721
По умолчанию

Цитата:
ПОМОГИТЕ СПАСИТЕ СЕМЕСТР!
Могу топор одолжить. Тем более что голова Вам по всей видимости не нужна, раз Вы не желали думать ей во время учёбы. Каково название темы, таков и ответ.
Цитата:
помогите что тут не так?
Тут много чего не так. Наиболее явные ошибки
Код:
program пример;
Программа не может называться по Русски
Код:
setfillstyle{k+j*4, j+1);
Какая стоит первая скобочка, и какая последняя?

Последний раз редактировалось WinCoder; 12.12.2014 в 08:13.
WinCoder вне форума Ответить с цитированием
Старый 12.12.2014, 08:17   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
на ABC выдает ошибку, помогите что тут не так?
Это код для Turbo Pascal.
На Pascal ABC нужно переделывать.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Построить алгоритм в виде блок-схем и написать соответствующую программу на языке Pascal / Pascal ABC IgorMyakota Паскаль, Turbo Pascal, PascalABC.NET 9 06.03.2014 07:32
Построить список символов, содержащий входной текст. Pascal ABC _T_A_H_K_ Помощь студентам 1 12.01.2014 12:52
Pascal ABC построить таблицу соответствий между мерами RikOzz Помощь студентам 1 17.11.2013 09:59
процедуры и функции: Описать процедуру RectPS (x1,y1,x2,y2,P,S), вычисляющую периметр P и площадь S прямоугольника (Pascal ABC) Ivanacats Помощь студентам 10 03.10.2012 17:50
Pascal ABC. Вычислить сумму ряда с заданной точностью. 0kcanka Помощь студентам 0 16.05.2011 13:22