Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Pascal] Ошибка при компиляции, не могу исправить 
V
    Опции темы
индивид
Дата 3.10.2006, 19:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 3.10.2006

Репутация: нет
Всего: нет
кароче turbo pascal 7.0
Код

whyle S > 1000 do
begin
N2:=N2+1;
S:=S-1000;
end;
whyle S > 500 do
begin 

и тут ошибка "error 36:begin expected"
подсказать че нить можете?

Добавлено @ 19:23 
И еще вопрос в придачу). Как в файл exe сделать файл турбо паскаля?

Модератор: использование кнопки "КОД" для выдления кода обязательно 

Модератор: Пожалуйста, один топик - один вопрос. Для второго вопроса создайте новую тему. 

Участникам: просьба в этой теме не отвечать на втрой вопрос

Это сообщение отредактировал(а) alexeis1 - 4.10.2006, 13:06
PM MAIL   Вверх
индивид
Дата 4.10.2006, 21:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 3.10.2006

Репутация: нет
Всего: нет
Код

program CDA4A;
  uses CRT;
  var
     N1,N2,N3,N4,N5,N6,S:integer;
  begin
     Clrscr
       N1:=0,N2:=0;N3:=0;N4:=0;N5:=0;N6:=0;
       writeln;
       read(S);
       while S > 5000 do
       begin
       N1:=N1+1;
       S:=S-5000;
       end;
   while S > 1000 do
     begin
       N2:=N2+1;
       S:=S-1000;
     end ;
   while S > 500 do
     begin
       N3:=N3+1;
       S:=S-500;
     end;
   while S > 200 do
     begin
       N4:=N4+1;
       S:+S-200;
     end;
   while S > 100 do
     begin
       N5:=N5+1
       S:=S-100
     end;
   while S > 1 do
     begin
       N6:=N6+1
       S:=S-1;
     end;
     writeln('___________________')
     writeln('___________________')
     writeln(' 5000  ', N1:2);
     writeln(' 1000  ', N2:2);
     writeln(' 500   ', N3:2);
     writeln(' 200   ', N4:2);
     writeln(' 100   ', N5:2);
     writeln(' 1     ', N6:2);
     writeln('___________________')
     repeat until keypressed
   end



Но теперь ошибка идет на первой строке smile  smile 

Это сообщение отредактировал(а) alexeis1 - 4.10.2006, 22:34
PM MAIL   Вверх
koljan
Дата 4.10.2006, 22:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


VIP
**


Профиль
Группа: Участник
Сообщений: 430
Регистрация: 18.12.2005
Где: г.Архангельск

Репутация: 1
Всего: 1
Код

program CDA4A;    
  uses CRT;    
  var    
     N1,N2,N3,N4,N5,N6,S:integer;    
  begin    
     Clrscr;
       N1:=0;N2:=0;N3:=0;N4:=0;N5:=0;N6:=0;
       writeln;    
       read(S);    
       while S > 5000 do    
       begin    
       N1:=N1+1;    
       S:=S-5000;    
       end;    
   while S > 1000 do    
     begin    
       N2:=N2+1;    
       S:=S-1000;    
     end ;    
   while S > 500 do    
     begin    
       N3:=N3+1;    
       S:=S-500;    
     end;    
   while S > 200 do    
     begin    
       N4:=N4+1;    
       S:=S-200;
     end;    
   while S > 100 do    
     begin    
       N5:=N5+1;
       S:=S-100
     end;    
   while S > 1 do    
     begin    
       N6:=N6+1;
       S:=S-1;
     end;    
     writeln('___________________');
     writeln('___________________') ;
     writeln(' 5000  ', N1:2);    
     writeln(' 1000  ', N2:2);    
     writeln(' 500   ', N3:2);    
     writeln(' 200   ', N4:2);    
     writeln(' 100   ', N5:2);    
     writeln(' 1     ', N6:2);    
     writeln('___________________');
     repeat until keypressed;
   end.


вот рабочий код
З.Ы. не забывай ставить точки с запятой!!!


--------------------
Мы Вас отмежуем
PM MAIL ICQ   Вверх
индивид
Дата 4.10.2006, 22:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 3.10.2006

Репутация: нет
Всего: нет
спс все работает

Это сообщение отредактировал(а) индивид - 4.10.2006, 22:40
PM MAIL   Вверх
Sergio
Дата 8.10.2006, 18:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 843
Регистрация: 28.7.2006
Где: Solar System-> Earth

Репутация: нет
Всего: 1
Пожалуйста

Это сообщение отредактировал(а) Sergio - 8.10.2006, 18:31
PM MAIL ICQ   Вверх
koljan
Дата 9.10.2006, 16:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


VIP
**


Профиль
Группа: Участник
Сообщений: 430
Регистрация: 18.12.2005
Где: г.Архангельск

Репутация: 1
Всего: 1
Цитата(Sergio @  8.10.2006,  18:30 Найти цитируемый пост)
Пожалуйста
 ты это к чему ??? вопрос давно решён и забыт



--------------------
Мы Вас отмежуем
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0825 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.