Кезең бойыншажасалған есептер Алгебра пәнінен жасалған есептер: І-кезең Әр түрлі тіркестерді қолдана отырып,тұрақтыларды анықтайтын программа құр. Program katarlar1;
Const S=’Kaisar’;
Type Gymn=String[10];
Var X:String[17];
A:String[6];
B:String;
C:Gymn;
Writeln (‘C=’,C);
Readln End.
II-кезең Program Kat2;
Var X:String;A:Integer;
Begin X:=’Pentium-III’;
A:=Length(X);
Writeln (‘A=’,A);
Readln End.
Х жолдық қатарының ұзындығын есептейтін программа жаз ІІІ-кезең
Қате жазылған программа Program kat3;
Var X:String;K:Byte;
Begin Write (‘Katardin manin engiz:’);Readln (X);
For K:=1 To Length(X) Do X[K]:=Upcase(X[K]);
Writeln (‘Katardin gana mani X=X)
Readln End
Var X:String;K:Byte;
Begin Write (‘katardin manin engiz:’);Readln(X);
For K:=1 To Length(X) Do X[K]:=Upcase (X[K]);
Writeln (‘Katardin gana mani X=’,X);
Readln End.
