September 2018 1 9 Report

Mam zadanie na programowanie strukturalne i obiektowe.

Napisałem program.

----------------------------------------

program hotel;
uses
crt;
type
Trozmiar = (ogromny, duzy, sredni, maly);
Trodzaj = (vip, zwykly);
Twyposazenie = array[1..10] of String[30];
TPokoj = record
Lazienka : String[3];
Sniadanie : String[30];
Obiad : String[30];
Kolacja : String[30]
Rozmiar : Trozmiar;
Rodzaj : Trodzaj;
Lozko : String[15];
Ilosc : String[2];
DodatkoweWyposazenie : Twyposazenie;
end;
var
Pokoj : TPokoj
Znak : Char;
i : Byte;
Wyposazenie : String[30];
begin
ClrScr;
write('Czy w wyposazeniu ma byc lazienka? (TAK/NIE): '); readln(Pokoj.Lazienka);
repeat
write('Podaj rodzaj pokoju("v" - vip, "z" - zwykly): ');
readln(Znak);
until(UpCase(Znak) in ['v', 'z']);
case UpCase(Znak) of
'v' : Pokoj.Rodzaj := vip;
'z' : Pokoj.Rodzaj := zwykly;
end;
repeat
writeln('Podaj rozmiar pokoju ("o" - ogromny, "d" - duzy, "s" - sredni, "m" - maly.');
readln(Znak);
until (UpCase(Znak) in ['o', 'd', 's', 'm']);
case UpCase(Znak) of
'o' : Pokoj.Rozmiar := ogromny;
'd' : Pokoj.Rozmiar := duzy;
's' : Pokoj.Rozmiar := sredni;
'm' : Pokoj.Rozmiar := maly;
end;
write('Co zyczysz sobie na sniadanie?: '); readln(Pokoj.Sniadanie);
write('Co zyczysz sobie na obiad?: ' ); readln(Pokoj.Obiad);
write('Co zyczysz sobie na kolacje?: '); readln(Pokoj.Kolacja);
write('Ilu osobowe lozka chcesz miec w pokoju(1/2)?: '); readln(Pokoj.Lozko);
write('Ile lozek chcesz miec w pokoju?(cyfra): '); readln(Pokoj.Ilosc);
i :=1;
repeat
write('Podaj kolejne dodatkowe wyposazenie pokoju (Enter - Koniec): ');
readln(Wyposazenie);
Pokoj.DodatkoweWyposazenie[i] := Wyposazenie; Inc(i);
until (i>10) or (Wyposazenie='');
ClrScr
with Pokoj do
begin
writeln(Lazienka, ', ', Rodzaj, ', ', Rozmiar);
writeln('Sniadanie: ',Sniadanie, ', Obiad: ',Obiad, 'Kolacja: ',Kolacja);
case Rodzaj of
vip : write('Pokoj vip');
zwykly : write('Pokoj zwykly');
end;
case Rozmiar of
ogromny : writeln(' ogromny');
duzy : writeln(' duzy');
sredni : writeln(' sredni');
maly : writeln(' maly');
end;
for i := 1 to 10 do
if (DodatkoweWyposazenie[i] <> '') then
writeln(' - ', DodatkoweWyposazenie[i];
end;
readln
end.

---------------------------------------------------

FPC pokazuje mi błąd.

Prosiłbym o szybką pomoc, ponieważ jest mi to potrzebne na najbliższą lekcję w środę na zaliczenie. :)

Jeśli trzeba proszę nanieść zmiany tak aby program zadziałał.

Polecenie zadania brzmi: Napisz program, który wczyta dane dotyczące hotelu do zmiennej typu rekordowego, a następnie wydrukuje jego "metryczkę".


More Questions From This User See All

Mam do rozwiązania kilkanaście zadań na zaliczenie. Prosiłbym o dokładne rozwiązanie bo być może będe musiał to potem na tablicy rozpisać. Pilne ;) 1. Narysuj wykres funkcji określonej wzorem / 2x+4 dla x<0 f(x) 4 dla 0≤ x < 4 \ -4x+20 dla x≥4 2.funkcja (f) której dziedziną jest zbiór liczb całkowitych określona jest wzorem f(x)=ax + b gdzie a ≠ 0 i b ≠ 0 oraz za pomocą tabeli częściowej f |-2| 1| f(x)|4 | 1| A= (a/b;-5a/b) 3. Funkcje liniowe f i g są określone wzorami f(x)=(m+3)x-1 g(x)=4x+(m-1) Obydwie funkcje mają to samo miejsce zerowe. Znajdź współczynnik kierunkowy funkcji f. 4. Współczynnik kierunkowy funkcji liniowej f jest równy 2. Wykres tej funkcji przecina oś OY w punkcie (0,10). Podaj wzór funkcji 5. Wyznacz miejsce zerowe funkcji. Narysuj jej wykres w układzie współrzędnych. 6. Wyznacz współrzędne punktów w których wykres funkcji równy f(x) = 2x - 5 przecina osie układu współrzędnych. Sprawdź czy punkt (1,-1) należy do wykresu funkcji. 7. Napisz wzrór funkcji liniowej której wykres jest równoległu do wykresu f(x) = -2x + 1 i zawiera punkt (-2,3) 8. Dane są funkcje f i g określone wzorami f(x) = 1/2x + 2 g(x)= -x - 1 Sporządź wykresy tych funkcji w jednym układzie współrzędnych. Dla jakiego argumentu funkcje mają tę samą wartość ? Wyznacz tę wartość. Dla jakich argumentów funkcja f przyjmuje wartości nie mniejsze niż funkcja g. 9.Funkcja f określona jest wzorem f(x) = -2x+4. Wyznacz przedział w którym wartości funkcji są ujemne. 10. Wyznacz m dla którego funkcja f(x) = (3m+9)x + 5m - 1 jest malejąca. 11. Wyznacz funkcję której wykład jest prostopadły do wykresu i przechodzi przez punkt (0,1). 12. Dana jest funkcja f(x)=(3m-1)x-7. Wyznacz parametr m tak, aby liczba x= -3 była miejscem zerowym funkcji. 13. Wyznacz współczynnik kierunkowy funkcji f, która przechodzi przez punkty A=(-2,3) B=(1,4)
Answer

Recommend Questions



Life Enjoy

" Life is not a problem to be solved but a reality to be experienced! "

Get in touch

Social

© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.