Форум АНТИЧАТ - [Delphi]/[Pascal] Задай вопрос, получи ответ

#11

20.05.2008, 15:51

0verbreaK

Постоянный

Регистрация: 30.04.2008

Сообщений: 323

Провел на форуме:
379101

Репутация: 136

Цитата:

Сообщение от Andres

Парни помогите решить проблемку с программой, вроде все правильно прописал, а не работает!

Код:

Program Dialog;                    {расширенный  диалог  —  второй  вариант)
const
Question =' What is your name?';
Rep(y1 =
'Паскаль — прост, но первый компилятор Паскаля был написан на Паскале';
Reply21 = 'Вас ждет удивительное путешествие';
Reply22 = 'сквозь джунгли особенностей и возможностей языка';
Reply3 =
'Паскаль — разумный компромисс между желательным и эффективным';
Reply4 = 'Паскаль академически элегантен';
var
Name: string;
Age: byte;
begin
WriteLn(Question);   ReadLn(Name);      {Ввод    имени}    WriteLn('Hello,',
Name,'!');          {Вывод  приветствия}  WriteLn('How   old   are   you?');
{Вопрос о возрасте} ReadLn(Age);                     {Ввод возраста}  if  12
< Age then WriteLn(Reply1 );
if (12 <= Age) and (Age < 20) then begin
WriteLn (Reply21);
WriteLn (Reply22) end;
if (20 <= Age) and (Age < 40) then WriteLn(Reply3);
if Age >= 40 then WriteLn(Reply4) end.

Коментарий закрой в первой строчке }, а не )

Далее,

Че за y1

Код:

Rep(y1 ='Паскаль — прост, но первый компилятор Паскаля был написан на Паскале';

Должно быть

Код:

Reply1 ='Паскаль — прост, но первый компилятор Паскаля был написан на Паскале';

Странные условия

Код:

if  12 < Age then WriteLn(Reply1 );   { Вопрос о возрасте}
  if (12 <= Age) and (Age < 20) then begin

Используй отступы для повышения читаемости кода

Код:

Program Dialog;                    {расширенный  диалог  —  второй  вариант}
const
  Question =' What is your name?';
  Reply1 ='Паскаль — прост, но первый компилятор Паскаля был написан на Паскале';
  Reply21 = 'Вас ждет удивительное путешествие';
  Reply22 = 'сквозь джунгли особенностей и возможностей языка';
  Reply3 = 'Паскаль — разумный компромисс между желательным и эффективным';
  Reply4 = 'Паскаль академически элегантен';
var
  Name: string;
  Age: byte;
begin
  WriteLn(Question);   
  ReadLn(Name);      {Ввод    имени}   
  WriteLn('Hello,',Name,'!');          
  WriteLn('How   old   are   you?');   {Вывод  приветствия} 
  ReadLn(Age); {Ввод возраста}  
  if  12 < Age then WriteLn(Reply1 );   { Вопрос о возрасте}
  if (12 <= Age) and (Age < 20) then begin
    WriteLn (Reply21);
    WriteLn (Reply22) end;
  if (20 <= Age) and (Age < 40) then WriteLn(Reply3);
  if Age >= 40 then WriteLn(Reply4) 
end.

Дополнение...

Лучше использовать конструкцию case, так как
в ней можно писать вот такие вещи, ниже пример:

Код:

program seasons;
uses CRT;
var
  n: Integer;
begin
  clrscr;
  writeln('Введите номер месяца');
  readln(n);
  writeln('Время года');
  writeln('Время года: ');
  case n of 
    1,2,12: writeln('Зима');
    3..5: writeln('Весна');
    6..8: writeln('Лето');
    9..11: writeln('Осень');
  else writeln('номер месяца неверен');
  end;
  readln;
end.

И еще, скачай какой нибудь профессиональный исходник и возьми пример оформления кода из него.

Последний раз редактировалось 0verbreaK; 20.05.2008 в 18:57..