Кезең бойынша жасалған есептер
Алгебра пәнінен жасалған есептер:
І-кезең
Әр түрлі тіркестерді қолдана отырып,тұрақтыларды
анықтайтын программа құр.
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
Қатесіз дұрыс жазылған программа
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.
Достарыңызбен бөлісу: |
