Kategori arşivi: Yapısal Olmayan Programlama

Programların Temel Yapılarını içerir.

B.26. Başlangıç olarak ilk iki elemanı verilen Fibonacci dizisinin istenen elemanına kadar yazdıran program.

Yazım tarihi tarafından tibas7

Program: Başlangıç olarak ilk iki elemanı verilen Fibonacci  dizisinin istenen elemanına kadar yazdıran program.

 

 

a-1) C çözümü

 

/* Baslangic olarak ilk iki elemani verilen Fibonacci

dizisinin istenen elemanina kadar yazdiran program.

if solution in C by Kamil Bala */

#include<stdio.h>

int Birinci,Ikinci,Yeni,Sayi,Sayac;

main()

{

printf(“Birinci elemani girin:”);scanf(“%d”,&Birinci);

printf(“\nIkinci elemani girin:”);scanf(“%d”,&Ikinci);

Sayac=3;

printf(“\nFiboncci dizisinin kacinci elemanina\n”);

printf(“kadar hesaplamak istersiniz:”);scanf(“%d”,&Sayi);

printf(“\n\n”);

printf(“%d  %d”,Birinci,Ikinci);

Artim:

Yeni=Birinci+Ikinci;

printf(” %d”,Yeni);

Birinci=Ikinci;

Ikinci=Yeni;

if (Sayi!=Sayac)

{

Sayac++;

goto Artim;

}

printf(“\n\n”);

return 0;

}

 

 

 

a-2) C++ çözümü

 

/* Baslangic olarak ilk iki elemani verilen Fibonacci

dizisinin istenen elemanina kadar yazdiran program.

if solution in C++ by Kamil Bala */

#include<iostream.h>

int Birinci,Ikinci,Yeni,Sayi,Sayac;

main()

{

cout<<“Birinci elemani girin:”;cin>>Birinci;

cout<<“\nIkinci elemani girin:”;cin>>Ikinci;

Sayac=3;

cout<<“\nFiboncci dizisinin kacinci elemanina\n”;

cout<<“kadar hesaplamak istersiniz:”;cin>>Sayi;

cout<<“\n\n”;

cout<<Birinci<<” “<<Ikinci<<” “;

Artim:

Yeni=Birinci+Ikinci;

cout<<Yeni<<” “;

Birinci=Ikinci;

Ikinci=Yeni;

if (Sayi!=Sayac)

{

Sayac++;

goto Artim;

}

cout<<“\n\n”;

return 0;

}

B.25. Fibonacci dizisi ‘1 1’ ile başlayan ve ardında ki dizi elemanlarını önceki iki sayının toplamı ile ‘1+1=2, 1+2=3, 2+3=5 vb.’ elde edilen dizidir. Fibonacci dizinin ilk oniki elemanını bulan programı yazınız.

Yazım tarihi tarafından tibas7

Program: Fibonacci dizisi ‘1 1’ ile başlayan ve ardında ki dizi elemanlarını önceki iki sayının toplamı ile ‘1+1=2, 1+2=3, 2+3=5 vb.’ elde edilen dizidir. Fibonacci dizinin ilk oniki elemanını bulan programı yazınız.

 

a-1) C çözümü

 

/* Fibonacci dizisi ‘1 1’ ile baslayan ve ardinda ki dizi elemanlarini

onceki iki sayinin toplami ile ‘1+1=2, 1+2=3, 2+3=5 vb.’ elde edilen

dizidir. Fibonacci dizinin istenen elemanina kadar yazdiran program.

(if solution) do-while in C by Kamil Bala */

#include<stdio.h>

int Birinci,Ikinci,Yeni,Sayi,Sayac;

main()

{

Birinci=0;Ikinci=1;Sayac=1;

printf(“Fiboncci dizisinin kacinci elemanina\n”);

printf(“kadar hesaplamak istersiniz:”);scanf(“%d”,&Sayi);

printf(“\n\n”);

Artim:

printf(” %d”,Ikinci);

Yeni=Birinci+Ikinci;

Birinci=Ikinci;

Ikinci=Yeni;

if (Sayi!=Sayac)

{

Sayac++;

goto Artim;

}

printf(“\n\n”);

return 0;

}

 

 

 

a-2) C++ çözümü

 

/* Fibonacci dizisi ‘1 1’ ile baslayan ve ardinda ki dizi elemanlarini

onceki iki sayinin toplami ile ‘1+1=2, 1+2=3, 2+3=5 vb.’ elde edilen

dizidir. Fibonacci dizinin istenen elemanina kadar yazdiran program.

(if solution) do-while in C by Kamil Bala */

#include<iostream.h>

int Birinci,Ikinci,Yeni,Sayi,Sayac;

main()

{

Birinci=0;Ikinci=1;Sayac=1;

cout<<“Fiboncci dizisinin kacinci elemanina\n”;

cout<<“kadar hesaplamak istersiniz:”;cin>>Sayi;

cout<<“\n\n”;

Artim:

cout<<Ikinci<<” “;

Yeni=Birinci+Ikinci;

Birinci=Ikinci;

Ikinci=Yeni;

if (Sayi!=Sayac)

{

Sayac++;

goto Artim;

}

cout<<“\n\n”;

return 0;

}

A.18.İki kenari ve arasındaki açısı girilen üçgenin diğer kenarını, her kenar arasinda açıyı ve alanını bulan program.

Yazım tarihi tarafından tibas7

Program: İki kenari ve arasındaki açısı girilen üçgenin diğer kenarını, her kenar arasinda açıyı ve alanını bulan program.

 

C programı

 

/* Iki kenari ve aralarindaki aci girilen ucgenin

3.kenari ve diger acilari bulan program

Developer Kamil Bala */

#include<stdio.h>

#include<math.h>

float Kenar1,Kenar2,Kenar3,Aci12,Aci13,Aci23,

Radyan12,Radyan13,Radyan23,Yaricap,S,Alan;

main()

{

printf(“1.kenari girin:”);scanf(“%f”,&Kenar1);

printf(“2.kenari girin:”);scanf(“%f”,&Kenar2);

printf(“Iki kenar arasindaki aciyi girin:”);scanf(“%f”,&Aci12);

 

/* Aci -> Radyan donusumu */

Radyan12=3.1415*Aci12/180;

 

/* 3. kenarin bulunmasi */

Kenar3=sqrt(Kenar1*Kenar1+Kenar2*Kenar2-2*Kenar1*Kenar2*cos(Radyan12));

 

/* Ucgenin ic dairesinin yaricapinin bulunmasi */

S=(Kenar1+Kenar2+Kenar3)/2;

Yaricap=sqrt((S-Kenar1)*(S-Kenar2)*(S-Kenar3)/S);

 

/* Radyan cinsinden acilarin bulunmasi */

Radyan13=atan(Yaricap/(S-Kenar2))*2;

Radyan23=atan(Yaricap/(S-Kenar1))*2;

 

/* Radyan aci donusumu */

Aci13=Radyan13*180/3.1415;

Aci23=Radyan23*180/3.1415;

 

/* Alanin bulunmasi */

Alan=(Kenar1*Kenar2*sin(Radyan12))/2;

 

/* Sonuclari yazdirma */

printf(“\n\n3.kenar=%0.1f”,Kenar3);

printf(“\n\n1. ve 3.kenarlar arasinda aci=%0.1f”,Aci13);

printf(“\n\n2. ve 2. kenarlar arasinda aci=%0.1f\n\n”,Aci23);

 

return 0;

}

 

C++ programı

 

/* Iki kenari ve aralarindaki aci girilen ucgenin

3.kenari ve diger acilari bulan program

Developer Kamil Bala */

#include<iostream.h>

#include<math.h>

float Kenar1,Kenar2,Kenar3,Aci12,Aci13,Aci23,

Radyan12,Radyan13,Radyan23,Yaricap,S,Alan;

main()

{

cout<<“1.kenari girin:”;cin>>Kenar1;

cout<<“2.kenari girin:”;cin>>Kenar2;

cout<<“Iki kenar arasindaki aciyi girin:”;cin>>Aci12;

 

// Aci -> Radyan donusumu

Radyan12=3.1415*Aci12/180;

 

// 3. kenarin bulunmasi

Kenar3=sqrt(Kenar1*Kenar1+Kenar2*Kenar2-2*Kenar1*Kenar2*cos(Radyan12));

 

// Ucgenin ic dairesinin yaricapinin bulunmasi

S=(Kenar1+Kenar2+Kenar3)/2;

Yaricap=sqrt((S-Kenar1)*(S-Kenar2)*(S-Kenar3)/S);

 

// Radyan cinsinden acilarin bulunmasi

Radyan13=atan(Yaricap/(S-Kenar2))*2;

Radyan23=atan(Yaricap/(S-Kenar1))*2;

 

// Radyan aci donusumu

Aci13=Radyan13*180/3.1415;

Aci23=Radyan23*180/3.1415;

 

// Alanin bulunmasi

Alan=(Kenar1*Kenar2*sin(Radyan12))/2;

 

// Sonuclari yazdirma

cout<<“\n\n3.kenar=”<<Kenar3;

cout<<“\n\n1. ve 3.kenarlar arasinda aci=”<<Aci13;

cout<<“\n\n2. ve 2. kenarlar arasinda aci=”<<Aci23<<“\n\n”;;

 

return 0;

}

 

 

Pascal programı

 

uses crt;

var

Kenar1,Kenar2,Kenar3,Aci12,Aci13,Aci23:real;

Radyan12,Radyan13,Radyan23,Yaricap,S,Alan:real;

begin

clrscr;

write(‘1.kenari girin:’);readln(Kenar1);

write(‘2.kenari girin:’);readln(Kenar2);

write(‘Iki kenar arasindaki aciyi girin:’);readln(Aci12);

 

{ Aci -> Radyan donusumu }

Radyan12:=PI*Aci12/180;

 

{3. kenarin bulunmasi }

Kenar3:=sqrt(Kenar1*Kenar1+Kenar2*Kenar2-2*Kenar1*Kenar2*cos(Radyan12));

 

{ Ucgenin ic dairesinin yaricapinin bulunmasi }

S:=(Kenar1+Kenar2+Kenar3)/2;

Yaricap:=sqrt((S-Kenar1)*(S-Kenar2)*(S-Kenar3)/S);

 

{ Radyan cinsinden acilarin bulunmasi }

Radyan13:=arcTan(Yaricap/(S-Kenar2))*2;

Radyan23:=arcTan(Yaricap/(S-Kenar1))*2;

 

{ Radyan aci donusumu }

Aci13:=Radyan13*180/PI;

Aci23:=Radyan23*180/PI;

 

{ Alanin bulunmasi }

Alan:=(Kenar1*Kenar2*sin(Radyan12))/2;

 

{ Sonuclari yazdirma }

writeln(‘3.kenar=’,Kenar3:0:2);

writeln(‘1. ve 3.kenarlar arasinda aci=’,Aci13:0:3);

writeln(‘2. ve 2. kenarlar arasinda aci=’,Aci23:0:3);

 

readln;

end.

A.17.Üç kenarı verilen bir üçgenin çevresini, alanını ve her kenarındaki açıyı bulan program.

Yazım tarihi tarafından tibas7

Program: Üç kenarı verilen bir üçgenin çevresini, alanını ve her kenarındaki açıyı bulan program.

 

C programı

/* Tum kenarlari girilen bir ucgenin cevresi,

alani vetum acilarini hesaplayan program

Developer Kamil Bala */

#include<stdio.h>

#include<math.h>

float Kenar1,Kenar2,Kenar3,Cevre,s,Yaricap,Alan,

Radyan12,Radyan13,Radyan23,Aci12,Aci13,Aci23;

main()

{

printf(“Birinci kenari giriniz:”);scanf(“%f”,&Kenar1);

printf(“Ikinci kenari giriniz:”);scanf(“%f”,&Kenar2);

printf(“Ucuncu kenari giriniz:”);scanf(“%f”,&Kenar3);

Cevre = Kenar1 + Kenar2 + Kenar3;

/* Yaricap ucgenin ic dairesinin yaricapidir */

s = Cevre / 2;

Yaricap = sqrt((s – Kenar1) * (s – Kenar2) * (s – Kenar3) / s);

/* Radyan cinsinden acilar */

Radyan12 = atan(Yaricap / (s – Kenar3)) * 2;

Radyan13 = atan(Yaricap / (s – Kenar2)) * 2;

Radyan23 = atan(Yaricap / (s – Kenar1)) * 2;

/* Radyan -> Aci donusumu */

Aci12 = Radyan12 * 180 / 3.1415;

Aci13 = Radyan13 * 180 / 3.1415;

Aci23 = Radyan23 * 180 / 3.1415;

/* Alan hesaplanmasi */

Alan = sqrt(s * (s – Kenar1) * (s – Kenar2) * (s – Kenar3));

/* Sonucu yazdirma */

printf(“\n1. ve 2. kenarlar arasi aci=%0.2f”, Aci12);

printf(“\n1. ve 3. kenarlar arasi aci=%0.2f”, Aci13);

printf(“\n2.ve 3. kenarlar arasinda aci=%0.2f”, Aci23);

printf(“\n\nCevre=%0.1f”, Cevre);

printf(“\n\nAlan=%0.2f\n\n”, Alan);

return 0;

}

C++ programı

/* Tum kenarlari girilen bir ucgenin cevresi,

alani ve tum acilarini hesaplayan program */

/* Developer Kamil Bala */

#include<iostream.h>

#include<math.h>

float Kenar1,Kenar2,Kenar3,Cevre,s,Yaricap,Alan,

Radyan12,Radyan13,Radyan23,Aci12,Aci13,Aci23;

main()

{

cout<<“Birinci kenari giriniz:”;cin>>Kenar1;

cout<<“Ikinci kenari giriniz:”;cin>>Kenar2;

cout<<“Ucuncu kenari giriniz:”;cin>>Kenar3;

Cevre = Kenar1 + Kenar2 + Kenar3;

/* Yaricap ucgenin ic dairesinin yaricapidir */

s = Cevre / 2;

Yaricap = sqrt((s – Kenar1) * (s – Kenar2) * (s – Kenar3) / s);

/* Radyan cinsinden acilar */

Radyan12 = atan(Yaricap / (s – Kenar3)) * 2;

Radyan13 = atan(Yaricap / (s – Kenar2)) * 2;

Radyan23 = atan(Yaricap / (s – Kenar1)) * 2;

/* Radyan -> Aci donusumu */

Aci12 = Radyan12 * 180 / 3.1415;

Aci13 = Radyan13 * 180 /3.1415;

Aci23 = Radyan23 * 180 / 3.1415;

/* Alan hesaplanmasi */

Alan = sqrt(s * (s – Kenar1) * (s – Kenar2) * (s – Kenar3));

/* Sonucu yazdirma */

cout<<“\n1. ve 2. kenarlar arasi aci=”<< Aci12;

cout<<“\n1. ve 3. kenarlar arasi aci=”<< Aci13;

cout<<“\n2.ve 3. kenarlar arasinda aci=”<< Aci23;

cout<<“\n\nCevre=”<< Cevre;

cout<<“\n\nAlan=”<< Alan<<“\n\n”;

return 0;

}

Pascal programı

{Tum kenarlari girilen bir ucgenin cevresi,

alani ve tum acilarini hesaplayan program}

{Developer Kamil Bala}

uses crt;

var

Kenar1,Kenar2,Kenar3,Cevre:integer;

Radyan12,Radyan13,Radyan23,Yaricap:real;

Aci12,Aci13,Aci23,Alan,S:real;

begin

clrscr;

write(‘Birinci kenari giriniz:’);readln(Kenar1);

write(‘Ikinci kenari giriniz:’);readln(Kenar2);

write(‘Ucuncu kenari giriniz:’);readln(Kenar3);

Cevre := Kenar1 + Kenar2 + Kenar3;

{Yaricap ucgenin ic dairesinin yaricapidir}

s := Cevre / 2;

Yaricap := Sqrt((s-Kenar1)*(s – Kenar2) * (s – Kenar3) / s);

{Radyan cinsinden acilar}

Radyan12 := Arctan(Yaricap / (s – Kenar3)) * 2;

Radyan13 := Arctan(Yaricap / (s – Kenar2)) * 2;

Radyan23 := Arctan(Yaricap / (s – Kenar1)) * 2;

{Radyan -> Aci donusumu}

Aci12 := Radyan12 * 180 / pi;

Aci13 := Radyan13 * 180 / pi;

Aci23 := Radyan23 * 180 / pi;

{Alan hesaplanmasi}

Alan := Sqrt(s * (s – Kenar1) * (s – Kenar2) * (s – Kenar3));

{Sonucu yazdirma}

writeln(”);

writeln(‘1. ve 2. kenarlar arasi aci=’, Aci12:0:2);

writeln(”);

writeln(‘1. ve 3. kenarlar arasi aci=’, Aci13:0:2);

writeln(”);

writeln(‘2.ve 3. kenarlar arasinda aci=’, Aci23:0:2);

writeln(”);

writeln(‘Cevre=’, Cevre);

writeln(”);

writeln(‘Alan=’, Alan:0:2);

readln;

end.

A.16.Bir paralel kenarın iki kenarı ve arasındaki açı verilmektedir. Bu açı üzerindeki köşegen d1 diğer köşegen d2’yi bulan programı yazın.

Yazım tarihi tarafından tibas7

Program: Bir paralel kenarın iki kenarı ve arasındaki açı verilmektedir. Bu açı üzerindeki köşegen d1 diğer köşegen d2’yi bulan programı yazın.

 

C programı

 

/* Iki kenari girilen paralel kenarin kosegenlerini

ve alanini bulan program

Developer Kamil Bala */

#include<stdio.h>

#include<math.h>

float Kenar1,Kenar2,AraKosegen,KarsiKosegen,

Radyan,Aci,cot,Yukseklik,Alan;

main()

{

printf(“Taban kenarini giriniz:”);scanf(“%f”,&Kenar1);

printf(“\nDiger kenari giriniz:”);scanf(“%f”,&Kenar2);

printf(“\nAradaki aciyi giriniz:”);scanf(“%f”,&Aci);

Radyan=3.1415*Aci/180;

cot=sin(Radyan)/cos(Radyan);

Yukseklik=Kenar2*sin(Radyan);

Alan=Kenar1*Yukseklik;

AraKosegen=sqrt(pow((Kenar1+Yukseklik*cot),2)+pow(Yukseklik,2));

KarsiKosegen=sqrt(pow((Kenar1-Yukseklik*cot),2)+pow(Yukseklik,2));

printf(“\n\nAra kosegen=%0.2f”,AraKosegen);

printf(“\n\nKarsi kosegen=%0.2f”,KarsiKosegen);

printf(“\n\nAlan=%0.2f\n\n”,Alan);

return 0;

}

 

C++ programı

 

// Iki kenari girilen paralel kenarin kosegenlerini

// ve alanini bulan program

// Developer Kamil Bala

#include<iostream.h>

#include<math.h>

float Kenar1,Kenar2,AraKosegen,KarsiKosegen,

Radyan,Aci,cot,Yukseklik,Alan;

main()

{

cout<<“Taban kenarini giriniz:”;cin>>Kenar1;

cout<<“\nDiger kenari giriniz:”;cin>>Kenar2;

cout<<“\nAradaki aciyi giriniz:”;cin>>Aci;

Radyan=3.1415*Aci/180;

cot=sin(Radyan)/cos(Radyan);

Yukseklik=Kenar2*sin(Radyan);

Alan=Kenar1*Yukseklik;

AraKosegen=sqrt(pow((Kenar1+Yukseklik*cot),2)+pow(Yukseklik,2));

KarsiKosegen=sqrt(pow((Kenar1-Yukseklik*cot),2)+pow(Yukseklik,2));

cout<<“\nAra kosegen=”<<AraKosegen;

cout<<“\n\nKarsi kosegen=”<<KarsiKosegen;

cout<<“\n\nAlan=”<<Alan<<“\n\n”;

return 0;

}

 

 

 

Pascal programı

 

{Iki kenari girilen paralel kenarin kosegenlerini

ve alanini bulan program}

{Developer Kamil Bala}

uses crt;

var

Kenar1,Kenar2,Kenar3,Yukseklik,AraKosegen:real;

KarsiKosegen,Alan,Radyan,Aci,Cot:real;

begin

clrscr;

write(‘Taban kenari giriniz:’);readln(Kenar1);

write(‘Diger kenari giriniz:’);readln(Kenar2);

write(‘Aradaki aciyi giriniz:’);readln(Aci);

 

{Aci -> Radyan donusumu}

Radyan := pi * Aci / 180;

 

Yukseklik := Kenar2 * Sin(Radyan);

 

Cot:=Sin(Radyan)/Cos(Radyan);

 

AraKosegen := Sqrt(Sqr(Kenar1 + Yukseklik * cot)  + Sqr(Yukseklik));

 

KarsiKosegen := Sqrt(Sqr(Kenar1 – Yukseklik * cot)  + Sqr(Yukseklik));

 

Alan := Kenar1 * Yukseklik;

 

{Ekrana yazdirma}

writeln( ”);

writeln(‘Alan=’, Alan:0:2);

writeln(”);

writeln(‘Ara kosegen=’, AraKosegen:0:2);

writeln(”);

writeln(‘Karsi kosegen=’, KarsiKosegen:0:2);

 

readln;

end.

A.15.Bir dik üçgenin iki kenarı veriliyor. Hipotenüsünü bulan programı yazın.

Yazım tarihi tarafından tibas7

Program: Bir dik üçgenin iki kenarı veriliyor. Hipotenüsünü bulan programı yazın.

 

C programı

 

/*Dik kenarlari verilen bir ucgenin

Hipotenusunu hesaplayan program

Developer Kamil Bala  */

#include<stdio.h>

#include<math.h>

float Kenar1,Kenar2,Hipotenus;

main()

{

printf(“1. dik kenari giriniz:”);scanf(“%f”,&Kenar1);

printf(“\n2. dik kenari giriniz:”);scanf(“%f”,&Kenar2);

Hipotenus = sqrt(pow(Kenar1,2) + pow(Kenar2,2));

/* Ekrana yazdirma */

printf(“\nHipotenus=%0.2f\n\n”,Hipotenus);

return 0;

}

 

C++ programı

 

// Dik kenarlari verilen bir ucgenin

// Hipotenusunu hesaplayan program

// Developer Kamil Bala

#include<iostream.h>

#include<math.h>

float Kenar1,Kenar2,Hipotenus;

main()

{

cout<<“1. dik kenari giriniz:”;cin>>Kenar1;

cout<<“\n2. dik kenari giriniz:”;cin>>Kenar2;

Hipotenus = sqrt(pow(Kenar1,2) + pow(Kenar2,2));

// Ekrana yazdirma

cout<<“\nHipotenus=”<<Hipotenus<<“\n\n”;

return 0;

}

 

 

 

Pascal programı

 

{Dik kenarlari verilen bir ucgenin

‘Hipotenusunu hesaplayan program}

{Developer Kamil Bala}

uses crt;

var

Kenar1,Kenar2:integer;

Hipotenus:real;

begin

clrscr;

write(‘Dik kenarin 1.giriniz:’);readln(Kenar1);

write(‘Dik kenarin 2.giriniz:’);readln(Kenar2);

 

{Hesaplama

sqrt(x) karekok alma,sqr(x) ise us alma icin kullanilmistir }

Hipotenus := Sqrt(Sqr(Kenar1) + Sqr(Kenar2));

 

{Ekrana yazdirma}

writeln(”);

writeln(‘3.kenar=’,Hipotenus:0:2);

 

readln;

end.

A.14.Katsayıları girilen ax+b=c birinci derece denkleminin kökünü bulan program.

Yazım tarihi tarafından tibas7

Program: Katsayıları girilen ax+b=c birinci derece denkleminin kökünü bulan program.

 

C programı

 

/*ax+b=c seklindeki denklemin katsayilari

girildiginde kokunu bulan program

Developer Kamil Bala */

#include<stdio.h>

float x,a,b,c;

main()

{

printf(“ax+b=c denkleminin katsayilarini giriniz:\n”);

printf(“\na=”);scanf(“%f”,&a);

printf(“\nb=”);scanf(“%f”,&b);

printf(“\nc=”);scanf(“%f”,&c);

x=(c-b)/a;

printf(“\nDenkleminin koku:%0.2f\n\n”,x);

return 0;

}

 

C++ programı

 

/*ax+b=c seklindeki denklemin katsayilari

girildiginde kokunu bulan program

Developer Kamil Bala */

#include<iostream.h>

float x,a,b,c;

main()

{

cout<<“ax+b=c denkleminin katsayilarini giriniz:\n”;

cout<<“\na=”;cin>>a;

cout<<“\nb=”;cin>>b;

cout<<“\nc=”;cin>>c;

x=(c-b)/a;

cout<<“\nDenkleminin koku:”<<x<<“\n\n”;

return 0;

}

 

 

Pascal programı

 

{ax+b=c seklindeki denklemin katsayilari

girildiginde kokunu bulan program}

{Developer Kamil Bala}

uses crt;

var

a,b,c:integer;

x:real;

begin

clrscr;

writeln(‘ax+b=c seklindeki denklemin’);

write(‘a=’);readln(a);

write(‘b=’);readln(b);

write(‘c=’);readln(c);

{Kokun hesabi}

x := (c – b) / a ;

{Ekrana yazdirma}

writeln(”);

writeln(‘Denklemin koku=’,x:0:2);

readln;

end.

A.13. P1(X1,Y1) ve P2(X2,Y2) şeklinde verilen iki nokta arası uzaklığı bulan program.

Yazım tarihi tarafından tibas7

Program: P1(X1,Y1) ve P2(X2,Y2) şeklinde verilen iki nokta arası uzaklığı bulan program.

 

C programı

 

/*(X1,Y1) ve (X2,Y2) seklinde verilen iki nokta

arasinda ki uzakligi bulan program

Developer Kamil Bala*/

#include<stdio.h>

#include<math.h>

int X1,Y1,X2,Y2,d1,d2;

float d;

main()

{

printf(“Birinci noktanin koordinatlarini giriniz\n”);

printf(“\nX1=”);scanf(“%d”,&X1);

printf(“\nY1=”);scanf(“%d”,&Y1);

printf(“\nIkinci noktanin koordinatlarini giriniz\n”);

printf(“\nX2=”);scanf(“%d”,&X2);

printf(“\nY2=”);scanf(“%d”,&Y2);

/* Hesaplamalar */

d1=pow((X2-X1),2);  /* pow(x,y) fonksiyonu x’in y kuvvetidir */

d2=pow((Y2-Y1),2);

d=sqrt(d1+d2);

/* Ekran ciktisi */

printf(“\nIki nokta arasi uzaklik:%0.1f\n\n”,d);

return 0;

}

 

C++ programı

 

// (X1,Y1) ve (X2,Y2) seklinde verilen iki nokta

// arasinda ki uzakligi bulan program

// Developer Kamil Bala

#include<iostream.h>

#include<math.h>

int X1,Y1,X2,Y2,d1,d2;

float d;

main()

{

cout<<“Birinci noktanin koordinatlarini giriniz\n”;

cout<<“\nX1:”;cin>>X1;

cout<<“\nY1:”;cin>>Y1;

cout<<“\nIkinci noktanin koordinatlarini giriniz\n”;

cout<<“\nX2:”;cin>>X2;

cout<<“\nY2:”;cin>>Y2;

// Orta nokta koordinatlari

d1=pow((X2-X1),2);

d2=pow((Y2-Y1),2);

d=sqrt(d1+d2);

// Sonucu yazdirma

cout<<“\nDogrunun uzunlugu= “<<d<<“\n\n”;

return 0;

}

 

 

Pascal programı

 

{(X1,Y1) ve (X2,Y2) seklinde verilen iki nokta

arasinda ki uzakligin hesaplanmasi}

{Developer Kamil Bala}

uses crt;

var

X1,Y1,X2,Y2:integer;

d:real;

begin

clrscr;

writeln(‘Birinci noktanin koordinatlarini giriniz:’);

write(‘X1=’);readln(X1);

write(‘Y1=’);readln(Y1);

writeln(‘Ikinci noktanin koordinatlarini giriniz:’);

write(‘X2=’);readln(X2);

write(‘Y2=’);readln(Y2);

{Hesaplama}

{sqrt(x) fonksiyonu karekok,sqr(x) fonksiyonu kok almak icindir}

d:=sqrt(sqr(X2-X1)+sqr(Y2-Y1));

{Sonucu yazdirma}

writeln(”);

writeln(‘Iki nokta arasi uzaklik:d=’,d:0:2);

readln;

end.

A.12.Uç noktaları P1(X1,Y1) ve P2(X2,Y2) şeklinde verilen bir doğru parçasının orta noktasını bulan program.

Yazım tarihi tarafından tibas7

Program: Uç noktaları P1(X1,Y1) ve P2(X2,Y2) şeklinde verilen bir doğru parçasının orta noktasını bulan program.

 

C programı

 

 

/* P(X,Y) seklinde iki kenar noktasi verilen dogrunun

orta noktasini bulan program */

/* Developer Kamil Bala*/

#include<stdio.h>

int X1,Y1,X2,Y2;

float Xm,Ym;

main()

{

printf(“Birinci noktanin koordinatlarini giriniz”);

printf(“\n\nX1=”);scanf(“%d”,&X1);

printf(“\nY1=”);scanf(“%d”,&Y1);

printf(“\nIkinci noktanin koordinatlarini giriniz”);

printf(“\n\nX2=”);scanf(“%d”,&X2);

printf(“\nY2=”);scanf(“%d”,&Y2);

/* Hesaplamalar */

Xm=(X1+X2)/2;

Ym=(Y1+Y2)/2;

/* Ekran ciktisi */

printf(“\n\nOrta nokta koordinatlari:”);

printf(“\n\nM(Xm,Ym)=M(%0.1f,%0.1f)\n\n”,Xm,Ym);

return 0;

}

 

C++ programı

 

// P(X,Y) seklinde verilen bir dogrunun orta

// noktasini bulan program

// Developer Kamil Bala

#include<iostream.h>

int X1,Y1,X2,Y2;

float Xm,Ym;

main()

{

cout<<“Birinci noktanin koordinatlarini giriniz\n\n”;

cout<<“X1:”;cin>>X1;

cout<<“\nY1:”;cin>>Y1;

cout<<“\nIkinci noktanin koordinatlarini giriniz\n\n”;

cout<<“X2:”;cin>>X2;

cout<<“\nY2:”;cin>>Y2;

// Orta nokta koordinatlari

Xm=(X1+X2)/2;

Ym=(Y1+Y2)/2;

// Sonucu yazdirma

cout<<“\n\nOrta nokta koordinatlari:M(Xm,Ym)= “<<“M(“<<Xm<<“,”<<Ym<<“)”<<“\n\n”;

return 0;

}

 

 

Pascal programı

 

{P(X,Y) seklinde iki kenar noktasi girilen

bir dogrunun orta noktasinin hesaplanmasi}

{Developer Kamil Bala}

uses crt;

var

X1,Y1,X2,Y2:integer;

Xm,Ym:real;

begin

clrscr;

writeln(‘Birinci noktanin koordinatlarini giriniz:’);

write(‘X1=’);readln(X1);

write(‘Y1=’);readln(Y1);

writeln(‘Ikinci noktanin koordinatlarini giriniz:’);

write(‘X2=’);readln(X2);

write(‘Y2=’);readln(Y2);

{Hesaplama}

Xm:=(X1+X2)/2;

Ym:=(Y1+Y2)/2;

{Sonucu yazdirma}

writeln(”);

writeln(‘Dogru parcasinin orta noktasi:M(Xm,Ym)=’,’M(‘,Xm:0:1,’,’,Ym:0:1,’)’);

readln;

end.

A.11.Dairenin yarıçapı verildiğinde çevresini ve alanını bulan program.

Yazım tarihi tarafından tibas7

Program: Dairenin yarıçapı verildiğinde çevresini ve alanını bulan program.

 

C programı

 

/* Dairenin yaricapi girildiginde

cevresini ve alanini hesaplayan program

Developer Kamil Bala */

 

#include<stdio.h>

float Yaricap,Cevre,Alan;

main()

{

printf(“Dairenin yaricapini girin:”);scanf(“%f”,&Yaricap);

Cevre=2*3.14*Yaricap;

Alan=3.14*Yaricap*Yaricap;

printf(“\nDairenin cevresi:%0.2f\n”,Cevre);

printf(“\nDairenin alani:%0.2f\n\n”,Alan);

return 0;

}

 

C++ programı

 

// Dairenin yaricapi girildiginde

// cevresini ve alanini hesaplayan program

// Developer Kamil Bala

#include<iostream.h>

int Yaricap;

float Cevre,Alan;

main()

{

cout<<“Dairenin yaricapini girin:”;cin>>Yaricap;

Cevre=2*3.14*Yaricap;

Alan=3.14*Yaricap*Yaricap;

cout<<“\nDairenin cevresi:”<<Cevre;

cout<<“\n\nDairenin alani:”<<Alan<<“\n\n”;

return 0;

}

 

 

Pascal programı

 

{Dairenin yaricapi girildiginde cevresini

ve alanin hesaplayan program}

{Developer Kamil Bala}

uses crt;

var

Yaricap:integer;

Cevre,Alan:real;

begin

clrscr;

write(‘Dairenin yaricapini girin:’);readln(Yaricap);

Cevre:=2*pi*Yaricap;

Alan:=pi*Yaricap*Yaricap;

writeln(‘Dairenin cevresi:’,Cevre:0:2);

writeln(‘Dairenin alani:’,Alan:0:2);

readln;

end.