Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Операторы ввода-вывода
|
|
read(a, b, c); write(a, b, c) ® ввода и вывода
readln(a, b, c); writeln(a, b, c) ® после вв. и выв. переход к новой строке
Пример
write(a: 8: 3) ® 8 всего позиций, 3 в дробной части;
write(a, ¢ ¢,: 4, b) ® между а и b 4 пробела
19. Операторы условного и безусловного перехода в языке Pascal.
оператор безусловного перехода
go to n
где n - метка оператора на который осуществляется переход
условные операторы
if a then b;
if a then b else c
где а – условие, b, с – арифметическое выражение
 |
Применение условного оператора
program ime;
var a, b, x: real;
begin
read(b, x);
if x< 1 then a: =sqr(b)
else a: =sqr(x);
write(‘a=’, a);
end.
Применение, безусловного и условного операторов с меткой label
program time;
label 1, 2;
var a, b, x: real;
begin
read(b, x);
f x< 1 then goto 1;
i: =sqr(x); goto 2;
1: a: =sqr(b);
2: write(‘a=’, a);
Цикл с параметрами
Используется оператор for i: = m1 to m2 do m3
где i - переменная цикла; m1, m2 - начальное и конечное значения цикла;
m3 - тело цикла(один или несколько операторов);
Пример: Вычислить у=x2/2x; x = 1, 5 h = 1
program msx;
var y, x, h, i: integer;
begin
x: =1; h: =1;
for i: =1 to 5 do
Begin
y: =sqr(x)/(2*x);
writeln(¢ y=¢, y);
x: =x+h;
end;
end.
Цикл с предусловием
Используется оператор: while m1 do m2
где m1 - логическое выражение; m2 - тело цикла;
program msx;
var y, x, h: integer;
begin
x: =1; h: =1;
while x< = 5 do
begin y: =sqr(x)/(2*x);
writeln(¢ y=¢, y);
x: =x+h;
end;
end.
Цикл с постусловием
Используются операторы repeat m1 и until m2
где m1 -тело цикла; m2 - условие окончания цикла.
program msx;
var y, x, h: integer;
begin
x: =1; h: =1;
Repeat
y: =sqr(x)/(2*x);
writeln(¢ y=¢, y);
x: =x+h;
until x> = 5
end.
Графика в Паскале
Line(x1, y1, x2, y2) - линия;
Circle(x, y, r) - окружность;
Arc(x, y, a1, a2, r) - дуга радиуса;