Сабақтың тақырыбы: Паскаль программалау тілінде есептер шығару Сабақтың мақсаты

1. 
   Паскаль тілін жасаған кім?
   

A)1992* B)1993 C)1994 D)1991

A) бүтін B)нақты C) жолдық* D)литерлік

A)exp(x*ln(7)) B)sqr(x) C)sqr(x)+sqr(x) D)exp(7*ln(x))*

A)clrscr B)read* C)writeln D)end

A)х-тің модулі* B)х-тің дәрежесі C)абсалюттік шама D)экспонента

1. 
   Label, const, type, var, function, procedure*
   
2. 
   procedure, var, type, const, label, function
   
3. 
   procedure, type, const, label, function, var
   
4. 
   procedure, type, var, const, label, function
   

1. 
   FOR - TO; В. IF – THEN - ELSE;* C. GOTO; D.CASE.
   

1. 
   FOR - TO; * B.IF – THEN - ELSE; C.GOTO; D.CASE.
   

Program svet;

Var x:string ;N:char;

begin

If x=’қызыл’ then N:=’A’ else if x=’сары’ then N:=’B’

Else if x=’жасыл’ then N:=’C’;{түс бойынша тармақ құру}

Case N of

‘A’:write(‘тоқта,күт’);

‘B’:write(‘дайындал’);

‘C’:write(‘жүр’);

Else write (‘светофорда ондай түс жоқ’);end;

readln;

end.
№ 2. Есеп

Program keste;

Var X:string; {Күн аттарын сипаттау}

Y:char; {Таңдау селекторын сипаттау}

Begin

Readln(X); {Күн атын енгізу}

Case Y of

‘a’:writeln (‘x’); {x-бірінші күні болатын сабақтар}

‘b’:writeln(‘xx’); {xx-2-ші күні болатын сабақтар}

‘c’:writeln(‘xxx’); {xxx-3-ші күні болатын сабақтар}

‘d’:writeln(‘xxxx’); {xxxx-4-ші күні болатын сабақтар}

‘e’:writeln(‘xxxxx’); {xxxxx-5-ші күні болатын сабақтар}

Writeln(‘xxxxxx’); {xxxxxx-6-шы күні болатын сабақтар}

Else writeln(‘ол күні сабақ болмайды’);

End;

end.
№ 3. Есеп

Қарапайым калькулятор программасын құру.

program calc;

var a,b:integer;

x,y: char;

Begin

Repeat

If x=’+’ then writeln (‘a+b=’,a+b)

Else if x=’-’ then writeln (‘a-b=’,a-b)

Else if x=’/’ then writeln (‘a:b=’,a/b)

Else if x=’*’ then writeln (‘a x b=’,a*b)

Else writeln (‘амалды дұрыс енгізбедіңіз’) ;

Writeln (циклден шығу үшін n немесе N символын енгізіп Enter басыңыз’);

Readln(y);

readln;

Үш натурал сан берілген. Олардың арасында тең сандар болмаса, «жоқ» деп, егер   олардың екеуі бір-біріне     тең болса, «иә» деп, ал үшеуі де бірдей сан болса, бәрі тең деп жазу керек.   

program esep1;

var a,b,c:integer;

begin

 writeln(’үш сан енгіз’);

 if (a<>b) and (b<>c) and (a<>c) then writeln(‘жоқ’)

               else if (a=b) and (b=c) and (a=c) then writeln(‘бәрі тең’)

                                                                else writeln(‘екеуі тең’);                                    

end.

№4. Есеп

Екі үшбұрыш қабырғалары a, b, c және d, e, f  берілген. Қайсы үшбұрыштың ауданы үлкен екенін анықтау       қажет.    

program esep2;

var a,b,c,d,e,f,p1,p2,S1,S2:real;

begin

writeln(’1-ші үшбұрыш қабырғаларын енгіз:’);

writeln(’2-ші үшбұрыш қабырғаларын енгіз:’);

readln(d,e,f);

p1:=(a+b+c)/2;

p2:=(d+e+f)/2;

S1:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));

S2:= sqrt(p2*(p2-d)*(p2-e)*(p2-f));

if S1>S2 then writeln(‘‡лкені 1-үшбұрыш, ауданы =’, S1:8:2)

                    else writeln(‘‡лкені 2-үшбұрыш, ауданы =’, S2:8:2)

end.

  program esep3;

var a,b,c,d:integer;

begin

write(’a=’); read(a);

write(’b=’); read(b);

write(’c=’); read(c);

write(’d=’); read(d);

if (a=b) and (a=c) and (a=d) and (b=c) and (b=d) and (c=d)

                           then writeln(‘Квадрат қабырғалары бола алады’);

if (a=c) and (b=d) then writeln(‘Тікбұрышты тµртбұрыштың қабырғалары бола алады’)

                                 else writeln(‘Тікбұрышты тµртбұрыштың да, квадраттың да қабырғалары бола алмайды’)

end.