Readln, writeln операторларына слайд

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 функциясын есептейтін программа жазыңыз. •