Ввести данные и вывести строки в которых нет "#"

@Shaitan63 · Регистрация: 26.12.2010

Студворк — интернет-сервис помощи студентам

программа простая.. есть массив ссылок нужно ввести данные и вывести строки в которых нет "#"
но выводит он адреса ячеек а не данные... где я ошибся?

C++

Program asd;
uses crt;
Var x,n:integer;
    a:array[1..10] of ^string;
    s:string;
    
function obr(s:string):string;
var x:integer;
    v:string;
begin
for x:=1 to length(s) do
begin
 
if s[x]='#' then
               if (s[x]='#') and (s[x+1]='#') then v:=v+s[x] else obr:=''
            else v:=v+s[x];
end;
obr:=v;
end;
 
 
begin
Writeln('Сколько строк?');
readln(n);
Writeln('Введите текст');
For x:=1 to n do
begin
readln(s);
new(a[x]);
a[x]^:=obr(s);
end;
 
For x:=1 to n do
writeln(a[x]);
 
end.

@BumerangSP · 18.04.2012, 23:31

В 34 строке нужно всего лишь "^" после a[x]. Но она вроде не по условию делает.

Pascal

Program asd;
uses crt;
Var x,n:integer;
    a:array[1..10] of ^string;
    s:string;
 
function obr(s:string):string;
var x,j:integer;
    v:string;
begin
 j:=0;
for x:=1 to length(s) do
 if s[x]='#' then
  inc(j);
 if j=0 then
  obr:=s
 else
  obr:=''
end;
 
begin
 Writeln('Сколько строк?');
 readln(n);
 Writeln('Введите текст');
 For x:=1 to n do
  begin
   readln(s);
   new(a[x]);
   a[x]^:=obr(s);
 end;
 writeln;
 For x:=1 to n do
  write(a[x]^,' ');
 dispose(a[x]);
end.

Как-то более похоже.

Опции темы

Ввести данные и вывести строки в которых нет "#"

Решение