![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 23.08.2007
Сообщений: 4
|
![]()
Вот проблема. Я тока начал заниматься программированием и начал учить 2 языка сразу( паскаль и делфи7).
я делаю проги паскаля на делфи в консольном приложении. Проги очень примитивные. Делфи их скопилировал. НО када их запускаешь и вводиш данные то она сразу завершается! вот код: program loans( input, output); {$APPTYPE CONSOLE} uses SysUtils; var m, n, s, p, r, a : real; begin { TODO -oUser -cConsole Main : Insert code here } read(s, p, n); r :=p/100; a :=exp( ln(1 + r)* n); m :=(s*r*a)/(12*(a-1)); m :=TRUNC(100*m + 0.5)/100; writeln ;writeln; write( ' взято $', s:4:2); write(' под ',p:5:2,'%'); write('на',n:5:2,'лет'); writeln; write('месячная выплата $',m:5:2); writeln; write('общая прибыль равна $',m*n*12-s:5:2); writeln end. ------------------- в другой проге тоже самое. Я так понял что проблема одна. но какая???? |
![]() |
![]() |
![]() |
#2 |
Great Code Monkey
Форумчанин
Регистрация: 09.08.2007
Сообщений: 533
|
![]()
прямо перед эндом напиши readln;
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 23.08.2007
Сообщений: 4
|
![]()
все равно тож самое. вводиш данные и она закрывается.
|
![]() |
![]() |
![]() |
#4 |
Great Code Monkey
Форумчанин
Регистрация: 09.08.2007
Сообщений: 533
|
![]()
епрст, этот буфер. поставь там два readln;
И еще: русски буквы не выводятся: либо делай chartooem и oemtochar, либо пиши свою функцию первода, либо пиши по-латински... |
![]() |
![]() |
![]() |
#5 |
Регистрация: 23.08.2007
Сообщений: 4
|
![]()
да ладна ребята, я уже всё сделал! ток вот жаль ни делфи ни паскаль не пишет по русскому! ток инглиш или как там - по-латински
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Многопоточные приложения | MaTBeu | Общие вопросы C/C++ | 17 | 24.05.2008 20:37 |
Делаю сайты, пишу маленькие/большие скрипты. Пишу веб-приложения и приложения под Windows. | SkyM@n | Фриланс | 3 | 29.12.2007 16:21 |
Приложения в XP | vicvtor | Win Api | 9 | 31.08.2007 22:55 |
создание приложения | MarinaSt | Общие вопросы Delphi | 8 | 04.07.2007 23:51 |
Иконка приложения | Баламут | Общие вопросы Delphi | 9 | 05.06.2007 20:14 |