Презентация, доклад по информатике на тему Turbo Pascal бағдарламалау тілінде қарапайым логикалық есептерді шығару жолдары. (9 класс)Тармақталу

then

else

ЕСЕПТЕРДІ ШЫҒАРУ ЖОЛДАРЫ.

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

Білімділік:
Оқушыларды Turbo Pascal бағдарламалау тіліне қызықтыру үшін қарапайым логикалық есептерді шығару жолдарын үйрету, оқушылардың өткен материалдар бойынша алған білімдерін тексеру, берілген тапсырмаларға бағдарламалар дайындау, нәтижесін алу, оқушылардың алған білімдерін арттыру, жүйелеу, блок-схема және бағдарлама құру практикалық білімдерін тексеру;

Дамытушылық:
Бағдарламалау тілінде жұмыс жасай білу дағдыларын, ойлау қабілеттерін, өз білімдерін сауатты түрде жеткізе білуді, пәнге деген қызығушылықты дамыту.

Тәрбиелік:
Оқушылардың белсенділігін арттыру, жұмыс жасау мақсатында компьютерлік сауаттылыққа, өзара көмектесуге, өзін-өзі бағалауға тәрбиелеу. . Өз білімдерінің нәтижесінде өздерін бағалай білуге тәрбиелеу, алган білімдерін бағдарлама құруда еркін қолдана білуге үйрету.

;
ә) «Think and found»
ІІІ. Тапсырмалармен жұмыс:
1. Айнымалының мәнін тап;
2. Сәйкестендіру;
3. Қатесін тап;
4. Логикалық есепке программа жазу.
ІV. Компьютермен жұмыс.
V. Бағалау.
VI. Үйге тапсырма беру.
VII. Сабақты қорытындылау.

Сабақ жоспары.

тармақтары бар алгоритм

пішіні
3. Таңдау алгоритмі.

end, writeln, else, read, var, real

Program

var real integer

begin

writeln

read

If then else

write

end.

ашқан

"think and found"

есімінің латынша Algorithmi (Алгоритми) болып жазылуынан шыққан

"think and found"

программалау тілін 1968-1971 жылдары оқып-үйренуге қолайлы программалау тілі ретінде ұсынған болатын

"think and found"

ELSE -- акс ҳолда – әйтпесе CASE – танлаш – таңдау OF – нинг -- нің

қайталау

ШЫҒАРУ.

then k:=k-2 else j:=k+3 ;
болса j , k айнымалыларының мәндерін табыңдар?

J = 3 ,  k = 3

J = 1 ,  k = 3

J = 11 ,  k = 8

дәрежелі түбір , (4,285-3,75)(5,8-3,2)+7,5 , х санының косинусы, sin x2+cos x2=1 , программаның аты, c2=a2+b2-2abcosy , енгізу операторы, шартты оператор, S=a*h/2 , операторлар бөлімінің ашылуы, S=2πr2 , таңдау операторы, Ax2+bx+c=0 , айнымалы, тұрақты, бүтін, х санының квадраты, a=eх+sin2x, логикалық шама, D=b2-4ac .

Берілгендерді Паскаль тілінде сәйкестендіріп жаз:

Тапсырма-2.

бар программа

Program 1esep. Var x;y; real; Begin Write(x киритинг); real (x); If x>=0  then y= sgrt(x*x+1); else y:=sqrt(x)+x Writeln (“y=“y.4.2); rite(‘ҳисоб тугади’) end.

Қатесіз программа

Program esep1;
Var x,y:real;
Begin
Write(‘ х-ни киритинг‘);
Read(x);
If x>=0 then y:=sqrt(x*x+1)
else y:=sqrt(x)+x;
Writeln(‘y=‘,y.4.2);
Write(‘ҳисоб тугади’);
End.

y: =x+8
Else y: = 4*x; Writeln (‘y=’, y:6:3); End.

Program E2. VAR x, y; REAL; Begin Write (х енгіз:); Real (x); IF x< 0 Then y =x+8;
Else y = 4*x Writeln (‘y=’;y:6:3); End;

Қатесі бар программа

Қатесіз программа

(n);
case n=1 of
1: write(“январь, февраль, март”);
2: write(“апрель, май, июнь”);
3: write(“июль, август, сентябрь”);
4: write(“октябрь, ноябрь, декабрь”);
end.
end.

program kvartal;
var n: byte;
begin
read (n);
case n of
1: write('январь, февраль, март');
2: write('апрель, май, июнь');
3: write('июль, август, сентябрь');
4: write('октябрь, ноябрь, декабрь');
end;
end.

үңгірдің ішінде қазына-байлық барлығы туралы айтыпты. Бала сол байлықты табуға жолға шықты. Бала өте көп жол жүрді. Қараса алдынан шынымен-ақ өзен шығады. Бала өзеннің сол жағынан оң жағына өту керек, бірақ бала суда жүзуді білмейді. Өзеннің оң жағына қараса біреу балық аулап отыр екен.
Бала: -Ей, қайықшы мені қайықпен өзеннің арғы жағына өткізіп жіберші – депті.
Қайықшы: Қайығым k кг нан артық жүкті көтере алмайды. Салмағың неше?
Бала: - m1 кг
Қайықшы: Менікі m2 кг деп, баланы қайыққа отқызыпты.
 

әйтпесе <өзеннен өте алады >
бітті

Паскаль тілінде

IF < m>k >
THEN <өзеннен өте алмайды >
ELSE < өзеннен өте алады >

Блок-схемасы

readln(m1);
writeln(‘бала кг=‘); readln(m2);
writeln(‘қайық max кг=’); readln(k);
m:=m1+m2;
if m>k then writeln(‘бала өзеннен өте алмады')
else
writeln(‘бала өзеннен өтті’);
End.

айтқандай, 3 дорба алтын бар екен, бірақ үңгір иесі арасынан ең жеңілін алып кетуге рұқсат беріпті. Бала қараса таразы бар екен, бірақ таразының тастары жоқ. Бала қалай жеңілін алып кеткен?

:real;
begin
writeln(‘қайықшы кг=‘); readln(m1);
writeln(‘бала кг='); readln(m2);
writeln(‘қайық max кг='); readln(k);
m:=m1+m2;
if m>k then writeln(‘бaла қазына байлыққa жете алмады‘)
else
begin
writeln(‘бала өзеннен өтті‘);
writeln(‘1-дорбa=‘); readln(a1);
writeln(‘2-дорбa=‘); readln(a2);
writeln(‘3-дорбa=‘); readln(a3);
if a1 if a3 writeln(‘eң жеңілi=‘,a);
end;
readln;
End.

,a1,a2,a3,a

ешнәрсе жоқ қайықшы, және бір дорба алтыны бар бала қайыққа отырып, жүзе бастады.
Бала алтынды алып өтті ме, немесе суға батып кетті ме?

readln(m1);
writeln(бала кг='); readln(m2);
writeln('қaйық max кг='); readln(k);
m:=m1+m2;
if m>k then writeln('бaла қазына байлыққa жете алмады')
else
begin
writeln('балa өзеннен өттi');
writeln('1-дорбa='); readln(a1);
writeln(‘2-дорбa='); readln(a2);
writeln('3-дорбa='); readln(a3);
if a1 if a3 writeln('eң жеңілi',a);
s:=m+a;
if s else writeln (‘бала мен қайықшы суға батып кетті’);
End.

алатын массасы k=115
Бірінші дорбаның салмағы а1=15 кг,
Екінші дорбаның салмағы а2=14,5 кг,
Үшінші дорбаның салмағы а3=13 кг.

Билеттің «бақытты» номер екенін анықтайтын бағдарлама құру керек. Бақытты билеттің алғашқы 3 цифрының қосындысы соңғы 3 цифрының қосындысына тең.