Саба?ты? та?ырыбы: Енгізу ж?не шы?ару операторы.Меншіктеу операторы

Меншіктеу, деректерді енгізу, шы ару.Read (readln), Write( writeln).
Паскаль тілінде кез-келген программаныS м
·тіні негізгі _ш б™лімнен
тaрады:
программа таKырыбы
сипаттау б™лімі

операторлар б™лімі

1. Программа таKырыбыныS Kaрылымы:

Program программа атауы;
Мысалы:
Program Max111;

Program Summa;
2. Сипаттау б™лімдері т™мендегідей б™лімдерден тaрады:
Та@балар блімі
Тратылар блімі
Типтер блімі
Айнгымалылар блімі
Процедура мен функциялар блімі

Операторлар б лімі.
Операторлар блімі – программаныS орындалу б™лімі. Ол Begin

Kызметші с™зінен басталып end с™зімен аяKталады. End с™зініS соSына н_кте Kойылуы тиіс, ол программаныS аяKталу белгісі. Н_кте компиляторCа программа м
·тінініS аяKталCандыCын хабарлайды.

Паскаль тіліндегі меншіктеу операторыныS жалпы т_рі:

айнымалы: = ™рнек;
Мысал: x:=0.5; y:=a+b;
D:=b*b-4*a*c; p:=(a+b+c)/2;
Енгізу операторыныS жазылу _лгісі:

Read (айнымалылар тізімі);
(read-оKу)
Мысал: read(a,b,c);
Read операторыныS соSына ln жалCауы Kосып жазылуы м_мкін: readln
(readline-жолды оKу).

Мыс: readln(a); readln(b,с);
М
·ндерді экранCа шы ару _шін Паскаль тілінде

Write (параметрлер тізімі); операторы Kолданылады. (write-жазу)

writeln болып жазылса (writeline –жолды жазу) курсор жаSа жолCа к™шіріліп, м
·ліметтер бірініS астына бірі шыCады. Мысал: 1) Write (x- ті енгіз=?’); read (x);

2) Write (x, ’, y); Write (s=’, s:5:2); Write (x+25, 3*x);
Меншіктеу, енгізу, шыCару операторларын Kолданып KaрылCан сызыKтыK программа мысалдарын KарастырайыK.

1. Екі KабырCасы мен арасындаCы бaрышы берілген _шбaрыштыS _шінші KабырCасын ж
·не ауданын табу программасын KaрыSдар.
Program Audan;

Var a,b,x: integer;
c, S:real;

begin
Write (^шбaрыш KабырCаларын ж
·не бaрышты енгіз ’);
read (a,b,x);
c:=sqr(a)+sqr(b)-2*a*b*cos(x*pi/180);
S:=1/2*a*b*sin(pi*x/180);

Writeln (^шбaрыш ауданы =’, S,’_шінші KабырCасы=’, с); end.

2. Берілген _ш таSбалы б_тін санныS цифрларыныS Kосындысын табыSдар.

Program Summa;

Var x,a,b,c,d,S:integer;
begin

Write (^ш таSбалы б_тін сан енгіз ’); read (x); a:=x div 100; b:=x mod 100; c:=b div 10; d:=b mod 10;

S:=a+c+d;
Writeln (S=’,