Презентация по информатике 9 класс

Паскаль программалау тілі

IF Онда THEN Таңдау ELSE Оқу READ Үшін WRITE Жазу FOR Егер CASE Әйтпесе

Благодаря этой рекламе сайт может продолжать свое существование, спасибо за просмотр.

а с b 1) a = 4cm, b = 3cm, c = 5cm P - ? 2) a = 4cm, b = 3cm, S - ? 3) a = 4cm, b = 3cm, c - ? «Алгоритм» оқыта үйрету.

Program Perimetr, Var a,b,c,P:integer, Begin Readln(a,b,c), P:=a+b+c, Writeln(P), End. Program Audan, Var a,b,S:integer, Begin Readln(a,b), S:=ab/2, Writeln(S), End. Program gipotenusa, Var a,b,c:integer, Begin Readln(a,b), c:=sqrt(sqr(a)+sqr(b)), Writeln(c), End.

Екі санның үлкенін табу. Апта күнін анықтау. 1 – ден 100 – ге дейінгі сандар қосындысын табу. Деңгейлік тапсырмалар.

Program max, Var a,b,max:integer, Begin Readln(a,b), if a>,b then max:=a else max:=b, Writeln (max), End. Program kosu, Var i,n,S:integer, Begin Readln (n), S:=0,For i:=1 to n do Begin S:=s+I,End, Writeln (S), End. Program Apta, Var n:integer, Begin Readln (n), Case n of 1:write(‘mondey’), 2:write(‘tuersdey’), 3:write(‘yensedey’), 4:write(‘fridey’), 5:write(‘saturdey’), 6:write(‘sandey’), else End.

Program Apta, Var i,n,S:integer, Begin Readln (n), S:=0, Begin for i:=1 to n do S:=s+exp(i*ln(2)), End, S:=s+1, Writeln (S), End. Әрбір бактерия бір минутта екіге бөлінеді. Басында бір бактерия берілген деп, 5минтта неше бактерия пайда болатынын тап. Жаңа бактериялар да минут сайын көбейіп отырады.

Венн диаграммасы Алгоритм. Паскаль тілі