Question

Witam.Mam takie zadanie do zrobienia:

Napisz program w którym podajemy mamy typ rekordowy Książka,polami tytuł,autor,rok wydania,okładka (twarda/miękka).Przypisz wartości dla 5 książek.Program wyświetla dane wybranej książki(coś pan wspominał o case).

Answer 1

Język: Pascal

Nie wiedziałem gdzie tam użyć case bo w sumie jest to niepotrzebne, w razie jakiś reklamacji pisz PW

program licz;
uses CRT;

type ksiazka  = record
tytul:string[50];
autor:string[50];
rok_wydania:string[10];
okladka:string[50];
end;
label go;
var
lista:array[1..5] of ksiazka;
i,wyb:integer;
yesno:char;
begin
clrscr;
for i := 1 to 5 do begin
Writeln('Podaj tytul ',i,' ksiazki:');
readln(lista[i].tytul);
Writeln('Podaj autora ',i,' ksiazki:');
readln(lista[i].autor);
Writeln('Podaj rok wydania ',i,' ksiazki:');
readln(lista[i].rok_wydania);
Writeln('Podaj okladke ',i,' ksiazki:');
readln(lista[i].okladka);
Writeln;
end;
Writeln('Pomyslnie wprowadzono dane, nacisnij ENTER...');
readln;
go:
clrscr;
Writeln('Wprowadz numer ksiazki ktora wyswietlic:');
readln(wyb);
clrscr;
Writeln('Tytul: ',lista[wyb].tytul);
Writeln('Autor: ',lista[wyb].autor);
Writeln('Rok wydania: ',lista[wyb].rok_wydania);
Writeln('Okladka: ',lista[wyb].okladka);
Writeln;
Writeln('Wykona ponownie operacje? [T/N]');
yesno := readkey;
if (yesno = 't') or (yesno = 'T') then goto go else halt;
Readln;
end.