Pascal

Dima071 · 22.02.2008, 16:54

Помогите.Пишу программу в паскале ->сохраняю в EXE ->запускаю , всё норм ввожу а , ввожу b -> далее просто закрывается окно. Помогите , кто знает.

VipeR · 22.02.2008, 16:57

что такое b? что за программа? исходники выложи

Dima071 · 22.02.2008, 18:49

a,b - переменные
¦Program test_1; ^
¦var a,b,c:real; ¦
¦begin -
¦Writeln('a='); -
¦Read(a); -
¦Writeln('b='); -
¦Read(b); -
¦c:=a+b; -
¦Writeln('c=',c:5:2); -
¦end.

TOMMY · 22.02.2008, 18:49

Програма исполнила все действия и поетому закривается.
Зделай так:
(example)

Код:

var
 a, b:integer; 
begin
read(a, b);
writeln(a+b);
writeln('Press <enter> to continue...')
readln;
end.

Dima071 · 22.02.2008, 19:00

Всёравно закрывается
http://img156.imageshack.us/img156/8340/111cn6.jpg

Dima071 · 22.02.2008, 19:14

Хы , я придумал . Может это и не оч практично , но работает. Я проста добавил ещё одну переменную , которую он считывает после выполнения действия , тем самым можно увидеть ответ !)
File Edit Search Run Compile Debug Tools Options Window Help
г=[¦]============================= PROBA.PAS ============================1=[¦]=¬
¦program ggg; ^
¦var a,b,d:integer;c:real; ¦
¦begin -
¦Write('Введите а'); -
¦Read(a); -
¦Write('Введите b'); -
¦Read(b); -
¦c:=a+b; -
¦Writeln('c=',c:5:2); -
¦read(d); -
¦end. -
¦ -
¦ -
¦ -
¦ -
¦ -
¦ -
¦ -
¦ -
¦ -
¦ Ў
L====== 11:5 =====<¦--------------------------------------------------------->--
F1 Help F2 Save F3 Open Alt+F9 Compile F9 Make Alt+F10 Local menu

gunmetal · 24.10.2009, 15:47

Помогите удалить вирус обнаруженный антивирусом Avats. Имя вируса Win32:MalOb-X[Crip] тип вируса: вирус/червь. Нашли его на C:/Documents and Setting/Администрато/Local Settings/Temporary Internet Fiies/Content.IE5/7G738HS8/Install[1].exe Не возможно не вылечить не удалить, что можно сделать?

set of letters · 24.10.2009, 15:48

Цитата:

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

что можно сделать?

http://pchelpforum.ru/f26/t6442/#post37758

22.02.2008, 18:49	#4 (permalink)
TOMMY Member Регистрация: 12.01.2008 Сообщений: 22 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Програма исполнила все действия и поетому закривается. Зделай так: (example) Код: var a, b:integer; begin read(a, b); writeln(a+b); writeln('Press <enter> to continue...') readln; end.

24.10.2009, 15:47	#7 (permalink)
gunmetal Новичок Регистрация: 23.06.2008 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите уничтожить вирус Помогите удалить вирус обнаруженный антивирусом Avats. Имя вируса Win32:MalOb-X[Crip] тип вируса: вирус/червь. Нашли его на C:/Documents and Setting/Администрато/Local Settings/Temporary Internet Fiies/Content.IE5/7G738HS8/Install[1].exe Не возможно не вылечить не удалить, что можно сделать?

22.02.2008, 16:54	#1 (permalink)
Dima071 Member Регистрация: 19.01.2008 Сообщений: 86 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите.Пишу программу в паскале ->сохраняю в EXE ->запускаю , всё норм ввожу а , ввожу b -> далее просто закрывается окно. Помогите , кто знает.

22.02.2008, 16:54
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Прошу вас, ознакомьтесь с похожими темами Pascal Pascal

22.02.2008, 16:57	#2 (permalink)
VipeR Имперская инквизиция Регистрация: 14.02.2007 Сообщений: 6,097 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 3046	что такое b? что за программа? исходники выложи

22.02.2008, 18:49	#3 (permalink)
Dima071 Member Регистрация: 19.01.2008 Сообщений: 86 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	a,b - переменные ¦Program test_1; ^ ¦var a,b,c:real; ¦ ¦begin - ¦Writeln('a='); - ¦Read(a); - ¦Writeln('b='); - ¦Read(b); - ¦c:=a+b; - ¦Writeln('c=',c:5:2); - ¦end.

22.02.2008, 19:00	#5 (permalink)
Dima071 Member Регистрация: 19.01.2008 Сообщений: 86 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Всёравно закрывается http://img156.imageshack.us/img156/8340/111cn6.jpg

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

22.02.2008, 19:14	#6 (permalink)
Dima071 Member Регистрация: 19.01.2008 Сообщений: 86 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Хы , я придумал . Может это и не оч практично , но работает. Я проста добавил ещё одну переменную , которую он считывает после выполнения действия , тем самым можно увидеть ответ !) File Edit Search Run Compile Debug Tools Options Window Help г=[¦]============================= PROBA.PAS ============================1=[¦]=¬ ¦program ggg; ^ ¦var a,b,d:integer;c:real; ¦ ¦begin - ¦Write('Введите а'); - ¦Read(a); - ¦Write('Введите b'); - ¦Read(b); - ¦c:=a+b; - ¦Writeln('c=',c:5:2); - ¦read(d); - ¦end. - ¦ - ¦ - ¦ - ¦ - ¦ - ¦ - ¦ - ¦ - ¦ - ¦ Ў L====== 11:5 =====<¦--------------------------------------------------------->-- F1 Help F2 Save F3 Open Alt+F9 Compile F9 Make Alt+F10 Local menu