AdminButchery

1. Как пишется "очистка экрана"?
2. Как файл .PAS сохранять в .EXE в Паскале?
3. Почему при запуске файла .PAS в этой же папке создаётся файл вроде "TP026D79.$$$" прочём сколько раз запускаю паскалевский файл, столько рядом и накапливается этих противных ненужных .%%%? Это так и должно быть?

Matrix

в паскале открываешь файл *.pas и где то там в панели управления есть функция типа Собрать, или Компилировать,( точно не помню название, давно не пользовался)

AlexZir

1. В зависимости от выбранного режима используются разные команды:
clrscr
clearviewport
2. Для создания исполнимого (exe) файла в любой среде программировани необходимо компилировать (интерпретировать) код программы. В Pascal-е это можно сделать в окне редактора кода командой Compile.
3. При запуске файла программы на исполнение среда автоматически компилирует файл без создания исполнимого модуля exe. Вместо него создается временный файл с расширением $$$. Так что появление таких файлов является рабочим моментом среды ;).

__________________
Убить всех человеков!

AdminButchery

Благодарю! Ещё вопрос: как запрограммировать выход из программы до её полного завершения? Например: "введите 1 для продолжения, 0 для выхода"? Проюовал через условие с переменной, но что-то не получается, и я не знаю сам код этого выхода

AdminButchery

а очистка (clrscr) пишется же в разделе описаний? Почему-то у меня с этой строчкой прога не хочет работать (указывает на ошибку";") И после clrscr хоть ставлю ;, хоть не ставлю ; всё равно не работает

AlexZir

if (c='y') or (c='Y') then halt(1); // c - символьная переменная

Это оператор из состава расширенной текстовой библиотеки crt. Перед ее использованием необходимо подключить модуль crt, то есть в начале программы ниже строки
program name;
написать
uses crt;
Используется в разделе команд и операторов программы.

__________________
Убить всех человеков!

AdminButchery

AlexZir, пожалуйста помоги разобраться с условиями.
Вот моя задача.
Program idealni_ves;
var
a,b,c,d,e:real;
begin
writeln('Eta programma opredelit tvoi idealnii ves, i podskahet na skolko tebe nyhno pohudet ili popravitsa!');
writeln(' Vvedite vash rost (cm): ');read(a);
writeln('vvedite vash ves (kg): ');read(b);
c:=a-100;
d:=b-c;
e:=c-b;
if b>c then
writeln('Vash idealnii ves ',c:2:0,' kg. Vash ves previshaet normy na ',d:2:0, ' kg')
else
writeln('Vash idealnii ves ',c:2:0,' kg. Vam helatelno popravitsa na', e:2:0,' kg.');
read(e)
end.
как мне в неё добавить ещё дополнительное условие: деление по возрасту (до 40 лет и после 40 лет).
Про этом чтобы формула рассчёта идеального веса после 40 лет будет такой x:=a-80 (а до 40 лет с:=a-100)
Если поможете разобраться,как вставить это дополнительное условия я буду очень благодарен!

AdminButchery

help me, please!

AdminButchery

спасибо всем, я задачу уже решил сам!

AdminButchery

1.Подбросьте ссылочку, пожалуйста, где можно скачать Turbo/Borland Pascal 7.0 (или выше) c русским интерфейсом и справкой
2.в операторе выбора, после набора значения какие операторы можно использовать? Я хотел условие подключить по каждому значению в выборе, но не получается... Пожалуйста скиньте пример текста как в операторе выбора подключается оператор условия