Форум: "Потрепаться";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
ВнизПомогите с массивами Найти похожие ветки
← →
помогите (2002-01-02 13:50) [2]
program 47;
uses crt;
label 1,2;
var a:string;
b,c,f:array [0..240] of string; // Вот тут оштбка если несколько массивов, если объявлять один, то нормально
del,i,k:integer;
begin
ClrScr;
del:=0;
readln(a);
for i:=1 to 9 do
begin
b[i]:=a;
delete(b[i],i+1,length(a));
delete(b[i],1,i-1);
end;
for i:=1 to 9 do c[i]:=b[i];
for i:=1 to 9 do
begin
for k:=1 to i-1 do
begin
if c[i]=b[k] then goto 1
end;
f[i]:=c[i];
goto 2;
1:
del:=del+1;
2:
end;
Writeln("Полученная строка");
for i:=1 to 9 do write(" ",f[i]);
writeln;
write("Число удаленных символов ",del);
readln;
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c