Forum Programowanie c++, delphi Ostatnio aktywny: Nigdy
Nie zalogowany [Zaloguj ]
Pokaż koniec
Wersja do druku | Zapisz | Dodaj do Ulubionych   Wyślij nową wiadomość Sonda:
Autor: Temat: pascal - problem z case
emm16
Junior Member
*




Postów: 11
Zarejestrowano: 17-9-2008
Offline


[*] wysłano w 26-11-2008 o godz. 20:28 Odpowiedz cytując
pascal - problem z case



Jak usune piątke, czyli ciąg fibonacciego, to mi to działa. Nie wiem, gdzie mam błąd, bo jak kompiluje osobno ten ciąg fibonacciego to działa. Pewnie walnąłem się w case gdzieś.
Prosze o pomoc.
Kod:
program wybierz;

var
f1,f2,a,wynik : real;
i:integer;

wybor : char;

begin
write('podaj liczbe do dzialania');
writeln;
readln(a);
write('podales',a);
writeln;
write('rodzaj dzialania: ');
writeln;
writeln('1 to pierwiastek');
writeln('2 to potega');
writeln('3 to sinus');
writeln('4 to silnia');
writeln('5 to fibonaci');
writeln('6 to koniec');
readln(wybor);
case wybor of
'1' :
begin wynik :=sqrt(a); end;
'2' :
begin wynik :=sqr(a); end;
'3' :
begin wynik :=sin(a); end;
'4' :
begin wynik:=1;
i:=1;
while (i<a) do begin
i:=i+1;
wynik:=i*wynik;
end;
end;
'5' :
begin
readln(a);
f1:=1;
f2:=2;
for i:=3 to a do
begin
wynik:=f1+f2;
f1:=f2;
f2:=wynik;
end;
writeln(wynik);
end;
'6' : halt; end;
writeln(wynik);
readln;
end.


[Wyedytowany dnia 26-11-2008 > emm16]
Pokaż profil użytkownika Pokaż wszystkie wiadomości użytkownika Użytkownik U2U
emm16
Junior Member
*




Postów: 11
Zarejestrowano: 17-9-2008
Offline


[*] wysłano w 26-11-2008 o godz. 20:54 Odpowiedz cytując


ok, już wiem. Była niezgodność typów zmiennych.
Pokaż profil użytkownika Pokaż wszystkie wiadomości użytkownika Użytkownik U2U
Wyślij nową wiadomość Sonda:


Pokaż początek

Sitemap
Copyright © 2005-2007 by coding-portal.com
Programowaniedla każdego. Programowanie w c++, java, delphi, pascal, perl oraz innych językach. Tworzenie stron w html, xhtml, php z użyciem mysql, css oraz ich pozycjonowanie. Zapraszamy do udziału w życiu naszego forum!
[zapytań: 15]
[PHP: 77.2% - SQL: 22.8%]