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

• 1 слайд

  А. Югнаки атындағы жалпы орта мектеп
  Ашық сабақ
  9 сынып информатика
  if
  then
  else
  

• 2 слайд

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

• 3 слайд

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

• 4 слайд

  Тармақталған алгоритм дегеніміз не?
  Қойылған шартқа байланысты екі немесе екіден көп тармақтары бар алгоритм
  

• 5 слайд

  Тармақтың жазылу пішіндерін атаңыз
  1.Тармақтың толық пішіні
  2. Тармақтың қысқартылған пішіні
  3. Таңдау алгоритмі.
  
  

• 6 слайд

  Мына операторлардан Паскаль тілінде тармақ программасын құрыңдар.
  Program, if, integer, then, begin, end, writeln, else, read, var, real
  Program
  var real integer
  begin
  writeln
  read
  If then else
  write
  end.
  

• 7 слайд

  
  
  
  А-нің мәнін табыңыз:
  басы
  А:= 23456
  А>=2345
  А:= A MOD 10
  А:= A DIV 10
  
  А
  соңы
  ия
  жоқ
  

• 8 слайд

  Есептерді қайсы алгоритмға тиісті екендігін түсіндір
   
  

• 9 слайд

  Француз ғалымы Блез Паскаль (1623-1663) математика, физика, информатика саласында көптеген жаңалықтар ашқан
  "think and found"
  

• 10 слайд

  Алгоритм атауы атақты араб математигі Әбу Жафар Мұхаммед ибн Мұса әл-Хорезми есімінің латынша Algorithmi (Алгоритми) болып жазылуынан шыққан
  "think and found"
  

• 11 слайд

  Швейцариялық ғалым Никлаус Вирт Паскаль программалау тілін 1968-1971 жылдары оқып-үйренуге қолайлы программалау тілі ретінде ұсынған болатын
  "think and found"
  

• 12 слайд

  Сөздік
  IF -- агар -- егер
  THEN -- у ҳолда -- онда
  ELSE -- акс ҳолда – әйтпесе
  CASE – танлаш – таңдау
  OF – нинг -- нің
  қайталау
  

• 13 слайд

• 14 слайд

  2 Желтоқсан
  Turbo Pascal бағдарламалау тілінде қарапайым логикалық есептерді шығару.
  

• 15 слайд

  Тапсырма-1.
  If j>k then j:=k-2 else if j<k then k:=k-2 else j:=k+3 ;
  болса j , k айнымалыларының мәндерін табыңдар?
  
  J = 3 ,  k = 3
  J = 1 ,  k = 3
  J = 11 ,  k = 8
  

• 16 слайд

   Экранға шығару операторы , санның модулі, R=abc/4s ,
  екінші дәрежелі түбір , (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.
  

• 17 слайд

• 18 слайд

  Тапсырма-3. Программа мәтініндегі қателерді анықтап, компьютерге енгізуге дайындаңдар.
  Қатесі бар программа
  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.
  
  

• 19 слайд

  Program E2;
  VAR x, y: REAL;
  Begin
  Write (‘х енгіз:’);
  Readln (x);
  IF x< 0 Then 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;
  
  Қатесі бар программа
  Қатесіз программа
  

• 20 слайд

  Қатесі бар программа
  Қатесіз программа
  program квартал;
  var n; byte;
  begin
  real (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.
  

• 21 слайд

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

• 22 слайд

  m>k
  өзеннен өте
  алмайды
  
  өзеннен өте
  алады
  
  +
  -
  Алгоритмдік тілде
  
  егер <m>k>
  онда <өзеннен өте алмайды >
  әйтпесе <өзеннен өте алады >
  бітті
  
  Паскаль тілінде
  
  IF < m>k >
  THEN <өзеннен өте алмайды >
  ELSE < өзеннен өте алады >
  
  Блок-схемасы
  

• 23 слайд

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

• 24 слайд

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

• 25 слайд

  m>k
  өзеннен өте
  алмайды
  +
  -
  a1<а2
  a:=a1
  
  +
  -
  a:=a2
  
  a3<а
  a:=a3
  
  a:=a
  
  +
  -
  ең жеңілі а
  

• 26 слайд

  program ertegi;
  Var m1,m2,k,m :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<a2 then a:=a1 else a:=a2;
  if a3<a then a:=a3 else a:=a;
  writeln(‘eң жеңілi=‘,a);
  end;
  readln;
  End.
  ,a1,a2,a3,a
  

• 27 слайд

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

• 28 слайд

  m>k
  өзеннен өте
  алмайды
  +
  -
  a1<а2
  
  a:=a1
  
  +
  -
  
  a:=a2
  
  a3<а
  
  a:=a3
  
  
  a:=a
  
  +
  -
  
  s:=m+a
  
  s<k
  -
  +
  ең жеңілі а
  соңы
  

• 29 слайд

  program ertegi;
  Var m1,m2,k,m,a1,a2,a3,a,s:real;
  begin
  writeln('қ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<a2 then a:=a1 else a:=a2;
  if a3<a then a:=a3 else a:=a;
  writeln('eң жеңілi',a);
  s:=m+a;
  if s<k then writeln (‘бала алтынды үйіне алып барды’)
  else writeln (‘бала мен қайықшы суға батып кетті’);
  End.
  
  

• 30 слайд

  Егер баланың салмағы m1=54 кг,
  Қайықшының салмағы m2=45 кг,
  Қайықтың көтере алатын массасы k=115
  Бірінші дорбаның салмағы а1=15 кг,
  Екінші дорбаның салмағы а2=14,5 кг,
  Үшінші дорбаның салмағы а3=13 кг.
  
  

• 31 слайд

  Рефлексия
  Сабақ ұнадыма?
  Сары смайликті көтеріңіз
  
  Қызыл смайликті көтеріңіз
  Сабақ үшін рахмет
  Үйге тапсырма:
  ия
  жоқ
  

• 32 слайд

  Үйге тапсырма:
  Пернетақтадан трамвай билетінің номері (1 орынды 6 сан) енгізіледі. Билеттің «бақытты» номер екенін анықтайтын бағдарлама құру керек. Бақытты билеттің алғашқы 3 цифрының қосындысы соңғы 3 цифрының қосындысына тең.
  
  

• 33 слайд

  НАЗАРЛАРЫҢЫЗҒА
  РАХМЕТ!
  

• 34 слайд

  Бағалау парағы