[PASCAL] Wyświetlanie wyniku

Zauher13
Użytkownik
Użytkownik
Posty: 25
Rejestracja: 7 cze 2015, o 23:18
Płeć: Mężczyzna
Lokalizacja: Wwa
Podziękował: 9 razy

[PASCAL] Wyświetlanie wyniku

Post autor: Zauher13 »

Jak zrobić żeby program wyświetlał tylko jeden numer elementu i jego wartość a nie wszystkie rekordy do wybranego przeze mnie numeru?

Kod: Zaznacz cały

program fibonacci;
var n,k:integer;
var tab:array[1..100] of real;
    begin
    writeln ('podaj k');
    readln (k);
    tab[1]:=1;
    tab[2]:=1;
    for n:=3 to k do begin
      tab[n]:=tab[n-1]+tab[n-2];
      writeln (k,' : ',tab[k]:100:0);


    end;
    readln;
    end. 
binio
Użytkownik
Użytkownik
Posty: 181
Rejestracja: 14 paź 2009, o 15:50
Płeć: Mężczyzna
Lokalizacja: Zbąszyń
Podziękował: 4 razy
Pomógł: 42 razy

[PASCAL] Wyświetlanie wyniku

Post autor: binio »

sprobuj:

Kod: Zaznacz cały

writeln(k, ' : ', tab[k]);
Zauher13
Użytkownik
Użytkownik
Posty: 25
Rejestracja: 7 cze 2015, o 23:18
Płeć: Mężczyzna
Lokalizacja: Wwa
Podziękował: 9 razy

[PASCAL] Wyświetlanie wyniku

Post autor: Zauher13 »

Też nie
binio
Użytkownik
Użytkownik
Posty: 181
Rejestracja: 14 paź 2009, o 15:50
Płeć: Mężczyzna
Lokalizacja: Zbąszyń
Podziękował: 4 razy
Pomógł: 42 razy

[PASCAL] Wyświetlanie wyniku

Post autor: binio »

Powinienies napisac to "writeln" za petla;

Kod: Zaznacz cały

program fibonacci;
var n,k:integer;
var tab:array[1..100] of real;
    begin
    writeln ('podaj k');
    readln (k);
    tab[1]:=1;
    tab[2]:=1;
    for n:=3 to k do begin
      tab[n]:=tab[n-1]+tab[n-2];
      


    end;
    writeln (k,' : ',tab[k]:100:0);
    readln;
    end. 
Zauher13
Użytkownik
Użytkownik
Posty: 25
Rejestracja: 7 cze 2015, o 23:18
Płeć: Mężczyzna
Lokalizacja: Wwa
Podziękował: 9 razy

[PASCAL] Wyświetlanie wyniku

Post autor: Zauher13 »

Dziękuje . Temat zamknięty
ODPOWIEDZ