1.8. Пример действий по подготовке и выполнению программы

Запустите TurboPascalи введите текст своей программы, например:

{Программа вычисления суммы двух чисел}

programFirstProgram;

var

A, B: Real;{вводимые данные}

Sum: Real;{сумма чисел }

begin

Writeln('Программа вычисления суммы двух чисел');

Writeln('Автор: Иванов И.И.');

Write('Введите два любых числа через пробел: ');

Readln(A,B);

Sum:=A+B; {вычисление суммы двух чисел... }

Writeln('Сумма: ',Sum:8:2);

end.

Для сохранения программы выберите меню File\ Save (или F2).

Для выполнения программы следует выбрать Run \ Run в главном меню (или нажать Ctrl+F9). При наличии ошибки см. п. 1.9.

Пример работы описанной выше программы

1) На экран выводятся сообщения, которые заданы в операторах Writeln вашей программы:

> Программа вычисления суммы двух чисел

> Автор: Иванов И.И.

> Введите два любых числа через пробел:

2) Пользователь вводит через пробел два числа и нажимает Enter.

3) На экран выводится следующее сообщение:

> Сумма:

а за ним – вычисленная сумма двух введенных чисел.

Для просмотра результатов работы программы, выберите меню Debug\UserScreen(Отладка \ Окно пользователя) или нажмитеAlt+F5.

1.9. Ошибки компиляции

Если в процессе компиляции текста программы TurboPascalобнаружит ошибку, то курсор будет автоматически перемещен на строку с ошибкой, а в красной рамке появится сообщение об ошибке в формате:

Error<код_ошибки>: Сообщение об ошибке на английском языке

Наиболее вероятные ошибки компиляции:

Error 2: Identifier expected {Ожидается идентификатор}

Error 3: Unknown identifier {Неизвестный идентификатор}

Error 4: Duplicate identifier {Идентификатор дублируется}

Error 12: Type identifier expected {Ожидается тип идентификатора}

Error 26: Type mismatch {Несоответствие типов}

Error 36: BEGIN expected {Ожидается BEGIN}

Error 37: END expected {Ожидается END }

Error 62: Division by zero {Деление на 0}

Error 85: ";" expected {Ожидается ";"}

Error 86: ":" expected {Ожидается ":"}

Error 87: "," expected {Ожидается ","}

Error 88: "(" expected {Ожидается "("}

Error 89: ")" expected {Ожидается ")"}

Error 91: ":=" expected {Ожидается ":="}

Error 94: "." expected {Ожидается "."}

Error 113: Error in statement {Ошибка в операторе}

1.10. Варианты заданий

номер	Условие задачи	примечание
1,2, 3,4		Вычислить значение выражения по формуле (все переменные принимают действительные значения)
5	Вычислить периметр и площадь прямоугольного треугольника по длинам а и b двух катетов.
6	Заданы координаты трех вершин треугольника (x1, y1), (х2, y2), (x3, y3). Найти его периметр и площадь.
7	Вычислить длину окружности и площадь круга одного и того же заданного радиуса R.
8	Найти произведение цифр заданного четырехзначного числа.
9	Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел.
10	Вычислить расстояние между двумя точками с данными координатами (x1, y1) и (x2, y2).
11	Даны два действительных числа х и у. Вычислить их сумму, разность, произведение и частное.
12	Дана длина ребра куба. Найти площадь грани, площадь полной поверхности и объем этого куба.
13	Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоту, радиусы вписанной и описанной окружностей.
14	Ввести любой символ и определить его порядковый номер, а также указать предыдущий и последую14
15	. Вычислить корни квадратного уравнения ax2 + bx + с = 0 с заданными коэффициентами а, b и с (предполагается, что а ≠ 0 и что дискриминант уравнения неотрицателен).
16	Составить программу перевода радианной меры угла в градусы, минуты и секунды.
17	Составить программу вычисления объема цилиндра и конуса, которые имеют одинаковую высоту Н и одинаковый радиус основания R.
18	Известна длина окружности. Найти площадь круга, ограниченного этой окружностью.
19	Известна длина окружности. Найти площадь круга, ограниченного этой окружностью.
20	Найти площадь кольца, внутренний радиус которого равен r, а внешний — R (R > r).