Берілген программаның қатесін анықта
Program kolem;
Var v, t: integer; u:real;
Begin read (v, t);
U:= v/t;
Write (v);
End.
Программаның денесі берілген, басы мен аяғын жаз
………………
……………...
……………...
M:= j/v
……………..
……………..
Программаның басы мен аяғы берілген, денесін жаз
Program jily;
Var v, t:integer; vm: real;
Begin read (v,t);
………………
Write (Vm);
End.
Биология пәнінен алынған есептер
1. Есептің шарты берілген программасын жаз.
Түн аруы гүлінің қызыл түсі ақ түске толымсыз доминантты осы өсімдіктерді өзара будандастыр –ғанда қызғылт гүл алынды. Ғ1 және Ғ2 ұрпақтар алудың сызбанұсқасын жазатын программа жаз.
Есептің программасы құрылған шартын жаз.
Program kocindi;
Var A a, B b:integer; F:real;
Begin read (Aa, Bb);
F:= Aa + Bb + Cc;
Write (F);
End.
3. Берілген программаның қатесін анықта
Program gul;
Var A,B,C,D:integer; S:real; L:real;
Begin read (A,B,C,D);
L:=A*B/C*D
Write (L);
End.
4. Программаның басы мен аяғы берілген, денесін жаз
Program tozandandiry;
Var Fa, Fb: integer; Fb,Fa:real;
Begin read (Fa, Fb)
Begin read (Fb, Fa);
…………………..
Write (Fa, Fb);
End.
Достарыңызбен бөлісу: |
