Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Флейм
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Закрытая тема
 
Опции темы Поиск в этой теме Опции просмотра
  #31  
Старый 02.04.2013, 15:56
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Спасибо за совет, но я лучше пойду поработаю немного, нервишки успокою (обед уже был, не помогло правда), а к последнему пункту прислушаюсь объязательно!
  #32  
Старый 02.04.2013, 16:03
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

Код:
program HelloWorld;
 uses
    Crt;
  Var
    otvet:string;
    Label L1, L2;
    Begin
      writeln;
      writeln;
      writeln;
      writeln;
      writeln('Ну как, завершим программу?');
      readln(otvet);
      if otvet='Да, завершим программу' then
        GoTo L1;
      L1:
        Writeln('Вы уверены? (Y/N)');
        if ReadKey='y' then
          GoTo L2
        else
        begin
          ClrScr;
          GoTo L1;
        end;

      L2:
         Writeln('Неее, выходить ещё рано!');

       asm
         nop
       end;

    end.
Забавная прога получилась... Кого учителя линейкой по руках за использование меток не били, самое время начать... Не понимаю, че им в метках не нравится?
  #33  
Старый 02.04.2013, 16:59
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Вот теперь пора отправлять на конкурс программ.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
  #34  
Старый 02.04.2013, 17:10
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Зато мы собрали команду и написали прогу!
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
  #35  
Старый 02.04.2013, 17:18
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Мда, собрать команду единомышленников всегда трудно, а для написания программ вдвойне.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
  #36  
Старый 02.04.2013, 17:43
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

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

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
  #37  
Старый 02.04.2013, 17:52
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Метки хороши, когда вы в состоянии их увидеть на экране. А вот когда у вас портянка кода хотя-бы в 10-страниц, метки могут запутать так, что не дай боже.
А по коду, вам не кажется, что прога несколько неверно анализирует ответ?
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.

Последний раз редактировалось Страдалецъ, 02.04.2013 в 17:56.
  #38  
Старый 02.04.2013, 17:56
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Также не забываем, что любые переходы: условные (if), циклы (while, repeat, for) по сути используют те же метки (ja, je, jb далее лень перечислять).
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
  #39  
Старый 02.04.2013, 17:59
Аватар для Mrak
Mrak Mrak вне форума
Местный
 
Регистрация: 26.01.2013
Адрес: МО
Сообщения: 438
Версия Delphi: XE2
Репутация: 17
По умолчанию

... после года исследований тестер умер от безысходности ...
__________________
Я за здоровый экстрим!
Спасибо за "спасибо")
  #40  
Старый 04.04.2013, 01:05
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Что-то здесь не так, а где собсно заявленный "Hello World"? Это не тот код получился, кириллица не отображается. Вот что с доработкой получилось (и под TP и под делфи)
Код:
program HelloWorld;
{$IFDEF MSWINDOWS}
{$APPTYPE CONSOLE}
{$ENDIF}
uses
{$IFDEF MSWINDOWS}
Windows, SysUtils, CRT32 in 'CRT32.pas';
{$H-}
{$ELSE}
crt;
{$ENDIF}

Var
    otvet:string;
    Label L1, L2;

begin
      Clrscr;
      setconsoleCp(866);
      Writeln('Hello World!!!');
      writeln;
      writeln;
      writeln;
      writeln;
      writeln('Ну как, завершим программу?');
      readln(otvet);
   if otvet='Да, завершим программу' then
        GoTo L1;
      L1:
        Writeln('Вы уверены? (Y/N)');
        if ReadKey = 'y' then
          GoTo L2
        else
        begin
          ClrScr;
          GoTo L1;
        end;
      L2:
         Writeln('Неее, выходить ещё рано!');
end.
На всякий случай, прикладываю CRT32.pas, чтоб не искать.

И всё равно, что-то здесь смущает...

З.Ы. По теме
Вложения
Тип файла: zip CRT32.zip (6.4 Кбайт, 2 просмотров)
  #41  
Старый 04.04.2013, 02:30
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Пропустил строку.
Код:
  SetConsoleOutputCP(866);
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Закрытая тема


Delphi Sources

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

Расширенный поиск
Опции просмотра

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

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:50.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter