Read , Readln,Write, Writeln
операторлары
1) Алгоритм дегеніміз не?
2) Алгоритмнің қандай негізгі қасиеттері бар?
3) Алгоритмдерді қандай тәсілдермен бейнелеуге болады?
4) Блоксхема дегеніміз не?
5) Меншіктеу командасының құрылымы қандай және ол қалай
жазылады?
6) Паскаль тіліндегі программаның негізгі құрылымы қандай?
Алгоритм дегеніміз нәтижеге жету мақсатында әрекеттердің
ретретімен орындалу тізбегі.
Алгоритм қасиеттері:
Түсініктілік,дискерттілік,анықтылық,нәтижелік,жалпылық
Алгоритмді сөздік,кестелі,графикалық,программалық
тәсілдермен бейнелейміз
Блок схема деп алгоритмнің графикалық түрде жазылуы
:=
program esep;
cипаттау бөлімі
begin
операторлар бөлімі
end.
Read , Readln,Write, Writeln
операторларының атқаратын
қызметтері қандай?
Read- ? белгісін шығарып мәлімет
енгізуді күтеді.
Readln-мәліметті жаңа жолдан бастап
оқиды.
Write- апострафпен қоршаған мәтіндер
немесе айнымалы болады.
Writeln- -мәліметті жаңа жолдан бастап
оқиды.
Мысалы:
var
I: real;
J: integer;
K: char;
begin
Read (I, J, K);
Программаға мынадай бастапқы мәндер енгізіледі делік:
212.5 38 ‘п’
Мысалы:
VAR
A, B: REAL;
BEGIN
READ (A,B);
…
END.
A, B айнымалылары үшін 4 5 Enter
орындалса, онда машина оларды
А = 4.0, B = 5.0
түрінде қабылдайды.
Мысалы,
егер B =17.15 болып, мына команда орындалғанда:
WRITE (‘B мәні = ’, B);
экранда
В мәні = 1.715E+01
WRITE (Y : m: n)Мұндағы m – нәтижеге берілген барлық орын, n – үтірден
соңғы бөлшек бөлігіне берілетін орындар саны.
Мысалы, C = 145.7865 болғанда
WRITE(C:8:3)
операторы экранға 145.786 мәнін шығарады, мұндағы жалпы орындар саны –
8, ал бөлшек 3 санмен бейнеленетіндіктен соңғы бір цифр жазылмай қалып
отыр.
WRITE(123.456:10:4);
1 2 3 . 4 5 6 0
WRITE(123.456:6:2); 1 2 3 .
4 6
b = 56 мәні үшін WRITE (b :5) операторы экранға
« 56»
WRITE (‘Y =’, Y:8:3) Y = 1.76 болса, экраннан
Y = 1.760
Экранға «Менің бірінші программа жазуым» сөзін
шығару
шешімі:
Program мысал1;
Begin
writeln(‘Менің бірінші программа жазуым’);
readln;
end.
Екі сан қосындысын табу программасы.
Program мысал2;
Var A,B,S: Integer;
Begin
Writeln(‘ А, В мәндерін енгізу’);
Read (A,B);
S:=A+B;
Writeln(‘S=‘, S);
Readln (S);
End.
басы
А, В
S:=А+В
S
соңы
мысал3:
Радиусы R болатын шеңбер ұзындығын есептеу программасын құру қажет.
Шығарылуы:
program B1;
const pi=3.14159;
var
R:real;
L:real;
begin
writeln(‘R мәнін енгізіңдер:’);
read (R);
L:=2*pi*R;
writeln(‘нәтиже:’);
writeln(‘шеңбер ұзындығы L =’, L:8:3);
end.
Экранда төмендегідей нәтиже көрінеді:
R мәнін енгізіңдер:
0.2
нәтиже:
шеңбер ұзындығы L =1.257
X = 7, Y = 15, Z = 11, ал R = 450,08
Оператордың жазылуы
Write (X, Y);
Write (X, ’_,_’, Y);
Write (’X =’, X);
Write (X, ’ ’:3,Z );
Write (’X+Y =’, X+Y);
Write (Z, ’-соңы’);
Write (’бітті’);
Экрандағы
нәтижесі
7 15
7_,_15
X=7
7 11
X+Y = 22
11-cоңы
бітті
1 тапсырма. Мәндерін табыңыз.
Экранға қандай мәлімет шығады?
•WRITE(3*2) – шығады
•WRITE(‘3*2=‘) – шығады
• WRITE(‘12*2=‘, 12*2) – шығады
•WRITE(‘Менің Отаным - Қазақстан’) - шығады:
•WRITE(6div2+5mod2) –
•WRITE(7/3:3:1) –
ДК орындап жауабын алыңыз.
2 тапсырма.
Тіктөртбұрыштың
периметрін табу
программасын құрыңдар.
Екі нақты
санның
квадраттар
ының қосу
программа
сы
Автомобильдің
жүрген жолын
табу
4 тапсырма.
Р/с
1.
2.
3.
4.
Жауаптары
Есептері
Трапецияның
ауданын табу
Өрнектің
мәнін
есептеу
Program p1;
Var A,B,X:Real;
Begin
Readln(A,B);
X:=Sqr(A)+Sqr(b);
Writeln(‘Қосынды=‘,X:2:4);
End.
Program k;
Var x,y:integer; z: real;
Begin
z:=(sin(x)-y)/(abs(y)+cos(y));
Writeln(‘z=‘,z);
End.
Program f;
Var v, t, s::integer;
Begin
readln(v, t);
s:=v*t;
Writeln (‘s=‘,s);
End;
Program R;
Var a,b,h, s::integer;
Begin
readln(a,b,h);
s:=(a+b)*h/2;
Writeln (‘s=‘,s);
End;
5 тапсырма. Программа құрыңыз
6 тапсырма. Қатесін тап.
Радиусы Rге тең шеңбер берілген.
Шеңбердің ұзындығын есептеу
программасын құр.
Program шеңбер;
Const PI=3.14159;
Var L: Real ;
R Integer;
Begin
Writeln(‘Rді енгіз’)
Readln (R);
L=2*Pi*R
Writeln(‘L=‘,L:4:2);
End.
Дұрыс жауабы:
Program шеңбер;
Const PI=3.14159;
Var L: Real ;
R: Integer;
Begin
Writeln(‘R-ді енгіз’);
Read (R);
L:=2*Pi*R;
Writeln(‘L=‘,L:4:2);
End.
Ax2 + bx + c
a*sqr(x)b*x+c
ln(cos
x
sin
x
)
Sqrt (abs(ln(cos(x)) + sin(x))))
2
a
ab
e
3
sin
x
x
(Sqr(a) + exp (x)) /(a*b*sqr(sin(x))*sin(x))
Үйге тапсырма.
№1.
• Y=(AX+B)-С өрнегінің
алгоритмін, блок-схемасын,программасын
құрып келу.
№2.
• y=x2+1 функциясын есептейтін программа
жазыңыз.
•
read. readln. write.writeln операторы.ppt
