раздел описаний
раздел операторов
заголовок
Раздел описаний предназначен для
описания всех данных,встречающихся в программе
и их характеристик (имя, тип, возможные
значения). Этот раздел содержит следующие
объявления: label - метка
const - константа Они должны
type - типы располагаться в строго
var - переменные названном порядке
procedure - процедура (если они присутствуют)
В конце раздела ставится точка с запятой.
В результате выполнения программы в первой строке экрана экрана появится:
-52+23=-29 -52*23=-1196
-52/23=-2 -6 в остатке.
В результате выполнения
программы в первой строке
экрана появится:
площадь окружности равна 28,26
длина окружности равна 18,84
<идентификатор> := <выражение>
writeln (<список вывода>);
Для вывода данных,
имеющих нецелый вид(real)
формат оператора имеет
вид:
writeln (<имя переменной>:m:n);
где т - количество позиций
экрана,отводимых под всё число.
n - количество позиций экрана,
отводимых под дробную часть.
ln - говорит о том, что после
ввода переменных, курсор на
экране будет переведён на новую
строку.
Пример 2.
Вывод числа х=15,325:
х:=15,325;
writeln(x:5:3);
Чаще всего количество
позиций, отводимых под
дробную часть числа,
указывают с запасом, т.е.
пишут writeln(x:7:3);
readln( <список ввода> );
if<логическое условие> then < оператор1> else <оператор2>
Программа:
program primer4;
uses crt;
var a,b: integer;
begin
clrscr;
writeln(‘Введите a, b’);
readln(a,b);
if a>b then writeln(a-b) else
writeln(b-a);
end.
a>b
начало
конец
ввести a,b
вывод a-b
вывод b-a
for param:=start to finish do
begin
операторы циклической части
end.
Программа:
program ForDemo;
uses crt;
var n,p:integer;
begin
for n:=2 to 10 do
begin
p:=n*7;
writeln(n‘*7=’,p);
end; {оконч. циклич. части}
readln;
end. {окончание программы}
начало
For n:=2 to 10 do
Вычислить n*7
конец
Вывести n*7
while <логическое условие> do
begin
операторы циклической части
end;
Программа:
program primer5;
var a,c:real;
begin
writeln(‘Введите число ’);
readln(a);
while a>1 do
begin
c:=a*a;
writeln(a,‘*’,a,‘=’,c:10:2);
writeln(‘Введите число ’);
readln(a);
end;
end.
начало
ввод а
while a>1
вычислить а*а
вывести а*а
конец
ввести а
repeat
операторы цикла
until <логическое условие>;
Программа:
program primer6;
var a,x,y:real;
begin
writeln(‘Введите число а’);
readln(a);
x:=0;
repeat
y:=a*sin(x);
writeln(‘при х=’,х:2:1,‘y=’,y:7:2);
x:=x+0,2;
until x>1;
end.
начало
ввод а
y=a*sin(x)
вывод y(x)
x:=x+0,2
конец
x>1
case <простое выражение> of
<значение1>: <оператор1>;
<значение2>: <оператор2>;
:
:
<значениеN>: <операторN>;
else <оператор N+1 >;
end;
Х:1:2.
Х:2:1.
Х:3:2.
сложный
несложный
составной
ложно
истинно
не имеет значения
истинно
ложно
значения не имеет
Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.
Email: Нажмите что бы посмотреть