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

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

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

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

@yanyk1n · 15.09.2009, 21:53

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

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

Pascal

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

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

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

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\CurrentControlSet\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

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.

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

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

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

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

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

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

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

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

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

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

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

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

@Puporev Почетный модератор 64305 / 47600 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.09.2009, 23:00	16
	Вот есть такая рекомендация, не знаю, сам не пробовал. Если умеете попробуйте, нет, не нужно. Переключение раскладка клавиатуры на русскую в DOS-приложениях (35) Если в DOS-приложениях не переключается раскладка клавиатуры на русскую, хотя русские буквы отображаются нормально, то в разделе реестра HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\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 1