3. Дана програм
ПОКА нашла
(333) ИЛИ нашлось (555)
спи нашлось (555)
о заменить (555, 3)
ИНАЧЕ заменить (333, 5)
КОНЕЦ
КОНЕЦ
Какая строка по
ниже программы
ока получится в результате применения приведенной
ограммы к строке, состоящей из:
со идущих подряд цифр 5; б) 65 идущих подряд цифр 5;
по идущих подряд цифр 5; г) 93 идущих подряд цифр 5;
146 идущих подряд цифр 5; е) 156 идущих подряд цифр 5;
) 184 идущих подряд цифр 5; 3) 193 идущих подряд цифр 5?
2)
program zak; uses crt;
type danie=record
litri:string;
cislo:string;
end;
DanieVodi=file of danie;
var DV:DanieVodi;
D:danie;
i,n:integer;
begin clrscr;
assign(DV,'d:\azaz.txt');
rewrite(DV);
repeat
writeln('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou'); readln(D.cislo);
writeln('BBeDuTe KoJlu4ecTBo IIoTpa4eHou BoDbl');
readln(D.litri);
if D<>'stop' then write(DV,D);
until D='stop';
close(DV);
readln;
end.
1)
uses crt;
type danie=record
litri:string;
cislo:string;
max,min:real;
end;
DannieVodi=file of danie;
var DV:DannieVodi;
D:danie;
i,n:integer;
cislo1:string;
begin clrscr;
assign(DV,'d:\azaz.txt');
reset(DV);
write('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou:');
read(cislo1);
while not eof(dv) do
begin
read(DV,D);
if min='0' then min:=StrToFloat(D.cislo);
if StrToFloat(D.cislo)<min then min:=StrToFloat(D.cislo);
if StrToFloat(D.cislo)>max then max:=StrToFloat(D.cislo);
if cislo1=D.cislo then
writeln('6blJlo IIoTpa4eHo "',D.litri,'" JluTpoB BoDbi');
end;
writeln('min=',min);
wtiteln('max=',max);
close(DV);
readln;
end.
Если это не учебная задача, то лучше сделать ее в Access. Там интерфейс красивый и дружелюбный легко получить.