Физика пәнінен жасалған есептер
І-кезең
Дененің жұмысы мен уақыты берілген.Осы дененің қуатын
табатын программа жаз
program kat16;
label 1;
Var A,t:integer;P:real;
Begin
Writeln;Write (‘gumis pen uakitti engiz’);readln (A,t);
P:=length(A,t);P:=A/t;
Writeln (‘P=’,P);
Readln End.
ІІ-кезең
Program kat15;
Var N:real;A.F:Integer;
Begin
Writeln;Write (‘gumis pen energiani engiz’);readln (A,F);
N:=Copy (A,F);N:=A*F;
Writeln (‘N=’,N);
End;
Readln End.
Дененің жұмысы мен энергиясы берілген.Осы дененің қуатын табыңыз
ІІІ-кезең
Қате жазылған программа
Program kat18;
Var S:string;a,h:integer;
Begin
Write (‘audannin uzindigin tabiniz’);readln (a,h);
S:=a*h; S:=copy(a,h)
Writeln (‘S=’,S)
End
Readln End.
Қатесіз дұрыс жазылған программа
Program kat18;
Var S:String;a,h:Integer;
Begin
Write (‘audannin usindigin tabiniz’);readln (a,h);
S:=a*h; S:=copy(a,h);
Writeln (‘S=’,S);
End;
Readln End.
Достарыңызбен бөлісу: |
