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

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

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

write('Введите число: ');
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.

write('Введите число: ');
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.

integer;
Begin
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.

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

программу на языке Turbo Pascal.
Начало
Введите значение х
Ввод х
x

0

у = х2

у = х3

При x=, y=

Конец

да

нет

Х’);
read (x);
if x

else y:=x*x*x;
writeln (‘При х=’, х, ‘, у=’,у);
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.

№19, №20.