Estrutura de Dados

Letra A:

program ex1; uses crt; type dados=record tipo, ende, ba, sit: string; val: real; end; var im: array [1..30] of dados; i: integer; situa: string; arq: text; begin clrscr; assing(arq,’c:/imóvel.txt’); rewrite(arq); for i:= 1 to 30 do begin write(‘Entre com o tipo de imóvel:’); readln(im[i].tipo); writeln(arq,im[i].tipo); writeln(‘Entre com o endereço do imóvel:’); readln(im[i].ende); writeln(arq,im[i].ende); writeln(‘Entre com o bairro do imóvel:’); readln(im[i].ba); writeln(arq,im[i].ba); writeln(‘Entre com a situação do imóvel:’); readln(im[i].sit); writeln(arq,im[i].sit); writeln(‘Entre com o valor do imóvel:’); readln(im[i].val); writeln(arq,im[i].val); end; close(arq); write(‘Entre com a situação a ser pesquisada:’); readln(situa); for i:= 1 to 30 do if (situa=im[i].sit) then begin writeln(im[i].tipo); writeln(im[i].ende); writeln(im[i].ba); writeln(im[i].sit); writeln(im[i].val); end; readkey; end. Letra B

Progam ex2;
Uses crt;
Type
Dados=record Cod, emi, eatu: integer; Des: string; val: real; end; var prod: array[1..30] of dados; i: integer; arq: text; begin clrscr; assingn (arq,’c:/loja.txt’); rewrite(arq); for i:= 1 to 30 do begin write(‘Entre com o código do produto;’); readln(prod[i].cod); writeln(arq,prod[i].cod); writeln(‘Entre com a descrição do produto:’); readln(prod[i].des); writeln(arq,prod[i].des); writeln(‘Entre com o estoque mínimo:’); readln(prod[i].emi); writeln(arq,prod[i].emi); writeln(‘Entre com o estoque atual:’); readln(prod[i].eatu); writeln(arq,prod[i].eatu); end; for i:= 1 to 30 do if pro[i].eatu < prod[i].emi then begin writeln(arq,prod[i].cod); writeln(arq,prod[i].des); writeln(arq,prod[i].emi); writeln(arq,prod[i].eatu); end; close(arq); readkey; end.

Letra C

program