1139863
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 1.410 руб.;
- курсы повышения квалификации от 430 руб.
Московские документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ ДО 90%

ВНИМАНИЕ: Скидка действует ТОЛЬКО до конца апреля!

(Лицензия на осуществление образовательной деятельности №038767 выдана ООО "Столичный учебный центр", г.Москва)

ИнфоурокИнформатикаДругие методич. материалыПаскаль тілінде есептерді шешу бойынша практикум

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

библиотека
материалов
Скачать материал целиком можно бесплатно по ссылке внизу страницы.

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

Сыныбы: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. Үйге тапсырма:

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



Общая информация

Номер материала: ДВ-424407

Вам будут интересны эти курсы:

Курс повышения квалификации «Табличный процессор MS Excel в профессиональной деятельности учителя математики»
Курс повышения квалификации «Методика преподавания информатики в начальных классах»
Курс повышения квалификации «Основы создания интерактивного урока: от презентации до видеоурока»
Курс повышения квалификации «Внедрение системы компьютерной математики в процесс обучения математике в старших классах в рамках реализации ФГОС»
Курс повышения квалификации «Организация работы по формированию медиаграмотности и повышению уровня информационных компетенций всех участников образовательного процесса»
Курс повышения квалификации «Облачные технологии в образовании»
Курс «Фирменный стиль» (Corel Draw, Photoshop)
Курс «1С: Предприятие 7.7»
Курс «WEB-ВЕРСТКА (HTML, CSS)»
Курс повышения квалификации «Развитие информационно-коммуникационных компетенций учителя в процессе внедрения ФГОС: работа в Московской электронной школе»
Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс профессиональной переподготовки «Математика и информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Специфика преподавания дисциплины «Информационные технологии» в условиях реализации ФГОС СПО по ТОП-50»
Курс повышение квалификации «Применение интерактивных образовательных платформ на примере платформы Moodle»

Благодарность за вклад в развитие крупнейшей онлайн-библиотеки методических разработок для учителей

Опубликуйте минимум 3 материала, чтобы БЕСПЛАТНО получить и скачать данную благодарность

Сертификат о создании сайта

Добавьте минимум пять материалов, чтобы получить сертификат о создании сайта

Грамота за использование ИКТ в работе педагога

Опубликуйте минимум 10 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Свидетельство о представлении обобщённого педагогического опыта на Всероссийском уровне

Опубликуйте минимум 15 материалов, чтобы БЕСПЛАТНО получить и скачать данное cвидетельство

Грамота за высокий профессионализм, проявленный в процессе создания и развития собственного учительского сайта в рамках проекта "Инфоурок"

Опубликуйте минимум 20 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Грамота за активное участие в работе над повышением качества образования совместно с проектом "Инфоурок"

Опубликуйте минимум 25 материалов, чтобы БЕСПЛАТНО получить и скачать данную грамоту

Почётная грамота за научно-просветительскую и образовательную деятельность в рамках проекта "Инфоурок"

Опубликуйте минимум 40 материалов, чтобы БЕСПЛАТНО получить и скачать данную почётную грамоту

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