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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.04.2015, 17:50   #11
SweetyGirl
Новичок
Джуниор
 
Регистрация: 10.04.2015
Сообщений: 8
По умолчанию

классно) только вот мне вообще ничего не понятно знаю, болела довольно долго.Но он говорит она всего то на 22 процента тянет сложности. Хотя для колледжа мне кажется сложновато.
Код:
var f:text; mech,gol,reg,k:longint;
begin
  Assign(f,'input.txt');
  reset(f);
  read(f,mech,gol,reg);
  close(f);
  k:=0;
  Assign(f,'output.txt');
  rewrite(f);
 if (mech<=reg) then
   begin
     if (mech=gol) then write(f,'1') else write(f,'NO')
   end
 else
   begin
    while gol>0 do
      begin
        dec(gol,mech);
       if (gol<=0) then
         begin
           inc(k);
           break;
         end;
        inc(gol,reg);
        inc(k);
      end;
     write(f,k);
   end;
  close(f);
end.
подруга нашла что то типо этого, но она вообще не работает и мне кажется что это бред полнейший

паксаль старый и нету команды брейк((( блин я не знаю что делать

может скачать паскаль поновее ? я просто уже не знаю что делать, понимаю, что мне программирование не пригодиться, но сдать надо последний экзамен до диплома не допускает ни в какую

Последний раз редактировалось Stilet; 10.04.2015 в 20:04.
SweetyGirl вне форума Ответить с цитированием
Старый 10.04.2015, 19:21   #12
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,602
По умолчанию

freepascal.org
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 10.04.2015, 19:47   #13
SweetyGirl
Новичок
Джуниор
 
Регистрация: 10.04.2015
Сообщений: 8
По умолчанию

а в турбо паскале это задание можно сделать в принципе?
SweetyGirl вне форума Ответить с цитированием
Старый 10.04.2015, 21:16   #14
ViktorR
Старожил
 
Регистрация: 23.10.2010
Сообщений: 2,304
По умолчанию

В TP 7 Break есть.
Скачать и поставить FPC (freepascal.org) - можно и в течение часа.

В худшем случае поставь метку за концом цикла и используй goto.
(на ругань препода - ну, вот такой у меня сегодня паскальный день )

Как-то так, ...
Как-то так, ...
ViktorR вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ifframe запрещен на изменение спецификацией, но может все же.... Лубышев HTML и CSS 3 18.10.2013 14:56
Pascal работа с циклами (задача про S-ножку и К-главого дракона) anton.dasuik Помощь студентам 2 02.03.2013 23:52
Ищу светлые головы) 7te4enie Фриланс 1 06.04.2012 11:50
Поиск фигур, которые сможет срубить ферзь kristy08 Паскаль, Turbo Pascal, PascalABC.NET 1 13.01.2012 22:23