linkedin facebook linkedin facebook nod32

PaskalABCda Begin bo`yicha misollar

Muallif: Faxriddinov Sh.

Qo`shilgan sana: 2015-01-27

PaskalABCda Begin bo`yicha misollar

program misol_1;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: a soni bn.Bu sonni ekranga chiqarish dasturini
tuzing
  uses crt;
var a:real;
begin
writeln ('Ixtiyoriy haqiqiy son kiriting:');
write ('a=');   read(a);
writeln ('a=' ,a);
end.

program misol_2;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: a soni bn ekranga yashil rangda chiqarish
 dasturini tuzing
//Qiymat ekranda rang bn TEXTCOLOR
  uses crt;
  var a:real;
  begin
  Textcolor (green);
writeln ('Ixtiyoriy haqiqiy son kiriting:');
write ('a=');   readln(a);
writeln ('a=' ,a);
end.

program misol_3;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: a soni bn  oq ekranga chiqarish dasturini tuzing
//CLRSCR butun ekranni qoplaydi
//TEXTBACKGROUND ekran rangi
  uses crt;
  var a:real;
  begin
  Textbackground (white);
  ClrScr;
writeln ('Ixtiyoriy haqiqiy son kiriting:');
write ('a=');   readln(a);
writeln ('a=' ,a);

end.

program misol_4;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: a soni bn  sariq fon bn ekran markazida hosil
bo'lsin
//CLRSCR butun ekranni qoplaydi
//TEXTBACKGROUND ekran rangi
//GotoXY(A,B)
  uses crt;
  var a:real;
  begin
  Textbackground (white);
  Textcolor (yellow);
  ClrScr;
  GotoXY(22,12);
writeln ('Ixtiyoriy haqiqiy son kiriting:');
write ('a=');   readln(a);
writeln ('a=' ,a);

end.

program misol_5;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: a soni bn ko'k izoh bn ekran markazida hosil bo'lsin
//GotoXY(A,B)
  uses crt;
  var a:real;
  begin
  Textcolor (blue);
  ClrScr;
  GotoXY(22,12);
writeln ('Ixtiyoriy haqiqiy son kiriting:');
write ('a=');   readln(a);
writeln ('a=' ,a);
end.

program misol_6;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: a soni bn yashil ekranga qizil izoh bn ekran markaziga
//GotoXY(A,B)
  uses crt;
  var a:real;
  begin
  Textbackground (green);
  Textcolor (red);
  ClrScr;
  GotoXY(22,12);
writeln ('Ixtiyoriy haqiqiy son kiriting:');
write ('a=');   readln(a);
writeln ('a=' ,a);

end.

program misol_7;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Savol: a soni bn sariq ekranga qizil izoh bn ekran choragiga
//GotoXY(A,B)
  uses crt;
  var a:real;
  begin
  Textbackground (yellow);
  Textcolor (red);
  ClrScr;
  GotoXY(12,6);
writeln ('Ixtiyoriy haqiqiy son kiriting:');
write ('a=');   readln(a);
writeln ('a=' ,a);

end.

program misol_8;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Hisoblang b=555*a+7777/11
  uses crt;
  var a,b:real;
  begin
writeln ('Ixtiyoriy haqiqiy son kiriting:');
write ('a=');   read(a);
     b:=555*a+7777/11;
writeln (' Ifodaning qiymati: ' ,b, ' ga teng ');

end.

program misol_9;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//Hisoblang b=21*a+7
  uses crt;
  var a,b:real;
  begin
writeln ('Ixtiyoriy haqiqiy son kiriting:');
write ('a=');   read(a);
     b:=21*a+7;
writeln (' Ifodaning qiymati: ' ,b, ' ga teng ');
end.

program misol_10;
//Tuzuvchi: FAXRIDDINOV SHERZOD
//a va b bn yig'indini hisoblang
  uses crt;
  var a,b,x:real;
  begin
  Textbackground(green);
  Textcolor(black);
  ClrScr;
writeln ('Ixtiyoriy 2 ta haqiqiy son kiriting:');
write ('a=');   read(a);
write ('b=');   read(b);
     x:=a+b;
writeln (' Yigindi: ' ,x, ' ga teng ');

end.

1618 marta o`qildi.

Parol:
Eslab qolish.


Ro`yhatdan o`tish

testing

+998915878681

Siz o`z maxsulotingizni 3D reklama ko`rinishda bo`lishini xohlaysizmi? Unda xamkorlik qilamiz.

3D Reklama


Рейтинг@Mail.ru
Рейтинг@Mail.ru

Besucherzahler
счетчик посещений