Программирование на языке Turbo Pascal

Хамзатовна
учитель информатики
МБОУ лицея №40 г. Орла

алгоритмов?
Как называется алгоритм который может выполнять компьютерный исполнитель?
Что нужно знать,

чтобы составить алгоритм для компьютера?
Какие языки программирования вы знаете?
Перечислите основные разделы программы на языке Pascal.
Назовите основные типы данных и соответствующие им стандартные имена.
Назовите операцию, которая в целочисленном типе данных невозможна, а в вещественном типе данных имеет место.
Назовите операторы с разветвляющейся конструкцией.
Какие операторы используются для организации циклических конструкций?
По принципу действия, какие операторы цикла противоположны?
Тело какого цикла выполняется всегда хотя бы один раз?

число: ');
readln(n);
for i:=0 to

9 do begin
k:=0;
n1:=n;
while n1<>0 do begin
j:=n1 mod 10;
if j=i then k:=k+1;
n1:=n1 div 10;
end;
writeln('цифра ',i,' встречается ',k,' раз');
end;
end.

число: ');
readln(n);
for i:=0 to

9 do begin {цикл для сравнивания цифр числа n с цифрами от 0 до 9}
k:=0; {счетчик повторений}
n1:=n; {сохранение числа n}
while n1<>0 do begin {цикл для разбиения числа n на цифры}
j:=n1 mod 10; {берем последнюю цифру числа}
if j=i then k:=k+1; {сравниваем ее с цифрой i, увеличиваем счетчик
повторений на 1, если они равны}
n1:=n1 div 10; {уменьшаем число n на последнюю цифру}
end; {конец цикла while}
writeln('цифра ',i,' встречается ',k,' раз'); {выводим на экран сообщение о
количестве повторений каждой цифры}
end; {конец цикла for}
end.

writeln (A, B, C);
if A < B then

E := A + B;
else E := A;
readln (A)
End.

Program Primer2;
var X, Y: integer
Begin
readln (X,Y);
E = x + y;
E = y;
writeln (e)
End.

Program Primer3;
var X,Y: integer;
Begin;
Readln (X;Y);
X:=3 X + ( Y - 4) : 5
writeln (x)
End

Program Primer4;
var X,Y: real;
Begin
while X<>0 begin
x:=x div 10;
Y:=Y+1; end
Writeln (y)
End

Program Primer1;
var A, B, C, E: integer;
Begin
readln (A, B, C);
if A < B then E := A + B;
else E := A;
writeln (E)
End.

Program Primer2;
var X,Y,E: integer;
Begin
readln (X,Y);
E := x + y;
E := y;
writeln (e)
End.

Program Primer3;
var X,Y: real;
Begin;
Readln (X,Y);
X:=3*X + ( Y - 4) /5;
writeln (x)
End.

Program Primer4;
var X,Y: integer;
Begin
readln (X,Y);
while X<>0 do begin
x:= x div 10;
Y:= Y+1; end;
Writeln (y)
End.

определить заданные на графике функции. На графике заданы две функции:

y=-x и y=x2
Выясним промежутки, на которых определены функции:
y = -x на x < = 0;
y = x2 на x > 0.

else y:=-(x*x);
writeln('при x=',x,' y=',y);
end.

языке Turbo Pascal.
Начало
Введите значение х
Ввод х
x < 0
у = х2
у

= х3

При x=, y=

Конец

да

нет

x

(‘При х=’, х, ‘, у=’,у);
end.

Начало

writeln (‘Введите значение Х’)

read (x)

if x<0

y:=x*x

y:=x*x*x

writeln (‘При х=’, х, ‘, у=’,у)

Конец

да

нет

поменяв цифры в числе А местами.

program chislo_a;
var a, x, y:integer;
begin

writeln (‘Введите целое двузначное число’);
read (a);
x:=a div 10;
y:=a mod 10;
a:= y*10+x;
writeln (‘Новое число: ’, a);
end.

х и у. Арифметические действия над числами пронумерованы (1 –

сложение, 2 – вычитание, 3 – умножение, 4 – деление). Составить программу, которая по введенному номеру выполняет то или иное действие над числами.
Подсказка: при описании переменных символьный тип данных обозначается словом char.