Skocz do zawartości
Forum komputerowe PC Centre
Leniu100

Program na informatykę-pilne!

Rekomendowane odpowiedzi

Mam problem. Musze napisać program w Pascalu na informatykę. Od tego zależy jaką będę miał ocenę na koniec roku. Postanowiłem że napisze program do obliczania miejsc zerowych funkcji kwadratowej. Mam już tyle:

var

 

a,b,c,delta,x1,x2:real;

 

begin

writeln('Podaj wspolczynniki funkcji ax^2+bx+c');

 

write('a: ');

 

readln(a);

 

write('b: ');

 

readln(cool.png;

 

write('c: ');

 

readln©;

 

 

 

delta := b*b - 4*a*c;

 

 

 

if delta < 0 then

 

writeln('delta mniejsza od 0. Brak pierwiastkow')

 

else

 

if delta = 0 then

 

begin

 

x1 := -b/(2*a);

 

writeln('delta rowna 0. Pierwiastek ', x1:0:4);

 

end

 

else

 

begin

 

x1 := (-b - sqrt(delta))/(2*a);

 

x2 := (-b + sqrt(delta))/(2*a);

 

writeln('delta rowna ', delta:0:4);

 

writeln('pierwistki:');

 

writeln('x1=', x1:0:4);

 

writeln('x2=', x2:0:4);

 

end;

readln;

 

end.

Musze to jeszcze zapętlić ale nie wiem jak. Chciałbym żeby po obliczeniu miejsc zerowych program się nie zamykał ale znowu prosił o podanie a,b,c i obliczał miejsca zerowe. Chciałbym jeszcze by zamykał się np. przez wciśnięcie klawisza "E". Czy to da się zrobić. Jeśli tak to proszę o szybką pomoc i jeśli to możliwe edytowanie kodu który już napisałem....

Udostępnij tę odpowiedź


Odnośnik do odpowiedzi
Udostępnij na innych stronach

×
×
  • Dodaj nową pozycję...