Задачи(Delphi)

[Berdos]

1)Записать в текстовый файл baza.pas сведения об автомобилях: номер, тип машины, фамилию, имя и адрес владельца. Программа в файл rezultat.pas должна вывести информацию об авто, номера которых совпадают с тремя заданными цифрами в произвольном порядке.
2)Даны две последовательности целых и действительных чисел. Сформировать список, в котором числа последовательно чередуются. Если последний элемент списка – целое число, то переместить его в начало списка.
Буду рад любой помощи. Заранее очень благодарен.

[Stilet]

Ты лучше сначала покажи что сам умеешь. А то ведь эту задачу и классами и через ODBC можно решать.

[denisbrain]

Сообщение от Stilet

Ты лучше сначала покажи что сам умеешь. А то ведь эту задачу и классами и через ODBC можно решать.

и во фрилансе рублей за 500 можно

[Vitaly12]

Вот моя попытка решения первого задания...

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
begin
assignfile(f,'D:\baza.pas');
append(f);
writeln(f,Edit1.Text,',',Edit2.Text,',',Edit3.Text,',',Edit4.Text);
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
closefile(f);
end;

procedure TForm1.Button2Click(Sender: TObject);
var     s:string;
        str1,str2,str3:string;
        f,f1:textfile;
begin
str1:=Edit5.Text;
str2:=Edit6.Text;
str3:=Edit7.Text;
assignfile(f,'D:\baza.pas');
reset(f);
assignfile(f1,'D:\resultat.pas');
rewrite(f1);
 while not eof(f) do
 begin
 readln(f,s);
 if (pos(str1,s)>0) and (pos(str2,s)>0) and (pos(str3,s)>0) then
 writeln(f1,s)
 end;
 closefile(f);
 closefile(f1);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Close;
end;

end.

Со вторым возникли сложности, а именно при реализации в паскале вот что выходит.

program asd;
type
cel=array [1..100] of integer;
rea=array [1..100] of real;
var a:^cel;
b:^rea;
c:array[1..100] of real;
n,i:integer;
begin
randomize;
write('vvedite kolvo elementov v massivah= ');
readln(n);
writeln('Massiv celih chisel:');
New(a);
for i:=1 to n do
begin
a^[i]:=random(99);
write(a^[i],' ');
end;
writeln;
Writeln('massiv realnih chisel:');
New(b);
for i:=1 to n do
begin
b^[i]:=random(99);
write(b^[i]:2:2,' ');
end;
writeln;
writeln('SPISOK:');
for i:=1 to 2*n do
begin
if odd(i) then c[i]:=a^[i div 2+1]
else c[i]:=b^[i div 2];
write(c[i]:2:2,' ');
end;
Dispose(a);
Dispose(b);
readln;
end.