Тармақталған программалау: Program esepl;
Var x:integer; y:real;
Begin Write('x енгіз:'); Readln(x);
If x > 0 then y:=5*sin(x)
Else y:=abs(x);
Writeln ('Y =', Y:2:2);
End.
Қайталанған циклді программалау: 1 Үшін-ге Program esepteu;
Var i,n:integer; S:real;
Begin Write('n енгіз:'); Readln(n);
S:=0;
For i:=l to n do S:=S+i;
Writeln ('Қосынды =', S:2:2);
End.
2 Әзірше-ге Program esepteu;
Var i,n:integer; S:real;
Begin Write('n енгіз:'); Readln(n);
S:=0; i:=l;
While i <=n do begin
S:=S+1; I:=i+1; end;
Writeln ('Қосынды =', S:2:2);
End.
3 Дейін-ге Program esepteu;
Var i,n:integer; S:real;
Begin Write('n енгіз:'); Readln(n);
S:=0; i:=l;
Repeat
S:=S+1; I:=i+1;
Until i>n;
Writeln ('Қосынды =', S:2:2);
End.
2.6 Сызықтық алгоритмдерді программалау
Оқыту мақсаты: диалогты программалар логикасын түсіну, команданы атқаруды меңгеру, дискіге жазу және каталогты қарау.
Ұсынылатын командалар: енгізу, шығару командалары, түсіндірмелердің жазылуы.
Оқыту әдісі: дайын программа мысалы, ары қарай оны өзінің жалғастыруы. Мазмұны: формула бойынша есептеуді программалау. Диалогты тілдерде оқушылар бірден дисплеймен жұмыс істеп кетеді, өйткені текстің үлкен бөлігін олар тікелей режимде өздері дайындайды.
Есеп былай тұжырымдалады: формула бойынша есептеуге арналған сызықтық алгоритмді құрыңдар; берілгендерді диалогпен енгізіңдер. Мысал келтірейік: -
Program audan;
Var a,b,c: integer;
p, s:real;
begin
writeln('a,b,c ентіз :');
readln(a,b,c);p:=(a+b+c)/2;s:=sqr(p*(p-a)*(p-b)*(p-c));
wгі1е1п('Аудан=', s:2:0);
end.
Алғашқы нұсқау болмаған жағдайда оқушы программаны орындауға жібергеннен кейін ? белгісін немесе бос орынды көріп, сасып қалады. Сондықтан алғашқы кезеңнен бастап, нұсқауды енгізу дағдысын қалыптастыру қажет. Сондай-ақ, біраз уақыт өткеннен кейін оқушы берілгендерді қандай ретпен енгізу керек екенін ұмытып қалады. Сол себептен, әрбір енгізілетін берілгендерге нұсқауларды жеке -жеке берген дұрыс.
