Question

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);


end.

Answer 1

Eu am programat problema ta în formatul .exe 
numai că nu uita să faci un fișier în aceeași mapă sub numele de in.txt 

Din păcate nu pot să atașez programa în format .exe ori .dll ori .rar aici in mesaj.