Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Другие методич. материалы / Паскаль тілінде есептерді шешу бойынша практикум
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

Паскаль тілінде есептерді шешу бойынша практикум

библиотека
материалов

Пән аты: Информатика

Сыныбы:9

Сабақтың тақырыбы: Есептер шешу бойынша практикум

Сабақтың мақсаты: Оқушыларға Паскаль есептерін шығару жолдарын үйрету;

Білімділігі: Типтердің Паскаль тілінде жазылу түрлері туралы ұғымдарын дамыту;

Дамытушылығы: Оқушыларды программалау тілінің командаларымен және құрылыммен таныстыра отырып, логикалық ой-өрістерін дамыту; Қоршаған ортаның ортақ қасиеттері мен жеке қасиеттерін айыра білуге тәрбиелеу.

Тәрбиелік: Оқушыларды ұқыптылыққа, жинақылыққа адамгершілікке тәрбиелеу.

Сабақтың түрі: Білім білікті қалыптастыру сабағы

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

1. Ұйымдастыру

2. Үй тапсырмасын тексеру

3. Есептер шығару

4. Үйге тапсырма


ІІ.Үйге берілген есептерді тексеру

ІІІ. Есептер шығару:


3 КЕ БӨЛІНСЕ САНДАРДЫ ҚОС, 3 КЕ БӨЛІНБЕСЕ АЗАЙТ

program esep;var n,m:integer; x:real;begin write('n='); read(n);

write('m='); read(m);if (n mod 3=0) and (n mod 3=0) then x:=n+m else x:=n-m;

{if a=m/3 then a:=n+m else a:=n-m;}

write('x=',x:6:2); end.


МАКСИМУМДЫ ТАБУ

program esep2;var a,b,c,max:integer;

begin read(a,b,c);if a>b then max:=a else if b>c

then max:=b else if a>c then max:=a else max:=c;

write('max=',max); end.



hello_html_m396bc6ff.png


ПЕРИМЕТР, АУДАН ТАБУ

Program audan; Var a,b,c,p,s: real;

Write (‘a,b.c); Read(a.d,c)/2;

P:=(a+b+c)/2; S:=sqr(p*(p-a)*(p-b)*(p-c));

Write(p,s); End.


РАДИУС ЕСЕПТЕУ

Program Audan;Const r=5.2;

Var L,S:real;begin

L:=2*pi*r;S:=pi*sqr(r);

Writeln (‘Дөңгелек ауданы =’, S:4:2);

Writeln (‘Шеңбер ұзындығы =’, L:5:2)

end.


КУБТЫҢ КӨЛЕМІ

Program Pl1;

Var a,V: integer; a-кубтың қабырғасы, V-көлемі

Begin read(a); қабырғаны енгізу

V:=exp(3*ln(a)); (* куб көлемі V=a^3 *)

Writeln (‘V=’, V); end.


Екі санның үлкенін табыңдар.ШАРТ

Program m1;

Var a,b, max: integer;

Begin Write (‘2 санды енгіз’); read (a,b);

If a>b then max:=a else max:=b;

Writeln (‘Жауап:’, max);end.


Квадрат теңдеудің түбірін табыңдар.

Program m2;

Var a,b,c,D:integer; x1,x2: real;

begin Write (‘кв.теңдеу коэффициенттерін енгіз:’); readln (a,b,c);

D:=b*b-4*a*c;  дискриминантты есептеу 

If d<0 then writeln (‘түбірі жоқ ’)

else begin x1:=(-b+sqrt(D))/(2*a); x2:=(-b-sqrt(D))/(2*a);

Writeln (‘x1=’, x1, ‘x2=’, x2); end; end.


ТАҢДАУ ОПЕРАТОРЫ

Program m1;

var n: byte; begin

write (1-ден 7-ге дейінгі санды енгіз);

read (n); сase n of

1: Writeln (Дүйсенбі);2: Writeln (Сейсенбі);

3: Writeln (Сәрсенбі);4: Writeln (Бейсенбі);

5: Writeln (Жұма);6: Writeln (Сенбі);

7: Writeln (Жексенбі) else writeln (Дұрыс емес)

end; end.


5 санының көбейту кестесін экранға шығаратын программа құрыңдар Program m1;

var i, p : integer;begin

for i:=1 to 9 do begin

p:=5*i; Writeln (i,'*5=', p)

end;end.


n!-мәнін есептеу программасын әзір циклі арқылы жазайық..

PROGRAM M1; var i, n: integer; P: longint;

Begin read (n);

P:=1; i:=1; While i<=n do

Begin P:=P*i; i:=i+1;

end; Write ('n!=', P);end.


x-тің мәні -5-тен 5-ке дейін 0,2 қадаммен өзгерген мәндері үшін у=х2-1 функциясының мәндерін экранға шығарындар.

PROGRAM M1; var X, y: real;

Begin x:=-5; While x<=5 do

Begin y:=sqr(x)-1; Writeln (x,'---',y);

x:=x+0.2; end; end.


n бүтін сан берілген. Олардың көбейтіндісін есептеңдер. Егер сан 0-ге тең болса, циклден шығу үшін Break операторын қолданыңдар.

var i, n, x, P: integer;

begin read (n); санның нешеу екенін енгізу

for i :=1 to n do

begin readln (x);  әрбір санды енгізу

if (x=0) then break;

P:=P*x;end;writeln ('P=',P) ;end.


[10,50] аралығындағы 5 кездейсоқ бүтін санды шығару программасы.

Var x: real; i: byte;

Begin for i:=1 to 5 do

Begin x:=random (40)+10;

Writeln (x) ;end;end.



ІV. Үйге тапсырма:

Екі натурал санның ең үлкен ортақ бөлгішін табыңдар




Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Автор
Дата добавления 07.02.2016
Раздел Информатика
Подраздел Другие методич. материалы
Просмотров595
Номер материала ДВ-424407
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх