Turbo Pascal 7.0 Программирование на языке высокого уровня презентация

Фото(Т.А. Павловская и Вирт)
Фото (Павловская на курсах)

Примеры правильных имен:
Perimeter, A, x01, A13, A_and_B.

Примеры неправильных имен:
2late, Big one, Iseekю.

Основная программа:
BEGIN …. END.

Структура программы на TP 7.0

Простейшая программа на ТР 7.0

Пример:

Замечания

В переменной типа byte можно хранить числа:
15 207 -12 -198 1224

Результат операции сложения целых =

Результат операции сравнения целых =

Результат вычисления выражения sin(4) – cos(6) =

t + sin(x)/2 * x
результат имеет вещественный тип

a <= b + 2
результат имеет логический тип

(x > 0) and (y < 0)
результат имеет логический тип

 ShowMessage('Используя 8,4 = '+FloatToStrF(amount1, ffFixed, 8, 4));   ShowMessage('Используя 4,4 = '+FloatToStrF(amount1, ffFixed, 4, 4));   ShowMessage('Используя 4,2 = '+FloatToStrF(amount1, ffFixed, 4, 2));   ShowMessage('Используя 2,4 = '+FloatToStrF(amount1, ffFixed, 2, 4));   // Показ в формате General   ShowMessage('');   ShowMessage('General форматирование :');   ShowMessage('');   ShowMessage('Используя 8,4 = '+FloatToStrF(amount1, ffGeneral, 8, 4));   ShowMessage('Используя 4,4 = '+FloatToStrF(amount1, ffgeneral, 4, 4));   ShowMessage('Используя 4,2 = '+FloatToStrF(amount1, ffGeneral, 4, 2));   ShowMessage('Используя 2,4 = '+FloatToStrF(amount1, ffGeneral, 2, 4));   // Показ в формате Number   ShowMessage('');   ShowMessage('Number форматирование :');   ShowMessage('');   ShowMessage('Используя 8,4 = '+FloatToStrF(amount1, ffNumber, 8, 4));   ShowMessage('Используя 4,4 = '+FloatToStrF(amount1, ffNumber, 4, 4));   ShowMessage('Используя 4,2 = '+FloatToStrF(amount1, ffNumber, 4, 2));   ShowMessage('Используя 2,4 = '+FloatToStrF(amount1, ffNumber, 2, 4)); end;

Значение n = 1 b = 4.124.9614709848E+00

program temperature;
var tf, tc : real;
begin
write('Введите температуру по Фаренгейту = ');
readln(tf);
tc := 5 / 9 * (tf - 32);
writeln('По Фаренгейту: ', tf:6:2,
' в градусах Цельсия: ', tc:6:2);
Readln;
end.

If <выражение> then S;

for i:= -1 to 5 do write( ‘A’);
for k:=6 downto 4 do writeln(‘W’);
M:=2; repeat writeln(‘Эх, раз …’) until M< 0;
{это ∞ цикл }
K:=4; S:=0.0; while K > 0 do begin s:=s+1/K; K:=K-1 end;

a

b

y=f(x)

Program tabula_F; { табуляция y=k*x2 }
Var a,b, k, x, y,h: real;
N,i:byte;
Begin
Write(‘ Введите k= ‘); Readln(k);
Write(‘ Введите a,b,N= ‘); Readln(a,b,N);
h:=(b-a)/(N-1); {шаг табуляции функции}
writeln(' —————————');
writeln('| X | Y |');
writeln(' —————————');
For i:= 1 to N do begin
x:=a+(i-1)*h;
y:=k*sqr(x);
writeln('|', x:9:2,' |', y:9:2,' |');
end;
writeln(' —————————');
end.

x

y

y = k⋅x

Xb

Xa

ИЛИ

var
имя_переменной : описание_типа

Type имя_типа = Const_1 .. Const_2

ОПИСАНИЕ типа Массив:

Type имя_типа_массива = array [тип_индексов]
of тип_элементов массива

Замечания:
Тип_индексов – любой порядковый тип (кроме LongInt)
Обычно это тип – диапазон;

Квадратная матрица
a [3x3]

Расположение элементов двумерного массива в памяти:

Первая строка

Вторая строка

Третья строка

Const m =4; n=5;
Var a:array[1..m, 1..n] of real;
…

for i := 1 to m do
for j := 1 to n do read (a[i, j]);