написать маленькую программку, работа с модулями Опции

[bestscooter]

1. Написать модуль, содержащий две процедуры: 1) пусть даны целое число n, символы S1,S2.....Sn . Определите количество пробелов в данной последовательности; 2) пусть дан массив чисел. Все элементы, не равные нулю, перенесите сохраняя их порядок, в начало данной последовательности, а нулевые в конец.
2. Пусть дана матрица целых чисел размером 10*10, записанная по строкам в файле. Определите, есть ней нулевые строки.

Сообщение отредактировано: bestscooter - 26.04.2004 14:08

[Altair]

Код

UNIT A;
INTERFACE
Procedure SPACE(s:array of char; n:word; var probel:word);
Procedure SORT_NUL(var a:array of integer; n:word);
IMPLEMENTATION
Procedure SPACE(s:array of char; n:word; var probel:word);
var
I:word;
pr:word;
begin
For i:=1 to n do If s[i]=' ' then inc(pr); probel:=pr
end;
{--------------------------------------------------------}
Procedure SORT_NUL(var a:array of integer; n:word);
var
I,J:integer;
KN:word;
begin
for i:=1 to n do
begin
 If (i<>n) and (a[i]=0) then
 begin
  for j:=i to n-1 do
  begin
   a[j]:=a[j+1];
   a[n]:=0
  end
 end
end
end;
end.

ПРАВИЛА РАЗДЕЛА
Переименовывайте свою тему! (или это сделаю я, но я ее еще и закрою!)

[Altair]

Код

{в.Є. ў § ¤ ­ЁЁ ­Ґ бЄ § ­­®, зв® ­ ¤® зЁв вм ¬ ваЁжг,
в® ¬л нв® Ё ­Ґ Ўг¤Ґ¬ ¤Ґ« вм!}
Program FileMatrixNulStr;
Uses
CRT;
Var
F:text;
s:string;
i:byte;
n:boolean;
Begin
Writeln('‚ўҐ¤ЁвҐ Ё¬п зЁв Ґ¬®Ј® д « ');
Readln(s);
Assign(f,s); s:='';
{$I-} Reset(f); {$I+}
If IOResult<>0 then begin writeln('File not found or unknown error'); halt end;
while not EOF(f) do
begin
 s:=''; readln(f,s);
 n:=true;
 for i:=1 to ORD(s[0]) do If (s[i]<>'0') and (s[i]<>' ') then n:=false;
 If n=true then begin writeln('…бвм ­г«Ґў п бва®Є '); Close(f); halt end
end;
Close(f);
Writeln('­Ґв ­г«Ґў®© бва®ЄЁ')
End.