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



Download 8,2 Kb.
Sana08.12.2022
Hajmi8,2 Kb.
#881259
Bog'liq
labarator


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)
Download 8,2 Kb.

Do'stlaringiz bilan baham:




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish