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

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

Вернуться   Форум программистов > Клуб программистов > Свободное общение
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.10.2008, 21:42   #21
BangBangFM
Заблокирован
 
Регистрация: 12.08.2008
Сообщений: 166
По умолчанию

Перефразирую вопрос: Как написать компилятор?
BangBangFM вне форума Ответить с цитированием
Старый 15.10.2008, 21:47   #22
JTG
я получил эту роль
Старожил
 
Аватар для JTG
 
Регистрация: 25.05.2007
Сообщений: 3,694
По умолчанию

Цитата:
Сообщение от BangBangFM Посмотреть сообщение
Ух... Вроде все правильно, паскаля нет проверить не могу...
ээээээ там же каша )))
пыщь
JTG вне форума Ответить с цитированием
Старый 15.10.2008, 21:51   #23
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,758
По умолчанию

Скачать паскаль
Alar вне форума Ответить с цитированием
Старый 15.10.2008, 21:52   #24
BangBangFM
Заблокирован
 
Регистрация: 12.08.2008
Сообщений: 166
По умолчанию

Ой точно! Забыл...
Код:
Program autobiografija (output);
  Var c : array[1..14] of string[60];
      i : integer;
Begin
c[ 1]:='Program autobiografija (output);                          ';
c[ 2]:='  Var c : array[1..14] of string[60];                     ';
c[ 3]:='      i : integer;                                        ';
c[ 4]:='Begin                                                     ';
c[ 5]:='For i := 1 to  4 do writeln(c[i]);                        ';
c[ 6]:='For i := 1 to 13 do writeln(c[14,1],c[14,2],i:2,c[14,5],  ';
c[ 7]:='          c[14,6],c[14,7],c[14,8],c[1],c[14,8],c[14,9]);  ';
c[ 8]:='for i := 1 to  8 do write(c14,i);                         ';
c[ 9]:='for i := 1 to  8 do write(c14,i);                         ';
c[10]:='for i := 8 to 60 do write(c14,i);                         ';
c[11]:='writeln(c[14,8],c[14,9]);                                 ';
c[12]:='for i := 5 to 13 do writeln(c[i]);                        ';
c[13]:='end.                                                      ';
c[14]:='c[14]:='';                                                ';
For i := 1 to  4 do writeln(c[i]);
For i := 1 to 13 do writeln(c[14,1],c[14,2],i:2,c[14,5],
          c[14,6],c[14,7],c[14,8],c[1],c[14,8],c[14,9]);
for i := 1 to  8 do write(c[14,i]);
for i := 1 to  8 do write(c[14,i]);
for i := 8 to 60 do write(c[14,i]);
writeln(c[14,8],c[14,9]);
for i := 5 to 13 do writeln(c[i]);
end.
Так лучше будет!

Цитата:
Скачать паскаль
Нет! Нет! Спасибо... Меня как то делфи больше устраивает...

Последний раз редактировалось BangBangFM; 15.10.2008 в 22:03.
BangBangFM вне форума Ответить с цитированием
Старый 15.10.2008, 21:55   #25
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,758
По умолчанию

For i := 1 to 4 do writeln(c[i]);

Error: "writeln(c[i]); совсем не похож на integer"
Alar вне форума Ответить с цитированием
Старый 15.10.2008, 21:57   #26
ChukCha
Пользователь
 
Регистрация: 18.04.2007
Сообщений: 80
По умолчанию

ухты, прикольно.
ChukCha вне форума Ответить с цитированием
Старый 15.10.2008, 21:58   #27
BangBangFM
Заблокирован
 
Регистрация: 12.08.2008
Сообщений: 166
По умолчанию

Alar
Не вижу в чем ошибка.
BangBangFM вне форума Ответить с цитированием
Старый 15.10.2008, 22:00   #28
ChukCha
Пользователь
 
Регистрация: 18.04.2007
Сообщений: 80
По умолчанию

у меня всё работало кроме
Код:
for i := 1 to  8 do write(c14,i);
for i := 1 to  8 do write(c14,i);
for i := 8 to 60 do write(c14,i);
надо заменить на
Код:
for i := 1 to  8 do write(c[14],i);
for i := 1 to  8 do write(c[14],i);
for i := 8 to 60 do write(c[14],i);
ChukCha вне форума Ответить с цитированием
Старый 15.10.2008, 22:03   #29
BangBangFM
Заблокирован
 
Регистрация: 12.08.2008
Сообщений: 166
По умолчанию

Нет! Надо заменить на:
Код:
for i := 1 to  8 do write(c[14,i]);
for i := 1 to  8 do write(c[14,i]);
for i := 8 to 60 do write(c[14,i]);
BangBangFM вне форума Ответить с цитированием
Старый 15.10.2008, 22:03   #30
ChukCha
Пользователь
 
Регистрация: 18.04.2007
Сообщений: 80
По умолчанию

Цитата:
Сообщение от BangBangFM Посмотреть сообщение
Нет! Надо заменить на:
Код:
for i := 1 to  8 do write(c[14,i]);
for i := 1 to  8 do write(c[14,i]);
for i := 8 to 60 do write(c[14,i]);
я тогда свою ошибку заметил и отредактировал
ChukCha вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка при использовании OlePropertyGet("Documents").OleProcedure("Add") в C++ Builder AleksP C++ Builder 7 11.04.2009 13:06
если пользователь наберет какой-то другой символ не "y" или "n" и нажмет enter, программа проигнорирует skobets Общие вопросы C/C++ 2 03.06.2008 06:51
Excel файл открывается не "до конца" (странички "не показываются" только серое поле) Dorvir Microsoft Office Excel 2 28.03.2008 10:03
Создаю диаграмму "Bar". Подскажите как убрать растояние между "столбами" MAcK Компоненты Delphi 11 24.10.2007 10:49