Инф олимпиада doc


Кезең бойынша жасалған есептер



бет32/66
Дата08.02.2022
өлшемі91,93 Kb.
#123795
1   ...   28   29   30   31   32   33   34   35   ...   66
Байланысты:
1544775476 (1)

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


Достарыңызбен бөлісу:
1   ...   28   29   30   31   32   33   34   35   ...   66




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет