Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ написать маленькую программку
Автор: bestscooter 25.04.2004 14:48
1. Написать модуль, содержащий две процедуры: 1) пусть даны целое число n, символы S1,S2.....Sn . Определите количество пробелов в данной последовательности; 2) пусть дан массив чисел. Все элементы, не равные нулю, перенесите сохраняя их порядок, в начало данной последовательности, а нулевые в конец.
2. Пусть дана матрица целых чисел размером 10*10, записанная по строкам в файле. Определите, есть ней нулевые строки.
Автор: Altair 25.04.2004 17:44
Код
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.
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 25.04.2004 18:04
Код
{в.Є. ў § ¤ ЁЁ Ґ бЄ § ®, зв® ¤® зЁв вм ¬ ваЁжг,
в® ¬л нв® Ё Ґ Ўг¤Ґ¬ ¤Ґ« вм!}
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.
в® ¬л нв® Ё Ґ Ўг¤Ґ¬ ¤Ґ« вм!}
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.