VPF::Lazarus под Win32 - Форум программистов

RSV

Дата 10.11.2007, 09:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Всем привет! У меня вот какая проблема.
В Lazarus(е) под Win32 в откомпилированном .exe
после ввода данных нажимаю Enter для получения
результата, а файл почему то закрывается. Хотя
в Lazarus(e) под Linux все работает.
Помогите разобратся. Заранее спасибо!!!

Код


program Project1;
uses
  Classes, SysUtils;
var x,v,z:double;t:byte;
begin
writeln('vvedite summu z');
 readln(z);
writeln('vvedite type');
 readln(t);
case t of
1:x:=(z/100)*10;
2:x:=(z/100)*15;
3:x:=(z/100)*20;
else
writeln('vybran ne vernyu type');
end;
v:=z+x;
writeln('v=', v);
end.

Это сообщение отредактировал(а) volvo877 - 10.11.2007, 10:45

MetalFan

Дата 10.11.2007, 09:55 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

ну правильно... результат вывели и программа закончилась.
добавь какойнить ReadLn или настрой чтобы консольное окно после завершения не закрывалось

--------------------

There are always someone smarter than you...

RSV

Дата 10.11.2007, 16:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Цитата(MetalFan @ 10.11.2007, 09:55)

Если не трудно, подскажи где именно настроить
консольное окно. Я только пытаюсь научится пользоваться Lazarus(ом).
Заране спасибо.

OdesitVadim

Дата 14.11.2007, 01:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 40
Регистрация: 9.11.2007
Где: Одесса:)

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

Readln; нужно добавлять после последнего Writeln. Но не физически последнего, а по логике работы (часто они совпадают).
Readln будет ожидать нажатия Enter.
иногда, когда осуществлается не только вывод, но и ввод, одного readln недостаточно - программа всё равно закрывается. тогда достаточно написать их два (или понять, какой же read не дочитал данные с буфера)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »