Сабақтың тақырыбы: Турбо Паскаль программалау ортасында қарапайым программа құру.

Сабақтың мақсаты: 1.Турбо Паскаль ортасын қосуға, меню командаларын пернелермен, тышқанмен таңдауға, таңдауды тездету мен Турбо Паскаль анықтама жүйесін редакторлау мүмкіндігіне жаттықтыру. 2. Редактор терезесіне программа текстісін шығару. Программаны компиляциалау..ехе-файл жасау. Программаның орындалуы, оны экранда қарап шығу. Программаны дискіге сақтау. Программалау ортасында жұмысты аяқтау.

Информатикалық диктант 1.Паскаль тілін шығарған кім? 2. Паскаль тіліндегі программа құрылымы. 3. Паскаль тілінің негізгі элементтерің ата. 4. Өрнектер қалай жызылады? 5. (а+в)/(а-в) 6. (а+в)/х*у ; а+в/х*у 7. 10div 3, 5div2, 8div3, 7div mod 3, 5mod 2, 8mod3, 7mod2 9. Мына амалдардың мағынасы бар ма? 2.5div7.1; 7 mod 2.3 ; 5.2 div3 10. Паскаль тілінде жаз Х *2 + х

Жауаптары: жж, Никлаус Вирт, швейцариялық ғалым 2. PROGRAM Сипаттау бөлімі Begin Операторлар бөлімі End. 3.Әріптер, цифрлар, логикалық мәндер, шектемелер, қызметші сөздер 4.Паскаль тілінде өрнектер тек сызықты түрде жазылады.

ІІ Негізгі бөлімі Мына алгоритм бойынша жұмыс жасау: 1.Тірек –сигнал пайдаланып, ДК -де Турбо Паскаль ортасын қосу. 2. Паскаль терезесінде анықтама арқылы меню командаларымен танысу. 3.Редакор терезесіне программа текстісін шығару. ІІ.Программаны компиляциалау,программаны орындау, оны қарап шығу. ІІІ. Программаны дискіде сақтау. 6. Программалау ортасында жұмысты аяқтау

Операторлар: ендіру операторы Read( ) шығару операторы Write ( ) меншіктеу операторы S:= (a+b)/2 Әр оператордан соң нүктелі үтір (;) таңбасы қойылады

І. Меню командасын пайдалану үшін: Alt+F9 Compile Программаны компиляциялау- Ctrl+F9 RUN (орындау) Аlt+F5 (нәтиже шығару) F2 -File/save (сақтау) File-Exit (ТП ортасын жабу) F3-File/Open (ашу)

Практикалық жұмыс Деңгейлік тапсырма орындау: 1 деңгей Екі бүтін саннын көбейтіндісін табу программасын құру. 2 деңгей Радиусы 5,5 см болатын берілген шеңбердің ұзындығын табу программасын құру 3 деңгей Қабырғалары а,в,с болатын үшбұрыштын ауданын табу программасын құр.

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.