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

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

Сыныбы: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. Үйге тапсырма:

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