- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад на тему IDE Free Pascal ортасында модельдеу тақырыбы бойынша тәжірибелік жаттығулар
Содержание
- 1. IDE Free Pascal ортасында модельдеу тақырыбы бойынша тәжірибелік жаттығулар
- 2. ЦИКЛДІК ОПЕРАТОР МЕНШІКТЕУ ОПЕРАТОРЫПРОЦЕДУРАГРАФИКАЛЫҚ РЕЖИМШАРТСЫЗ ОПЕРАТОРЫТАҢДАУ ОПЕРАТОРЫFOR TO DOREPEAT … UNTILWHILE … DO
- 3. CASEGOTOIF … THEN … ELSE
- 4. «IDE FREE PASCAL-да модельдеу» тақырыбы бойынша тәжірибелік жаттығулар
- 5. Топтық жұмыс
- 6. Жеке жұмысГерон формуласымен үшбұрыштардың ауданын табатын программаны ретімен орналастыр:Program audan;P,S:real;Begin K:=1;While K
- 7. Қатесін тапProgram shekteu;Label 1,2,3Type Mezgil=(kys, koktem,jaz,kuz);Var x:kys..kuz;
- 8. «Ұшақ» әдісі
- 9. Үйге тапсырма: §22, 118-беттегі тапсырманы орындау
ЦИКЛДІК ОПЕРАТОР МЕНШІКТЕУ ОПЕРАТОРЫПРОЦЕДУРАГРАФИКАЛЫҚ РЕЖИМШАРТСЫЗ ОПЕРАТОРЫТАҢДАУ ОПЕРАТОРЫFOR TO DOREPEAT … UNTILWHILE … DO
Слайд 2ЦИКЛДІК ОПЕРАТОР
МЕНШІКТЕУ ОПЕРАТОРЫ
ПРОЦЕДУРА
ГРАФИКАЛЫҚ РЕЖИМ
ШАРТСЫЗ ОПЕРАТОРЫ
ТАҢДАУ ОПЕРАТОРЫ
FOR TO DO
REPEAT … UNTIL
WHILE
… DO
Слайд 6Жеке жұмыс
Герон формуласымен үшбұрыштардың ауданын табатын программаны ретімен орналастыр:
Program audan;
P,S:real;
Begin K:=1;
While
K<=6 do
Var A,B,C,K:byte;
Begin
Writeln(K, ‘uwburiwtin kabirgalarin engiz’);
S:=sqrt(P*(P-A)*(P-B)*(P-C));
Readln(A,B,C);
P:=(A+B+C)/2;
Writeln(‘audan’,S);
Inc(K);
End;
Readln end.
Var A,B,C,K:byte;
Begin
Writeln(K, ‘uwburiwtin kabirgalarin engiz’);
S:=sqrt(P*(P-A)*(P-B)*(P-C));
Readln(A,B,C);
P:=(A+B+C)/2;
Writeln(‘audan’,S);
Inc(K);
End;
Readln end.
Слайд 7Қатесін тап
Program shekteu;
Label 1,2,3
Type Mezgil=(kys, koktem,jaz,kuz);
Var x:kys..kuz; K:byte;
Begin
1:readln(K)
If k=1 then x:=kys
Else
If K=2 then x:=koktem
Else if K=3 then x:=jaz
Else If K=4 then x:=kuz else goto 2
Case x of
Kys:writeln(‘желтоксан,кантар,акпан’)
Koktem:writeln(‘наурыз,сәуір,мамыр’)
Jaz:writeln(‘маусым,шілде,тамыз’)
Kuz:writeln(қыркүйек,қазан,қараша)
End; goto3;
2: writeln(‘бундай номерли мезгил жок,кайта енгиз’); Goto1;
3:Readln; End.
Else if K=3 then x:=jaz
Else If K=4 then x:=kuz else goto 2
Case x of
Kys:writeln(‘желтоксан,кантар,акпан’)
Koktem:writeln(‘наурыз,сәуір,мамыр’)
Jaz:writeln(‘маусым,шілде,тамыз’)
Kuz:writeln(қыркүйек,қазан,қараша)
End; goto3;
2: writeln(‘бундай номерли мезгил жок,кайта енгиз’); Goto1;
3:Readln; End.
