S.a mürid kardeşlerim bizim hoca bi pascal ödevi verdi de bi el atarsanız sevinirim dili bilen birine kolay gelecek bir soru acil lazım oldugu için sizden yardım istiyorum 

 Ödev şu kardeşlerim

 Klavyeden girilen 2 eğrinin  birbirlerine göre durumlarını inceleyen pascal programını yapınız

Bir şekil var birbirine geçmiş 2 U şekli + şeklinde bir çizelgenin üstünde

 değerleri kafadan biz gircez kardeşlerim

 bide şöyle örnek formül var kardeşlerim  

y1=axüzeri2+bx+c

y2=dxüzeri2+cx+f

bide ödevi pas larak kayd edecez yapabilecek olan arkadaşlara ve yardım edenlere şimdiden teşşekür ederim 

Hoacanız size iki satır kod  yazacak kadar öğretmiştir

Soru şu:

iki tane parabol var 

Bunlar kesişiyor mu kesişmiyor mu?

kesişyiorlarsa kaç noktada kesişyorlar ?

kesişmiyorlarsa en fazla ne kadar yaklaşıyorlar ? ( pik noktalar arası mesafe)

Eline bir kağıt kalem alıp bir kaç parabol çizerek konuyu anlasın zaten...

Biraz da parabol konusunu hatırlarsın.. 

Eskiden prgramlama öğretirlerken "hello wörld" değil parabolün köklerini hesap eden bir

Fortran IV programı yaptırılırdı.. 

kardeşim şöyle bişey var ben bazı durumlardan dolayı derse giremedim  ki derse giren arkadaşlarım da bişey anlamamış yapabilecek olsam yardım istemem verdigin bilgi için saol notu etkileyecegi için e puan olcagı için yardım istiyorum  bilgin varsa programı yapıp pas halinde kayd edermisin kardeşim rica etsem 

Kardeşim

hiç pascal kodu yazmadım

fakat sizn öncelikle parabol ü biraz araştırmanız lazım

ax^2+bx+c şeklinde genel bir ifadesi vardır

iki parabol bir biriyle  en fazla iki noktada kesişebilir (eğer çakışık değilse)

bir simetri ekseni vardır

x=-b/2a bu ekseni verir

bir tepe noktası vardır

x=-b/2a yı parabolün denkleminde yerine korsan tepe noktasını bulursun

x^2 nin çarpanı yani "a" pozitif ise yukarı doğru kolları vardır

negatif ise aşağı doğrudur..

 bu bilgilere göre kesişir mi kesişmez mi

kesişirse kaç noktada kesişir koordinatları nedir buldurusun

(a-d)x^2+(b-e)x +( c-f)=0 

denklemine göre

kökler sanalsa hiç kesişmezler dersin bir irdeleme yaparsın, tepe noktaları arasındaki

 uzaklık şudur eksenler arası mesafe şudur gibi bilgiler üretirsin, 

iki kök verirse bir irdleme yaparsın

tek kök verirse tek noktda kesişiyorlar dersin koordinat verirsin  vs vs..

microkabus bunu yazdı:
-----------------------------

 ki derse giren arkadaşlarım da bişey anlamamış yapabilecek olsam yardım istemem verdigin bilgi için saol notu etkileyecegi için e puan olcagı i

-----------------------------

Parabol nedir bilmeyen adam o derse hiç girmesin zaten...

bence sen işin kolayına kaçıyorsun.ödevini kendin yapmalısın

Ödev tesliminden tam bir gün önce konu açılır.

Ödevin aslında basit olduğu söylenir.  

Ödevini kendisinin neden yapmadığına dair derse giremedim / yandı bitti kül oldu denir.

Ödevin kendisiyle ilgili her şey karşı taraftan beklenir.

Ödevi yapması gereken kişi ödeve elini sürmez; ödevi nasıl yapması gerektiğine dair gösterilen yolların hiç birini denemez.

Ödevi yapması gereken kişi buraya yorum yazmayı bilir; ama www.google.com kullanmayı aklına bile getirmez.

Ödevi yapması gereken kişinin aslında iş yapmaya g.tü yoktur.

Ödevi yapması gereken kişi kendisine bunlar söylendiğinde kızgınlık dolu ifadeler kullanır.

Tatil dönüşü veya teslim tarihi gelenlerin ödevimi yapın konuları gerçekten eğlenceli oluyor.

:)

microkabus
(Amatör Üye)


Kayıt : 9 Aralik 2009

Son Açtığı 10 Konu [Tüm Konular]
yardım basit bir pascal ödevi
erzincan üniversitesini kazandım yardım

Ne güzel ya herkes nasihat vermeyi biliyor :) arkadaş açık yakalamış 2 msjım var çok büyük bişey yaptı :) sadece yardım istedim o kadar bilgi veren arkadaşa teşekkürler , yardım edecek arkadaş varsa cevabını bekliyorum nasihat vercek olan arkadaşlar mümkünse nasihatlarını kendilerine saklasınlar şimdiden teşekkürler

Ciğerim

Diğer arkadaşların verdikleri nasihatlere de katılıyorum...

gogıla ax^2+bx+c yazsan otomatik bi sürü konu getiriyor  

Lise mezunu, ünevrsiteye giden, programlama dersi alan kişinin

parabolü 100km den tanıması gerekir

U mu da demez yani... 

Can Yücel ne demiş

bizim orada parabole

parabol denir hakim bey.. 

{iki_parabol }

program parabol;

uses crt;

var

a,b,c,d1,ax1,p1,x1,x2:real;
d,e,f,d2,ax2,p2,xx1,xx2:real;
aa,bb,cc,dd:real;
ex1,ex2,y1,y2,:real;
begin

clrscr;

writeln('1.Parabolün katsayılarını giriniz y=ax² + bx + c ');

write('a = ');

readln(a);

write('b = ');

readln(b);

write('c = ');

readln(c);

d1:=((b*b)-(4*a*c));
ax1:=-b/2/a;
p1:=a*ax1*ax1+b*ax1+c

writeln('1.Parabolunun X=', ax1 ,'Y=',p1,'noktasında tepe noktası vardır );

 if a<0
write('ve kolları asagi dogrudur');

if a=0 then

write('bu bir parabol degildir');

 if a>0
write('ve kolları yukari dogrudur');


if d1< 0 then

      write('1. parabol X eksenini kesmez');

if d1=0 then

      write('Bu parabol X eksenine tepe noktasında teğet keser :',ax1);


if d1>0 then

      begin
 
           writeln('1. parabol X eksenini iki noktada keser :');

           x1:= (-b+sqr(d1))/2/a;
           x2:= (-b-sqr(d1))/2/a;
           writeln('1.kok :',x1,' 2.kok x2',x2);

      end;





writeln('2.Parabolün katsayılarını giriniz y=dx² + ex + f');

   write('d = ');

   readln(d);

   write('e = ');

   readln(e);

   write('f = ');

   readln(f);

d2:=((e*e)-(4*d*f));
ax2:=-b/2/d;
p2=d*ax2*ax2+e*ax2+f;

writeln('2.Parabolunun X=', ax2 ,'Y=',p2,'noktasında tepe noktası vardır ); 

if d<0
   write('ve kolları asagi dogrudur');

if d=0 then

   write('bu bir parabol degildir');

 if d>0
write('ve kolları yukari dogrudur');


if d2< 0 then

   write('2. parabol X eksenini kesmez');

if d2=0 then

   write('Bu parabol X eksenine tepe noktasında teğet keser :',ax2);


if d2>0 then

      begin

           writeln('1. parabol X eksenini iki noktada keser :');

           xx1:= (-e+sqr(d2))/2/d;
           xx2:= (-e-sqr(d2))/2/d;
           writeln('1.kok :',xx1,' 2.kok x2',xx2);

      end;


{ bu bölümde iki parabolün karşılaştırılması yapılacak
iki parabol biribirine eşitlenerek oluşan parabolün
kökleri irdelenecek
 kök vermiyorsa kesişme yok, tek kök veriyorsa
 , iki kök veriyorsa iki kök ve kesişim koordinatı hesaplanacak }

   aa:=a-d;
   bb:=b-e;
   cc:=c-f;
   dd:=aa*aa-4*aa*cc;

 if dd<0 writeln('Bu iki parabol birbiryle kesişmez.');

   if dd=0 then
   begin
        ex1:=-bb/2/aa;
        y1:=a*ex1*ex1+b*ex1+c;
        writeln(' Bu iki parabol tek noktada kesişir X=',ex1,' Y=', y1);

        
 end;

if dd>0 then

begin
           ex1:= (-bb+sqr(dd))/2/aa;
           ex2:= (-bb-sqr(dd))/2/aa;
           y1:= a*ex1*ex1+b*ex1+c;
           y2:= a*ex2*ex2+b*ex2+c;

           writeln(' Bu iki parabol iki noktada kesişir X1=',ex1,' Y1=', y1);
           writeln(' Bu iki parabol iki noktada kesişir X2=',ex2,' Y2=', y2);
 end ;




readkey;

end.

DÜZELTME NOTU : daha önce programın açıklamasında iki parabol tek noktada kesişiyorsa teğettir şeklinde bir açıklamayapmıştım (bunu sildim)  fakat bu " a" ları farklı paraboller için doğru olabilir, "a"ları eşit paraboller teknoktada kesişiyorlarsa teğet olmak zorunda değildirler