Bună , rog ajutor cine îmi poate converta într-un fel spus codul din pascal n c++
type carte=record
denumirea: string[45];
numeautor: string[20];
nrpagini: 1..3000;
tema: string[20];
limba: string[20];
editura: string[20];
tara: string[20];
anul: 1900..2015
end;
var bibl: array [1..100] of carte;
I,n: integer;
f:text;
a:string[20];
begin
assign(f,'in.txt');
reset(f);
readln(f,n);
for I:=1 to n do
begin
readln (bibl[I].denumirea);
readln (bibl[I].numeautor);
readln (bibl[I].nrpagini);
readln (bibl[I].tema);
readln (bibl[I].limba);
readln (bibl[I].editura);
readln (bibl[I].tara);
readln (bibl[I].anul);
end;
writeln ;
writeln('Dati numele autorului:');
readln(a);
writeln('Denumirele caritlor scrise de aces autor');
for I:=1 to n do
if bibl[I].numeautor=a then
writeln('Danumirea cartii : ', bibl[I].denumirea);
writeln ;
writeln('Dati denumirea editurii:');
readln(a);
writeln('Denumirele caritlor editate de aceasta editura:');
for I:=1 to n do
if bibl[I].editura=a then
writeln(' Danumirea cartii : ', bibl[I].denumirea);
writeln ;
writeln('Denumirele caritlor editate in limba romina , peste hotare');
for I:=1 to n do
if bibl[I].limba='Romina' then
if bibl[I].tara<>'Moldova' then
writeln(' Danumirea cartii : ', bibl[I].denumirea);
writeln ;
writeln('Dati denumirea temii:');
readln(a);
writeln('Denumirele caritlor la tema data , dupa anul 2000');
for I:=1 to n do
if bibl[I].tema=a then
if bibl[I].anul>2000 then
writeln(' Danumirea cartii :', bibl[I].denumirea);
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de ajutor, nu ezitați să ne contactați. Vă așteptăm cu drag data viitoare și vă încurajăm să ne salvați în lista de favorite!
