Паскаль тілінде есептерді шешу бойынша практикум

Пән аты:   Информатика

Сыныбы:9

Сабақтың  тақырыбы: Есептер шешу  бойынша  практикум

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

Білімділігі:    Типтердің Паскаль тілінде жазылу түрлері туралы ұғымдарын дамыту;

Дамытушылығы:  Оқушыларды программалау тілінің командаларымен және құрылыммен таныстыра отырып, логикалық ой-өрістерін дамыту; Қоршаған ортаның ортақ қасиеттері мен жеке қасиеттерін айыра білуге тәрбиелеу.

       Тәрбиелік:    Оқушыларды ұқыптылыққа, жинақылыққа адамгершілікке тәрбиелеу.

Сабақтың түрі:    Білім білікті қалыптастыру сабағы

Сабақтың барысы:   

                                    1. Ұйымдастыру

                                    2. Үй тапсырмасын  тексеру

                                    3. Есептер  шығару

                                    4. Үйге тапсырма

ІІ.Үйге  берілген  есептерді тексеру

ІІІ. Есептер  шығару:

3 КЕ БӨЛІНСЕ САНДАРДЫ ҚОС, 3 КЕ БӨЛІНБЕСЕ АЗАЙТ

program esep;var n,m:integer; x:real;begin  write('n='); read(n);

write('m='); read(m);if (n mod 3=0) and (n mod 3=0) then x:=n+m else x:=n-m;

{if a=m/3  then a:=n+m else a:=n-m;}

write('x=',x:6:2);  end.

МАКСИМУМДЫ ТАБУ

program esep2;var a,b,c,max:integer;

begin   read(a,b,c);if a>b then max:=a else if b>c

then max:=b else if a>c then max:=a else max:=c;

write('max=',max); end.

ПЕРИМЕТР, АУДАН ТАБУ

Program   audan; Var a,b,c,p,s: real;

Write (‘a,b.c); Read(a.d,c)/2;

P:=(a+b+c)/2; S:=sqr(p*(p-a)*(p-b)*(p-c));

Write(p,s);  End.

РАДИУС ЕСЕПТЕУ

Program Audan;Const  r=5.2;

Var  L,S:real;begin

L:=2*pi*r;S:=pi*sqr(r);

Writeln (‘Дөңгелек ауданы =’, S:4:2);

Writeln (‘Шеңбер ұзындығы =’, L:5:2)

end.

КУБТЫҢ КӨЛЕМІ

Program Pl1;

Var  a,V: integer;    {a-кубтың қабырғасы, V-көлемі}

Begin   read(a); {қабырғаны енгізу}

V:=exp(3*ln(a));    (*  куб көлемі V=a^3 *)

Writeln (‘V=’, V);   end.

 Екі санның үлкенін табыңдар.ШАРТ

Program   m1;

Var  a,b, max: integer;

Begin  Write (‘2 санды енгіз’); read (a,b);

If  a>b  then max:=a   else  max:=b;

Writeln (‘Жауап:’, max);end.

Квадрат теңдеудің түбірін табыңдар.

Program  m2;

Var  a,b,c,D:integer;        x1,x2: real;

begin   Write (‘кв.теңдеу коэффициенттерін енгіз:’); readln (a,b,c);

D:=b*b-4*a*c;                                    { дискриминантты есептеу }

If  d<0  then  writeln (‘түбірі жоқ ’)

else begin   x1:=(-b+sqrt(D))/(2*a); x2:=(-b-sqrt(D))/(2*a);

Writeln (‘x1=’, x1, ‘x2=’, x2); end;  end.

ТАҢДАУ ОПЕРАТОРЫ

Program m1;

var n: byte; begin 

write (¢1-ден 7-ге дейінгі санды енгіз¢);

read (n);  сase n  of

1: Writeln (¢Дүйсенбі¢);2: Writeln (¢Сейсенбі¢);

3: Writeln (¢Сәрсенбі¢);4: Writeln (¢Бейсенбі¢);

5: Writeln (¢Жұма¢);6: Writeln (¢Сенбі¢);

7: Writeln (¢Жексенбі¢)  else writeln (¢Дұрыс емес¢)

end;             end.      

5 санының  көбейту кестесін экранға шығаратын программа  құрыңдар Program m1;

var i, p : integer;begin

for i:=1 to 9 do  begin

p:=5*i; Writeln (i,'*5=', p)

end;end.

n!-мәнін есептеу  программасын әзір циклі арқылы жазайық..

PROGRAM M1;    var i, n: integer; P: longint;

Begin   read (n);

P:=1; i:=1;  While i<=n do

Begin  P:=P*i;  i:=i+1;

end;  Write ('n!=', P);end.

x-тің мәні -5-тен 5-ке дейін 0,2 қадаммен өзгерген мәндері үшін у=х²-1 функциясының мәндерін экранға шығарындар.

PROGRAM M1; var X, y: real;

Begin  x:=-5;  While  x<=5 do

Begin  y:=sqr(x)-1;  Writeln (x,'---',y);

x:=x+0.2;  end; end.

n бүтін сан берілген. Олардың көбейтіндісін есептеңдер. Егер сан 0-ге тең болса, циклден шығу үшін Break операторын қолданыңдар.

var i, n, x, P: integer;

begin   read (n);         {санның нешеу екенін енгізу}

for i :=1 to n do

begin readln (x);       { әрбір санды  енгізу}

if (x=0) then break;

P:=P*x;end;writeln ('P=',P) ;end.

[10,50] аралығындағы 5 кездейсоқ бүтін санды шығару программасы.

Var  x: real;  i: byte;

Begin for  i:=1  to  5  do

Begin  x:=random (40)+10;

Writeln (x) ;end;end.

ІV. Үйге тапсырма:

               Екі  натурал санның ең үлкен ортақ бөлгішін табыңдар