не дождаться ответа

@Ариф · Регистрация: 14.09.2009

Студворк — интернет-сервис помощи студентам

Уважаемые участники форума. я впервые сталкиваюсь с программой ТП и прошу помочь мне.
Я приобрел книгу о программировании и решил написать самую маленькую програмку. Скачал ТБ 7.0, написал так как в книге, сохранил и проверил. При нажатии Run должно появиться решение...но этого не происходит.
Как мне теперь посмотреть результат?Все файлы прошерстил ни где нет. Помогите советом. Может я не полную версию скачал? Написал я просто и должен был выйти хоть какой-то ответ
Program dva_dva;
begin
write (2*2);
end.

@yanyk1n · 15.09.2009, 21:53

перед последним end. ставь readln; он будет ожидать нажатие enter'a

Добавлено через 52 секунды
пример:

Pascal
1
2
3
4
5
6
7
program ss;
var a,b:integer;
begin
 readln(a,b);
 writeln(a+b);
 readln;
end.

@TAVulator · 15.09.2009, 22:03

а еще в TP7 можно нажать Alt+F5 и посмотреть что программа выводила на экран :-)

@Ариф · 15.09.2009, 22:11 **[ТС]**

Спасибо за советы. Я попробовал вставить readln; и получилось!!!! Это прекрасно! Но почему readln;? Об этом ничего не было сказано.

@TAVulator · 15.09.2009, 22:14

Ариф, а если подумать?
оператор Readln запрашивает что-то у пользователя, конец ввода является нажатие Enter...
вот ты и жмешь Enter и программа заканчивает свою работу, а до этого она выполнялась, ожидая ввода пользователя.

@Ариф · 15.09.2009, 22:14 **[ТС]**

В том то и дело, что она ничего не выводила на экран)

@Puporev · 15.09.2009, 22:22

В том то и дело, что она ничего не выводила на экран)

И не будет, это установлено по умолчанию. Поэтому для начинающих юзеров в конце программы иногда пишут

Pascal
1
2
3
4
5
6
7
8
program ss;
var a,b:integer;
begin
 readln(a,b);
 writeln(a+b);
 write('Для выхода из программы нажмите Enter!');
 readln;
end.

@Ариф · 15.09.2009, 22:24 **[ТС]**

подскажите пожалуйста как в ТБ писать по-русски. В горе книге описываются задачи, где есть всякие приветствия которые потом должны выводиться по окончанию решения.

@molodoi programmist · 15.09.2009, 22:27

нажми одновременно shift shift ( левый и правый шифты) должно помоч=)

@Puporev · 15.09.2009, 22:28

В настройках компьютера первым языком по умолчанию должен стоять русский, а не английский. Тогда при нажатии правых Ctrl+Shift будет русская раскладка клавиатуры, то же сочетание слева - английская.

@Ариф · 15.09.2009, 22:40 **[ТС]**

Подскажите пожалуйста. я во первых так и не смог выйти на русский язык. Какие ошибки я допустил, что нет возможности задать значения переменным?

Pascal
1
2
3
4
5
6
program ya_znayu_1;
      var a,b,c:integer;
            begin
            writeln (' znayu 4to a*b*c=',a*b*c);
            readln;
            end.

Спасибо за терпение.

@Puporev · 15.09.2009, 22:52

Pascal
1
2
3
4
5
6
7
var a,b,c:integer;
begin
writeln('Vvedite 3 celyh cisla:');
readln(a,b,c);
write (' znayu 4to a*b*c=',a*b*c);
readln
end.

Добавлено через 2 минуты
У Вас какая раскладка клавиатуры по умолчанию, при запуске компьютера, русская или английская?

@Ариф · 15.09.2009, 22:54 **[ТС]**

отлично!!

Добавлено через 22 секунды
русская

@Puporev · 15.09.2009, 22:55

Нажимаете правые Ctr+Shift и ничего?

@Ариф · 15.09.2009, 22:56 **[ТС]**

так точно.

@Puporev · 15.09.2009, 23:00

Вот есть такая рекомендация, не знаю, сам не пробовал. Если умеете попробуйте, нет, не нужно.

Переключение раскладка клавиатуры на русскую в DOS-приложениях
(35) Если в DOS-приложениях не переключается раскладка клавиатуры на русскую, хотя русские буквы отображаются нормально, то в разделе реестра

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControl Set\Contro l\KeyboardLayout\DosKeybCodes
измените значение параметра "00000409" на "ru". Кроме этого, в файле autoexec.nt, расположенном в Winnt\system32, добавьте строку
lh %SystemRoot%\system32\kb16.com ru
После перезагрузки переключение раскладки клавиатуры в DOS-приложениях будет производиться комбинациями клавиш <Ctrl>+<левый═Shift> (английская раскладка) и <Ctrl>+<правый═Shift> (русская).
Данный метод нормально работает в том случае, если в Панели управления в настройках региона (Regional Options) для параметра "Language settings for the system" в качестве Default стоит Cyrilic.

Алексей Шашков Win2000 FAQ

@Puporev · 15.09.2009, 23:07

Кстати запустите мою программу, проверьте, русские шрифты отображаются правильно или нет.

@Ариф · 15.09.2009, 23:15 **[ТС]**

сейчас попробую

@Ариф · 15.09.2009, 23:28 **[ТС]**

вроде что-то получилось

@Puporev · 15.09.2009, 23:37

Я не понял, что получилось. Какая-то чушь написана, программа зависает. Я спрашивал у Вас в моей программе русские шрифты нормально отображаются?

Добавлено через 5 минут
Вот это Вы писали, или как-то Ваш комп переделал?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var i,a,b,k:integer;
begin
clrscr;
writeln (2,3,5,8,9,4,5,6,1,3);
readln (a);
k:=0;i:=1;
repeat
readln (b);
if a*b=0 then k:=k+1;
i:=i+1;
a:=b;
until i=10;
write ('2=',k);
readln
end.

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

@Ариф 0 / 0 / 0 Регистрация: 14.09.2009 Сообщений: 12

	не дождаться ответа 15.09.2009, 21:51. Показов 2168. Ответов 24 Метки нет (Все метки) Уважаемые участники форума. я впервые сталкиваюсь с программой ТП и прошу помочь мне. Я приобрел книгу о программировании и решил написать самую маленькую програмку. Скачал ТБ 7.0, написал так как в книге, сохранил и проверил. При нажатии Run должно появиться решение...но этого не происходит. Как мне теперь посмотреть результат?Все файлы прошерстил ни где нет. Помогите советом. Может я не полную версию скачал? Написал я просто и должен был выйти хоть какой-то ответ Program dva_dva; begin write (2*2); end. 0

@TAVulator ⚽ 4191 / 1292 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	15.09.2009, 22:03
	а еще в TP7 можно нажать Alt+F5 и посмотреть что программа выводила на экран :-) 1

@Ариф 0 / 0 / 0 Регистрация: 14.09.2009 Сообщений: 12
	15.09.2009, 22:11 [ТС]
	Спасибо за советы. Я попробовал вставить readln; и получилось!!!! Это прекрасно! Но почему readln;? Об этом ничего не было сказано. 0

@TAVulator ⚽ 4191 / 1292 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	15.09.2009, 22:14
	Ариф, а если подумать? оператор Readln запрашивает что-то у пользователя, конец ввода является нажатие Enter... вот ты и жмешь Enter и программа заканчивает свою работу, а до этого она выполнялась, ожидая ввода пользователя. 1

@Ариф 0 / 0 / 0 Регистрация: 14.09.2009 Сообщений: 12
	15.09.2009, 22:14 [ТС]
	В том то и дело, что она ничего не выводила на экран) 0

@Ариф 0 / 0 / 0 Регистрация: 14.09.2009 Сообщений: 12
	15.09.2009, 22:24 [ТС]
	подскажите пожалуйста как в ТБ писать по-русски. В горе книге описываются задачи, где есть всякие приветствия которые потом должны выводиться по окончанию решения. 0

@molodoi programmist 2 / 2 / 0 Регистрация: 06.02.2009 Сообщений: 24
	15.09.2009, 22:27
	нажми одновременно shift shift ( левый и правый шифты) должно помоч=) 1

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	15.09.2009, 22:28
	В настройках компьютера первым языком по умолчанию должен стоять русский, а не английский. Тогда при нажатии правых Ctrl+Shift будет русская раскладка клавиатуры, то же сочетание слева - английская. 1

@Ариф 0 / 0 / 0 Регистрация: 14.09.2009 Сообщений: 12
	15.09.2009, 22:54 [ТС]
	отлично!! Добавлено через 22 секунды русская 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	15.09.2009, 22:55
	Нажимаете правые Ctr+Shift и ничего? 0

@Ариф 0 / 0 / 0 Регистрация: 14.09.2009 Сообщений: 12
	15.09.2009, 22:56 [ТС]
	так точно. 0

@Ариф 0 / 0 / 0 Регистрация: 14.09.2009 Сообщений: 12
	15.09.2009, 23:15 [ТС]
	сейчас попробую 0