• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Pascal

  • Автор темы Автор темы Dima071
  • Дата начала Дата начала

Dima071

Новые
Регистрация
19 Янв 2008
Сообщения
86
Реакции
0
Баллы
0
Помогите.Пишу программу в паскале ->сохраняю в EXE ->запускаю , всё норм ввожу а , ввожу b -> далее просто закрывается окно. Помогите , кто знает.
 
что такое b? что за программа? исходники выложи
 
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.
 
Програма исполнила все действия и поетому закривается.
Зделай так:
(example)
Код:
var
 a, b:integer; 
begin
read(a, b);
writeln(a+b);
writeln('Press <enter> to continue...')
readln;
end.
 
Всёравно закрывается
 
Хы , я придумал . Может это и не оч практично , но работает. Я проста добавил ещё одну переменную , которую он считывает после выполнения действия , тем самым можно увидеть ответ !)
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
 
Помогите уничтожить вирус

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