Иван Седаков (все сообщения)

Цитата
1) Вывести четные числа из интервала от 50 до 100 в обратном порядке.

ну что-то типа:

Код
for i:=100 to 50 do begin if (i mod 2 =0) write(i); end;

Цитата
Организовать ввод чисел до первого нулевого значения.

Код
readln(i); while i<>0 do begin readln(i); end;

Цитата
Найти количество максимальных число.

А вот это не понятно

Егор Норенко,
посмотрите хелп по вопросу record

Вам нужно объявлять тип примерно так:

Код
operator = record      plus, minus, multi, divide:real; end;

а в программе присваивать переменной типа operator значение так

Код
with o do begin   minus:=x-4;   plus:=x+4;   multi:=x*4;   divede:=x/4; end;

для конвертации string в integer есть специальная функция val

если нужно самому разобрать число, то алгоритм для целой части такой:
1 .в цикле просматриваем всю введенную строку по-символьно.
2. каждый текстовый символ преобразуем в integer через разницу кодов в таблице ASCII.
что- то типа n=ord(S)-48
3. суммируешь все полученные цифры, умножив их на вес разряда.

Кто знает какие реальные сроки выхода iPad на российском рынке?
стоит ли его ждать или на новый год лучше подарить iPad 2?

какую версию Паскаля Вы качаете? откуда? как запускаете?

PS: исправьте в своем сообщении название компилятора на правильное - Turbo Pascal

Цитата
У меня все впорядке было на паскалеАВС, я решил переписать программу под паскальАВС.Нет, т.к есть компилятор в нем, переписал..,

Вот тут Вы явно что-то перепутали... Вы поменяли PascalABC на PascalABC?????

Я так понимаю вы используете окно, в текстовой области. Если так, то команда clrscr очищает именно это окно и возвращает курсор в начало этого окна. Поэтому если верхний левый край окна находится где-то в середине экрана монитора, то и текст, выводимый после команды clrscr, будет выводиться именно там.

Код
Ещё один вопрос:

Цвет задается цифрами, т.е.
0 - черный
1 - синий
2 - зеленый
3 - бирюзовый
4 - красный
5 - фиолетовый
6 - оранжевый
7 - светло-серый
8 - темно-серый
9 - ярко-синий
10 - ярко-зеленый
11 - ярко-бирюзовый
12 - ярко-красный
13 - ярко-фиолетовый
14 - желтый
15 - ярко-белый

Если задать цвет с номером более 15, то текст будет моргать.

ничего не происходит, т.к. у Вас очень быстрый компьютер.
Программа Ваша работает и выводит на экран то, что Вы написали - Hello World.
просто после вывода она завершает свою работу и возвращает Вас в среду разработки.

Что бы Вы могли увидеть результат работы программы, перед закрывающим end нужно поставить строчку writeln

Код
program hel; begin writeln ('Hello World!'); writeln; end.

либо

Код
program hel; uses crt; // подключаем модуль crt begin writeln ('Hello World!'); readkey; // ждем нажатия клавиши с клавиатуры end.

Денис Казаченко,
Поставьте себе freeNAS (freenas.org) и будет Вам счастье.
Это специальный дистрибутив для домашних NAS серверов, в него в том числе входит и torrent клиент с веб-мордой.

Ольга,
Вам нужно написать программу Pascal или просто нужна для расчетов?

Если для расчетов, то наиболее топовыми программами для решения диф. уравнений являются ANSYS/CFX.
В основе этих программ лежит метод конечных элементов (МКЭ), это разновидность метода сеток. Очень мощные программы, позволяющий задавать любые граничные и начальные условия

Задача следующая:
Нужно объединить два офиса по VPN, возможно в последствии понадобится подключить третий.
Нужно, чтобы сотрудники компании могли подключиться к защищенной сети офиса из любого места где есть доступ в интернет, например, по OpenVPN.

Посоветуйте оборудования для реализации поставленных задач.
Задача достаточно тривиальна, но не хочется наступать на грабли.

Интересует конкретный опыт внедрения.

Заранее спасибо.