O’ O`zbekiston respublikasi

Tajriba mashg’uloti № 14

Paskal tilida sonli parametrli protseduralar

Mashg’ulotning maqsadi: talabalarda sonli parametrli protseduralar haqida tushuncha hosil qilish, ularni qo‘llagan holda dasturlar tuzish malaka va ko‘nikmasini hosil qilish.

Nazariy ma’lumotlar ma’ruza darslarida keltirilgan.

15– masala uchun programma
Paskal tilida	Borland C++ tilida
program proc15; {$APPTYPE CONSOLE} uses SysUtils; var a1,b1,c1,a2,b2,c2:real; procedure Shift_Lift3(var a,b,c:real); var t:real; begin t:=c; c:=a; a:=b; b:=t; end; begin read(a1,b1,c1); read(a2,b2,c2); Shift_Lift3(a1,b1,c1); Shift_Lift3(a2,b2,c2); writeln(a1,' ',b1,' ',c1); writeln(a2,' ' ,b2,' ' ,c2); readln; readln; end.	#pragma proc15 #include static float a1,b1,c1,a2,b2,c2; void Shift_Lift3(float a,float b,float c); int main(int argc, char **argv) { cin>>a1>>b1>>c1; cin>>a2>>b2>>c2; Shift_Lift3(a1,b1,c1); Shift_Lift3(a2,b2,c2); cin>>"\n"; return 0; } void Shift_Lift3(float a,float b,float c) { float t; t=c; c=a; a=b; b=t; cout< return ; }
Eslatma: Qiymatlarni kiritishda ular soni bir nechta bo‘lsa bitta satrda orasiga bo‘sh joylar tashlangan holda kiritilish kerak. Sonlar nabori bilan ishlaganda nabordagi elementlar alohida satrda bo‘sh joylar bilan kiritiladi. Natija ham xuddi shu ko‘rinishda chiqariladi.