Цени на книги

Публикувано на 10 февруари, петък от Данаил

Да се дефинира запис, която съдържа името, автора и цената на книга. Да се въведе брой книги и после данните на всеки един от тях. Накрая да се отпечатат данните за тези книги, чиято цена е по-висока от предварително зададена.

Публикувано в 10a с етикети . Постоянна връзка.

2 Responses to Цени на книги

  1. Svetli каза:
    15 февруари, сряда в 17:10 
    program Project1;
type
  Kniga = record
    ime:string;
    avtor:string;
    cena:real;
  end;
var
  Br,i:integer;
  pcena:real;
  N: array[1..50] of Kniga;

begin
  Writeln('Vavedete broq na knigite');
  Readln(Br);
  Writeln('Vavedete ime, avtora i cenata na knigite');
  Writeln;

  for i:= 1 to Br do begin
    Write('Ime:');
    Readln(N[i].ime);
    Write('Avtor:');
    Readln(N[i].avtor);
    Write('Cena:');
    Readln(N[i].cena);
    Writeln;
  end;
  Writeln('!!!STOP!!!');
  Writeln;

  Writeln('Vavedete cena, s koqto iskate da proverite koi knigi sa po-skupi ot neq');
  Readln(pcena);
  Writeln;

  Writeln('Knigite sa:');
  Writeln;

  for i:= 1 to Br do begin
    if (N[i].cena) > (pcena) then begin
       Write('Ime:');
       Writeln(N[i].ime);
       Write('Avtor:');
       Writeln(N[i].avtor);
       Write('Cena:');
       Writeln(N[i].cena:5:2);
       end
    else;
  end;

  Readln;
end.
  2. Боряна каза:
    15 февруари, сряда в 18:08 
    program Project1;
type
  kniga=record
    k: string;
    i: string;
    c: real;
  end;
var
  A: array[1..100] of kniga;
  N, j, br: integer;
  dc: real;
begin
  br:=0;
  Write('Kolko knigi ima v bibliotekata vi? Vavedete tuk: ');
  ReadLn(N);
  for j:=1 to N do begin
    with A[j] do begin
      Write('Zaglavie: ');
      ReadLn(k);
      Write('Avtor: ');
      ReadLn(i);
      Write('Cena: ');
      ReadLn(c);
    end;
    WriteLn;
  end;

  Write('Vavedete primerna cena: ');
  ReadLn(dc);
  for j:=1 to N do
    if dc<=A[j].c then br:=br+1;
  if br=0 then WriteLn('Niama knigi nat tazi cena.')
  else begin
    WriteLn('Ima ', br, ' knigi nad tazi cena. Te sa:');
    for j:=1 to N do
      if dc<=A[j].c then WriteLn(A[j].k, ' ot ', A[j].i, ' (', A[j].c:0:2, 'lv.)');
  end;
  ReadLn;
end.

Вашият коментар