Yechimi: Pascal tilida


Download 46.47 Kb.
bet4/4
Sana09.06.2023
Hajmi46.47 Kb.
#1476130
1   2   3   4
Bog'liq
Begin

Yechimi:

Pascal tilida


C++ tilida


#include


#include
#include
int main()
{
float A,B;
cout<<"Ikkita A va B sonlarni kiriting:\n";
cout<<"A = "; cin>>A;
cout<<"B = "; cin>>B;
float temp;
temp=A;
A=B;
B=temp;
cout<<"Ikki sonning qiymatlari o`zaro almashdi:\n";
cout<<"A = "<A ni qiymati В gа, В ni qiymati С ga va С ni qiymati A ga almashtirilsin. A, В va С ning yangi qiymatilari ekranga chiqarilsin.


Yechimi:

Pascal tilida


C++ tilida


#include


#include
#include
int main()
{
float A,B,C;
cout<<"Uchta A, B va C sonlarni kiriting:\n";
cout<<"A = "; cin>>A;
cout<<"B = "; cin>>B;
cout<<"C = "; cin>>C;
float temp;
temp=A;
A=B;
B=C;
C=temp;
cout<<"Uchta sonning qiymatlari o`zaro almashdi:\n";
cout<<"A = "<cout<<"A = "; cin>>A;
cout<<"B = "; cin>>B;
cout<<"C = "; cin>>C;
float temp;
temp=A;
A=C;
C=B;
B=temp;
cout<<"Uchta sonning qiymatlari o`zaro almashdi:\n";
cout<<"A = "<cout<<"X = "; cin>>x;
float y=3*pow(x,6)-6*pow(x,2)-7;
cout<<"Javob = "<getch();
}

Begin26. x ning qiymati berilganda y=4(x-3)6-7(x-3)3+2 funksiyaning qiymati aniqlansin.




Yechimi:

Pascal tilida


C++ tilida


#include


#include
#include
int main()
{
float x;
cout<<"y=4(x-3)^6-7(x-3)^3+2 funksiya uchun x ning qiymatini kiriting:\n";
cout<<"X = "; cin>>x;
float y=4*pow(x-3,6)-7*pow(x-3,3)+2;
cout<<"Javob = "<getch();
}

Begin27. A soni berilgan. A ning A2, A4, A8 darajalarini aniqlovchi programma tuzilsin.




Yechimi:

Pascal tilida


C++ tilida


#include


#include
#include
int main()
{
int A;
cout<<"A ning qiymatini kiriting = "; cin>>A;
cout<<"A^2 = "<
cout<<"\nA^4 = "<
cout<<"\nA^8 = "<
getch();
}

Begin28. A soni berilgan. A ning A2, A3, A5 ,A10, A15 darajalarini aniqlovchi programma tuzilsin.




Yechimi:

Pascal tilida


C++ tilida


#include


#include
#include
int main()
{
int A;
cout<<"A ning qiymatini kiriting = "; cin>>A;
cout<<"A^2 = "<
cout<<"\nA^3 = "<
cout<<"\nA^5 = "<
cout<<"\nA^10 = "<
cout<<"\nA^15 = "<
getch();
}

Begin29. α burchak gradusda berilgan (0<α<360). Berilgan burchakning qiymatini radianga o'tkazuvchi programma tuzilsin.




Yechimi:

Pascal tilida


C++ tilida


Begin30. α burchak radianda berilgan (0<α<2π). Berilgan burchakning qiymatini gradusga o'tkazuvchi programma tuzilsin.




Yechimi:

Pascal tilida


C++ tilida


Begin31. Temperatura TF Farengeytda berilgan. Temperatura qiymatini TC gradus selsiyga o'tkazuvchi programma tuzilsin. TC=(TF-32)*5/9




Yechimi:

Pascal tilida


C++ tilida


Begin32. Temperatura TC gradus Selsiyda berilgan. Temperatura qiymatini TF Farengeytga o'tkazuvchi programma tuzilsin. TC=(TF-32)*5/9




Yechimi:

Pascal tilida


C++ tilida


Begin33. X kg konfet A so'm turadi. 1 kg va Y kg konfet qancha turishini aniqlovchi programma tuzilsin.




Yechimi:

Pascal tilida


C++ tilida


Begin34. X kg shokolad A so'm turadi va Y kg konfet В so'm turadi. 1 kg shokolad 1 kg konfetdan qancha qimmat turishini aniqlovchi programma tuzilsin.




Yechimi:

Pascal tilida


C++ tilida


Begin35. Qayiqning tezligi V km/soat, daryo oqimining tezligi U km/soat (V>U) Qayiqning daryo oqimi bo'yicha xarakatlanish vaqti T1, oqimga qarshi T2 Qayiqni yurgan S yo'lini aniqlovchi programma tuzilsin.




Yechimi:

Pascal tilida


C++ tilida


Begin36. Birinchi avtomabilning tezligi V1 km/soat ikkinchisiniki V2 km/soat, ular orasidagi masofa S. Ular biri-biridan uzoqlasha boshlasa T vaqtdan keyin ular orasidagi masofani aniqlaydigan programma tuzilsin.




Yechimi:

Pascal tilida


C++ tilida


Begin37. Birinchi avtomabilning tezligi V1 km/soat, ikkinchisiniki V2 km/soat ular orasidagi masofa S. Ular biri-biri tomonga harakatlana boshlasa T vaqtdan keyin ular orasidagi masofani aniqlaydigan programma tuzilsin.




Yechimi:

Pascal tilida


C++ tilida


Begin38. A va В koeffisentlari berilgan, Ax+B =0 chiziqli tenglamaning yechimini (x ni) aniqlaydigan programma tuzilsin. A≠0




Yechimi:

Pascal tilida


C++ tilida


Begin39. А, В, С koeffisentlari berilgan, Ax2 + Bx+C = 0 kvadrat tenglamaning diskriminanti noldan katta bo'lsa uning yechimlarini aniqlaydigan programma tuzilsin. A≠0. X1,2 =




Yechimi:

Pascal tilida


C++ tilida




Begin40. A1, B1, C1, A2, B2, C2 koeffisentlari berilgan, chiziqli tenglamalar sistemasi yechimlarini aniqlaydigan programma tuzilsin.



Yechimi:

Pascal tilida




C++ tilida
Download 46.47 Kb.

Do'stlaringiz bilan baham:
1   2   3   4




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