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

• 1 слайд

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

• 2 слайд

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

• 3 слайд

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

• 4 слайд

  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.
  

• 5 слайд

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

• 6 слайд

  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.
  

• 7 слайд

  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минтта неше бактерия пайда болатынын тап.
  Жаңа бактериялар да минут сайын көбейіп отырады.
  

• 8 слайд

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