Forum
Aktif konular
Üyeler
Kurallar
Arama
Yardım Basit Bir Pascal Ödevi Yardım Basit Bir Pascal Ödevi
-
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
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla