Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.15;
Скачать: CL | DM;

Вниз

Помогите новичку   Найти похожие ветки 

 
Alex II ©   (2002-06-12 11:24) [0]

Вопрос от новичка.

Я пытаюсь изучить Delphi и объектный ПАСКАЛЬ. Купил книгу по Delphi 5. У самого на компьютере стоит Delphi 6.
Переписал с книги следующий код:

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var x, y, z, integer,

begin
ReadLn(X, Y);
Z:=X+Y;
WriteLn (Z);
ReadLn { TODO -oUser -cConsole Main : Insert code here }

end.


После нажатия кнопки F9 выдается сообщение после слова begin

Что у меня не правильно? Можно ли вообще изучать Delphi 6 по книге о Delphi 5.

Подскажите, пожалуйста!
Лучше на E-mail: apm_2000@rambler.ru


 
wicked ©   (2002-06-12 11:32) [1]

хм, это в книжке такой пример?... или ты так его набрал?...
вообще-то это должно было быть чего то вроде этого (исправления - жирным)

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var x, y, z : integer ;

begin
ReadLn(X, Y);
Z:=X+Y;
WriteLn (Z);
ReadLn { TODO -oUser -cConsole Main : Insert code here }
end.


 
wicked ©   (2002-06-12 11:33) [2]

хехе... и не видно их... ну да ладно, всего то - двоеточие после списка переменных и точка с запятой после integer...


 
cyborg ©   (2002-06-12 11:44) [3]

Вообщето нужно так :-)

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var x, y : integer;

begin
WriteLn("Enter X:");
ReadLn(X);
WriteLn("Enter Y:");
ReadLn(Y);
WriteLn(X+Y);
//Желатльно лишних переменных не втыкать в программу
//Только если ты будешь использовать эту сумму ещё где-то
//и неодин раз, то лучше использовать переменную
ReadLn;
end.


А то, что ты пытался прочитать ReadLn(X,Y);
здесь X должна быть файловая переменная!


 
cyborg ©   (2002-06-12 11:45) [4]

wicked © вместо того, что бы насмехаться, лучше бы сам подучился!


 
cyborg ©   (2002-06-12 11:59) [5]

Упс, извиняюсь, всё правильно было :-), просто думал о другом


 
Alex II ©   (2002-06-12 13:21) [6]

Спасибо всем кто откликнулся - у меня получилось!



Страницы: 1 вся ветка

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.009 c
3-47070
maxon
2002-06-20 16:41
2002.07.15
подсчёт значений


1-47537
Gamar
2002-06-27 11:25
2002.07.15
Как определить существует ли папка


6-47643
Kirill
2001-10-25 18:10
2002.07.15
Получение NET SEND


14-47713
Skier
2002-06-19 12:49
2002.07.15
Про деревья...


1-47415
Солер
2002-07-02 21:51
2002.07.15
Как программе запретить выполнять действие