Презентация по информатике на тему "Рaskal ABC"

Слайд #1

Kerki etrabyndaky 10-njy orta mekdebiň informatika mugallymy
Aýjan Saparowanyň

iş tejribesinden

Слайд #2

9-njy synp
PaskalABC programmanyň gurluşy

Слайд #3

Programma-
Kompýuter üçin düşnükli bolan operatorlaryň tertipleşdirilen yzygiderligidir.

Слайд #4

PaskalABC programmanyň penjiresiniň umumy görnüşi:

Слайд #5

Işjeň penjire- bu
ekrany doly tutup ýa-da onuň belli bir bölegini tutup biler. Onuň kömegi bilen ulanyjy saýlap alan hereketini takyklaýar. Işjeň penjiräniň içinde birnäçe uçastoklar bolup bilýär. Giriş uçastogynda programmist tekst ýazgyly setiri girizip biler.

Слайд #6

PaskalABC dilinde programmanyň umumy görnüşde ýazylyşy:
uses crt;
begin
clrscr;
write ('salam');
readln;
end.

Слайд #7

Netijäni almak üçin Shrft we F9 düwmeleri basmaly.

Слайд #8

.
Çyzykly gurluşly
algoritmleri
programmalaşdyrmak

Слайд #9

Bu bölümde ulanylýan operatorlar:

Baha bermek operatory : = .
Giriş operatorlary: read, readln .
Çykyş operatorlary: write, writeln .
Üýtgeýän ululuklary beýan
edýän bölümi: var .
Arifmetiki amallar:
div (bitinleýin bölmek),
mod (galyndyly bölmek).

Слайд #10

Bitin tipli bahalar:

Слайд #11

Ikibelgili san berlipdir. Onuň sifrleriniň jemini we köpeltmek hasylyny tapmaly.



uses crt;
var a,x,y,s,p:integer;
begin
clrscr;
write ('ikibelgili sany giriz:'); read (a);
x:=a div 10;
y:=a mod 10;
s:=x+y;
p:=x*y;
writeln ('sifrlerin jemi ',s);
write ('sifrlerin kopeltmek hasyly ',p);
readkey;
end.

Слайд #12

Şahalanýan gurluşly algoritmleri programmalaşdyrmak

Слайд #13

Bu bölümde ulanylýan operatorlar:
Geçiş operatory: goto n
Belgileriň beýan edilýän bölümi: Label n1
Şertli operator: 1. if b then a;
2. if b then a1 else a2;
3.if b1 then a1 else if b2 then a2 else a3;
Saýlaw operatory: сase с of
 

Слайд #14

Hakyky tipli bahalar:

Слайд #15

Mysal
Bitin san berlipdir. Eger-de ol položitel bolsa, onda ol sana 1-i goşmaly; galan ýagdaýda ol sandan 2-ni aýyrmaly. Emele gelen sany çapa çykarmaly

Слайд #16

uses crt;
var a: integer;
begin
clrscr;
write ('sany giriz='); read (a);
if a>0 then write('a=', a,' san polozitel a+1=',a+1) else write('a=',a,' san otrisatel a-2= ',a-2);
readkey;
end.

Слайд #17

Gaýtalanýan gurluşly algoritmleri programmalaşdyrmak

Слайд #18

Parametrli sikl operatory:
1. for i:= m1 to m2 do s
2. for i:= m1 downto m2 do s;

Слайд #19

Şerti öňünden goýulýan operator:
while <şert> do s;

Şerti soňundan goýulýan operator:
repeat s until <şert>

Слайд #20