1. Pascal ortalıǵına ápiwayı másele programmaların kiritiw hám olardı redaktorlaw

Tapsırmalar:

1. Pascal ortalıǵına ápiwayı másele programmaların kiritiw hám olardı redaktorlaw.

2. Pascal ortalıǵına shártli operatorlar járdeminde jaratılǵan programmalardı kiritiw hám olardı redaktorlaw.
3. Pascal ortalıǵında programmadaǵı ózgeriwshilerdi redaktorlań, olardı kompilyaciya qılıń
4. Programmanı iske tusiriń hám kerekli nátiyjelerdi alıń.
Programmanı όzimizge qolay kόriniske keltiriw ushın redaktorlaymız hám oǵan
όzgeris kiritemiz.
Uses crt;
Var
N1,n2,s:real;
Begin
Clrscr;
Write(‘birinshi sandı kiritiń=’); Read(n1);
Write(‘Ekinshi sandı kiritiń=’); Read(n2);
S:=n2*100/n1;
Write(n2:0:0,’ sanı ’,n1:0:0,’ sanınıń payda etiwshi procenti = ’,s:0:0);
End.

2)Shártli operatorlar járdeminde redaktorlaw:

Uses crt;

Var

N1,n2,s:real;

Begin

Clrscr;

Write(‘birinshi sandı kiritiń=’); Read(n1);

Write(‘Ekinshi sandı kiritiń=’); Read(n2);

If n1>n2 then begin

S:=n2*100/n1;

Write(n2:0:0,’ sanı ’, n1:0:0,’ sanınıń payda etiwshi procenti = ’,s:0:0);

End;

If n2>n1 then begin

S:=n1*100/n2;

Write(n1:0:0,’ sanı ’, n2:0:0,’ sanınıń payda etiwshi procenti = ’,s:0:0);End

Else

Write(n1:0:0,’=’, n2:0:0,’ 100% ‘);

End.

3)