короче написал програмку, а надо сделать так что бы ее функции выполнялись в процедуре програмка:
Code
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
s1:String;
N,i,j:integer;
mas,masfin: array[1..5] of string;
begin
for i:=1 to 5 do
readln (mas[i]);
for j:=1 to 5 do
begin
s1:=mas[j];
for i:=1 to Length(s1) do
begin
N:=pos(' ',s1);
if N>0 then
begin
delete(s1,N,2);
Insert(' ',s1,N);
end;
end;
masfin[j]:=s1;
end;
writeln;
for i:=1 to 5 do
writeln (masfin[i]);
readln;
end.
Добавлено (08.04.2008, 20:10)
---------------------------------------------
вот что за процедуру получил:
Code
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
mas: array[1..5] of String;
masfin: array of String;
q: integer;
procedure sgat(masnach: array of String);
var
s: string;
N,i,j: integer;
begin
for j:=1 to 5 do
begin
s:=mas[j];
for i:=1 to Length(s) do
begin
N:=pos(' ',s);
if N>0 then
begin
delete(s,N,2);
Insert(' ',s,N);
end;
end;
masfin[j]:=s;
end;
end;
begin
for q:=1 to 5 do
readln (mas[кью]);
sgat(mas);
writeln;
for q:=1 to 5 do
writeln (masfin[кью]);
readln;
end.
кью=q просто оно матюкается если q оставить)
только с процедурой не работает((
что не так сделал? уже неделю ломаю голову(