Запись некоторых математических функций на языке Паскаль

Запись некоторых математических функций на языке Паскаль

Математика	Паскаль
\|x\|	ABS(x)
x²	SQR(x) или х*х
x³	SQR(x)x или хх*х
	SQR(x)
Sin(60º)	Sin(60*3.14/180)

Пример задачи.

Исходные данные:

Дано четырехзначное число. Проверить истинность высказывания: «Данное число читается одинаково слева направо и справа налево».

Решение:

Для того, чтобы число читалось одинаково слева направо и наоборот, должны совпадать первая и четвертая цифры, а также вторая и третья. Необходимо выделить цифры из числа для сравнения, например

2592 = 2000 + 500 + 90 + 2 = 2 · 1000 + 5 · 100 + 9 · 10 + 2

В общем виде исходное число tcde = t · 1000 + c · 100 + d · 10 + e, тогда

t = tcde div1000

c = tcde div100 -10 * t

d = tcde div10 -100 *t -10 * c

e = tcde -1000*t -100 * c -10 * d

1 Алгоритм в графическом и словесном виде:

Начало

Ввод (tcde);

t = tcde div1000; c = tcde div100 -10 *t; d = tcde div10 -100*t -10 * c; e = tcde -1000*t -100* c -10 * d

Начало;

2. Ввод (tcde);

3. t = tcde div1000;

4. c = tcde div100 -10*t;

t = e да с = d да

нет

Вывод («число читается одинаково»)

Вывод («число не читается одинаково»)

Конец

5. d = tcde div10 -100*t -10*c; 6. e = tcde -1000*t -100*c -10* d

7. Если t = e то

{Если c = d то

вывод («число читается

одинаково»);}

Иначе вывод («число не

читается одинаково»);

8. Конец.

2Программа на языке Паскаль: program vibor;

var Tcde, T, C, D, E:integer; begin

write(‘Введите четырехзначное число ’); readln(Tcde);

T := Tcde div 1000;

C := Tcde div 100-T*10;

D := Tcde div 10-T*100-C*10; E := Tcde-T*1000-C*100-D*10;

if T=E then begin

if C=D then

writeln(‘число читается одинаково’);

end

else writeln(‘число не читается одинаково’); end.

3 Программный код для запуска	4 Тестирование программы с различными данными:

5 Программа выдает неверный результат при неправильном вводе данных, новый код: program vibor;

label m1;

var Tcde, T, C, D, E:integer; begin

m1:

write(‘Введите четырехзначное число ’); readln(Tcde);

if Tcde div 1000=0 then begin

write(‘Число задано неверно ’); goto m1;

end