Забравена парола

Език

Български    Английски

Реклами




Съобщи за грешка !
Добави търсачка

Валиден XHTML 1.1 Валиден CSS 2.1
Powered by PHP Powered by MySQL
Pascal емулатор
1 потребител(и) online
Контрол на шрифта Принтирай  Текущ език: Pascal

Упражнения://Редене на код


За да решите задачата е нужно чрез мишката да разместите кода, докато получите работеща програма.

Условие на задачата:
За книгите в една библиотека се пази следната информация: заглавие, автор, издателство, година на издаване. Напишете програма, която въвежда информация за N книги и като резултат въвежда име на издателство и отпечатва всички автори, издадени от това издателство.


  • write('Enter publisher: ');
  • begin
  • p : string[20];
  • end;
  • readln(books[i].author);
  • type book=record
  • write('Enter publisher for search: ');
  • const N = 5;
  • readln(books[i].title);
  • readln(p);
  • begin
  • for i:= 1 to N do
  • title : string;
  • pub : string[20];
  • year : integer
  • author : string[30];
  • for i:= 1 to N do
  • end.
  • if books[i].pub=p then writeln(books[i].author);
  • end;
  • i : integer;
  • write('Enter title: ');
  • readln(books[i].year)
  • readln(books[i].pub);
  • write('Enter author: ');
  • write('Enter year: ');
  • var books : array[1..N] of book;