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

Език

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

Реклами




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

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

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


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

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


  • begin
  • var books : array[1..N] of book;
  • end;
  • write('Enter publisher: ');
  • const N = 5;
  • readln(books[i].year)
  • br : integer;
  • for i:= 1 to N do
  • write('Enter title: ');
  • br:=0;
  • end.
  • title : string;
  • begin
  • readln(books[i].author);
  • readln(books[i].title);
  • pub : string[20];
  • write('Enter author: ');
  • if copy(books[i].title, 1, 1)=’A’ then br:=br+1;
  • write('Enter year: ');
  • readln(books[i].pub);
  • end;
  • i : integer;
  • author : string[30];
  • for i:= 1 to N do
  • year : integer
  • write(‘br=’, br);
  • type book=record