вопросы по Pascal 7.0

[AdminButchery]

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

 

[Matrix]

2. Как файл .PAS сохранять в .EXE в Паскале?

в паскале открываешь файл *.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 - символьная переменная

очистка (clrscr) пишется же в разделе описаний?

Это оператор из состава расширенной текстовой библиотеки 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.в операторе выбора, после набора значения какие операторы можно использовать? Я хотел условие подключить по каждому значению в выборе, но не получается... Пожалуйста скиньте пример текста как в операторе выбора подключается оператор условия

 

[AlexZir]

...
var n: integer;
...
writeln('Введите номер месяца');
readln(n);
case n of
1: writeln('январь');
2: writeln('февраль');
3: writeln('март');
4: writeln('апрель');
5: writeln('май');
6: writeln('июнь');
7: writeln('июль');
8: writeln('август');
9: writeln('сентябрь');
10: writeln('октябрь');
11: writeln('ноябрь');
12: writeln('декабрь');
else writeln('нет такого месяца');
end;
...

 

[AlexZir]

как в операторе выбора подключается оператор условия

var n, g: integer;
...
writeln('текущий год');
readln(g);
writeln('текущий месяц');
readln(n);
case n of
1, 3, 5, 7, 8, 10, 12: writeln('в месяце 31 день');
4, 6, 9, 11: writeln('в месяце 30 дней');
2: if g/4=round(g/4) then writeln('в месяце 29 дней') else writeln('в месяце 28 дней');
end;
...

 

[2team]

Не открываются сайты

Добрый вечер у меня возникла проблема перестали открываться сайты, такие как
satsat.info dimonvideo.ru, раньше нормально открывались, а щас нет.
При том у меня у знакомого открывается в лет (у на с ним один и тот же провайдер, кент живет в 2х домах от меня)
Система ХР SP2, ADSL, модем D-link-2500U
Я ставил разные браузеры. Мозила, Опера, IE 6----безрезультатно
Чистил кэш 50раз
Вроде бы сбрасывал настройки TCP/IP (я не знаю по каким параметрам судить о том что они сброшены).
Но нашел прогу Fix It запутил и вроде должно было сброситься--------------безрезультатно

**************файл \WINDOWS\system32\drivers\etc\hosts****************
# (C) Корпорация Майкрософт (Microsoft Corp.), 1993-1999
#
# Это образец файла HOSTS, используемый Microsoft TCP/IP для Windows.
#
# Этот файл содержит сопоставления IP-адресов именам узлов.
# Каждый элемент должен располагаться в отдельной строке. IP-адрес должен
# находиться в первом столбце, за ним должно следовать соответствующее имя.
# IP-адрес и имя узла должны разделяться хотя бы одним пробелом.
#
# Кроме того, в некоторых строках могут быть вставлены комментарии
# (такие, как эта строка), они должны следовать за именем узла и отделяться
# от него символом '#'.
#
# Например:
#
# 102.54.94.97 rhino.acme.com # исходный сервер
# 38.25.63.10 x.acme.com # узел клиента x

127.0.0.1 localhost

Вот проверил. Вроде нормальный

делал трассировку

Microsoft Windows XP [Версия 5.1.2600]
(С) Корпорация Майкрософт, 1985-2001.

C:tracer yandex.ru
"tracer" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом.

C:\tracert yandex.ru

Трассировка маршрута к yandex.ru [87.250.251.11]
с максимальным числом прыжков 30:

1 <1 мс <1 мс <1 мс 192.168.1.1
2 17 ms 17 ms 17 ms 1.0.114.188.donpac.ru [188.114.0.1]
3 18 ms 18 ms 17 ms 7609ptpSE800.donpac.ru [80.254.108.189]
4 20 ms 18 ms 22 ms 193.232.140.33
5 36 ms 41 ms 36 ms korolev-vlan2301.yandex.net [213.180.208.18]
6 46 ms 44 ms 38 ms popovich-vlan121.yandex.net [87.250.233.110]
7 44 ms 41 ms 40 ms einstein-vlan2.yandex.net [87.250.228.138]
8 44 ms * 37 ms yandex.ru [87.250.251.11]

Трассировка завершена.

C:\ satsat.info

Трассировка маршрута к satsat.info [78.159.119.191]
с максимальным числом прыжков 30:

1 <1 мс <1 мс <1 мс 192.168.1.1
2 18 ms 17 ms 17 ms 1.0.114.188.donpac.ru [188.114.0.1]
3 18 ms 17 ms 18 ms 7609ptpSE800.donpac.ru [80.254.108.189]
4 18 ms 18 ms 18 ms 85.116.254.80.donpac.ru [80.254.116.85]
5 18 ms 18 ms 18 ms 85.173.2.12
6 18 ms 18 ms 18 ms 85.173.2.83
7 33 ms 33 ms 33 ms Atlant.naukanet.ru [77.94.166.45]
8 92 ms 93 ms 93 ms de-cix01.fra3.gatewayrouter.net [80.81.192.147]

9 94 ms 94 ms 94 ms 89-149-218-182.gatewayrouter.net [89.149.218.182
]
10 * * * Превышен интервал ожидания для запроса.
11 * * *

ЛЮДИ ДОБРЫЕ ПОМОГИТЕ СПРАВИТЬСЯ С ЭТОЙ ПРОБЛЕМОЙ!!!!!
И ранее такое было помогало только переустановка Винды, а это делать так не хочется, да и невозможно в данный момент.