Jump to content
Sign in to follow this  
Metomozo

Program, co teraz zrobić

Recommended Posts

Witam muszę napisać program działający jak ankieta czyli ma się pytać n osób o ich dane (imię,nazwisko, wiek, wzrost, wagę, adres). Czyli ma działać na zasadzie wpisuje się n osób np. 3 i program ma pytać te 3 osoby o ich dane a na końcu wypisać

osoba 1: dane które wpisała wcześniej

osoba 2:

osoba 3:

Nauczyciel uparł się że na być to zrobione pętla for, co jest zrozumiałe jako iż ilość osób jest wskazana w tym przypadku 3

mój program wygląda następująco:

 

program ankieta;

var

i: integer;

wiek: integer;

wzrost: integer;

waga: integer;

adres: string;

imie: string;

nazwisko: string;

begin

for i:=1 to 3 do

begin;

writeln('Podaj swój wiek, wzrost, wagę,adres, imię, nazwisko');

readln(wiek);

readln(wzrost);

readln(waga);

readln(adres);

readln(imie);

readln(nazwisko);

writeln(wiek, wzrost, waga, adres, imie ,nazwisko) //To jest tak surowo napisane dla sprawdzenia

end;

readln;

end

 

 

I teraz jest problem że po wpisaniu danych od razu je wyświetla. Zacząłem Pascala w szkole tydzień temu i nie mam pojęcia jak to rozwiązać. Szukałem w google lecz nic nie znalazłem

Share this post


Link to post
Share on other sites

Wyświetla je ponieważ na końcu pętli for masz WriteLn. Poza tym jeśli masz 3 osoby i każdą pytasz w pętli a do przechowywania danych masz tylko po 1 zmiennej to dane o poprzedniej osobie utracisz przecież pytając już drugą.

 

Albo musisz zrobić 3x więcej takich zmiennych i je jakoś ponazywać (bez sensu) albo zrobić tablicę z 3 elementami.

 

Co do wypisywania danych na koniec to writeln musisz wyrzucić poza pętle niżej.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...