Помогите написать программу на Paskal'е!

[volk03]

Даны строки "Продам дом за цену ..." , "Обращаться после дня." и "Спросить хозяина".

Создать новую строку : "Продам полдома за полцены.Обращаться после полдня. Спросить полхозяина"

Определить её длину и номер позициислова "после"

Срочно надо!

[ToNY667]

ты сам то над ней думал?

или решил чужими руками жар загребать?

[L0K1]

ты сам то над ней думал?

или решил чужими руками жар загребать?

Очень четко сформулировано.

Чем ты собирался её решать, какими процедурами, функциями, какой тип юзается - стандартный или нет.

Ответь на эти вопросы тогда подумаем, помогать аль нет.

Кроме того в этой ветки 90 топиков, Помоги решить задачу на паскале. Даже несколько общих. (Которые создают бодрые студенты, за 3 часа до сдачи работы)

[volk03]

ToNY667

Я же попросил решить!!Не хочешь не надо(

[danger]

Тут просят помощи, а не готового решения на халяву. Форум то программистов, а не агентство бесплатных услуг

[Go-ger]

Помогите пожалуйста найти ошибку: (Программа заменяет сиволы "А" и "е" на пробелы)

i: integer;
begin
writeln('bvnfghfgj');
readln(a);
for i:= 1 to length (a) do
begin
b:=b+a[i];
if a[i]= 'a' then
b:=' ';
if a[i]='e' then
b:=' ';
end;
writeln(;
end.

Var a,b:string;

ответ выводит правильно если Заменяемая буква стоит в начале, а если заменяемая буква стоит в конце выводит пустоту.

[TolkienDRR]

Go-ger

все правильно. ты в строчках b:=' '; присваешь строке один пробел =)

можно сделать в одной строке.

if a='a'/'e' then a:=' ';

[Go-ger]

Вставляю if a='a'/'e' then a:=' '; и вылазиет ошибка "операция непременима к операндам данного типа".

И всётаки как исправить неправилно выводимый ответ, который я описал выше.

[Lakers]

Var a,b:string;
i: integer;
begin
writeln('bvnfghfgj');
readln(a);
for i:= 1 to length (a) do
begin
if a[i] in[ 'a', 'e'] then
  begin
    b:=b+' ';
  end
else
  begin
    b:=b+a[i];
  end
writeln(;
end.

Добавлено спустя 1 минуту 33 секунды:

либо через одну строку

Var a:string;
i: integer;
begin
writeln('bvnfghfgj');
readln(a);
for i:= 1 to length (a) do
begin
if a[i] in[ 'a', 'e'] then
begin
a[i]:=' ';
end;
writeln(;
end.

[coder]

for i:= 1 to length (a) do

begin

if a in[ 'a', 'e'] then

begin

a:=' ';

end;

writeln(;

end.

таки не поняв, што выводим ? =))

[TolkienDRR]

Go-ger, дык, я писал тебе не строчку кода, а подсказку. как я понял тебе нужна была помощь, а не решение =) но Lakers поделился. =)

[Lakers]

for i:= 1 to length (a) do

begin

if a in[ 'a', 'e'] then

begin

a:=' ';

end;

writeln(a);

end.

=)

[Go-ger]

TolkienDRR всё равно спасибо тебе и Lakers в написании программы

[Go-ger]

Ёще раз прошу помочь в простой программе с процедурами и функциями:

var n,i,j:integer;

Procedure XXX (var a:array [1..100,1..100] of integer);

begin write(' ');

readln(n);

for i:=1 to n do

for j:=1 to n do

a[i,j]:=j*i;

end;

begin

write(XXX(a[i,j]):3);

writeln

end;

end.

Что бы не делал в 4 строчке с конца пишет: что "а" неизвестный индефикатор. И с Подпрограммами функций тоже самое.

[JSTQ]

Ёще раз прошу помочь в простой программе с процедурами и функциями:

var n,i,j:integer;

Procedure XXX (var a:array [1..100,1..100] of integer);

begin write(' ');

readln(n);

for i:=1 to n do

for j:=1 to n do

a[i,j]:=j*i;

end;

begin

write(XXX(a[i,j]):3);

writeln

end;

end.

Что бы не делал в 4 строчке с конца пишет: что "а" неизвестный индефикатор. И с Подпрограммами функций тоже самое.

uses crt;
type xbase = array [1..100,1..100] of integer;
var
n,i,j:integer;
xvar:xbase;
Procedure XXX (var x: xbase);
begin
     for i:=1 to n do
         for j:=1 to n do
         begin
              x[i,j]:=j*i;
              write(x[i,j]:3);
         end;
end;
begin
     clrscr;
     write('vvedite N= ');
     readln(n);
     XXX(xvar);
     readln;
end.

[coder]

все правильно пишет

слушай его, чудес не бывает

var n,i,j:integer;

добавь

a:array [1..100,1..100] of integer;

[Go-ger]

Justice спасибо.

[Lucky]

Ёще раз прошу помочь в простой программе с процедурами и функциями:

var n,i,j:integer;

Procedure XXX (var a:array [1..100,1..100] of integer);

begin write(' ');

readln(n);

for i:=1 to n do

for j:=1 to n do

a[i,j]:=j*i;

end;

begin

write(XXX(a[i,j]):3);

writeln

end;

end.

Что бы не делал в 4 строчке с конца пишет: что "а" неизвестный индефикатор. И с Подпрограммами функций тоже самое.

бл.., это что? с..ка, меня сейчас вывернет от такого кодинга....

человек, смотри сюда:

var n,i,j:integer;
 Procedure XXX (var a:array [1..100,1..100] of integer);    хм, нормальное начало описания ПРОЦЕДУРЫ ХХХ, хотя уместней такие вещи в своём типе описать
begin write('     ');   было бы интереснее вместо этой фигни вывести, например, вот это (_*_), а то так на экране ничерта не видать
readln(n);
      for i:=1 to n do
      for j:=1 to n do
  a[i,j]:=j*i;
  end;                  а вот тут КОНЕЦ ПРОЦЕДУРЫ
begin         а вот тут НАЧАЛО ОСНОВНОЙ ПРОГРАММЫ
   [b]write(XXX(a[i,j]):3);[/b]     это тут у меня начались спазмы... ХХХ - это ведь ПРОЦЕДУРА??? а у них НЕТ РЕЗУЛЬТАТА!!!
   writeln                                  и потом, a[i,j] - это аргумент ПРОЦЕДУРЫ, точнее ВЫХОДНОЙ ПАРАМЕТР, или я пьян?
end;         а это что за хренотень? (это тут компилятор выругаться должен после устранения верхних проблем)
end.      а вот это конец программы, или нет???

А теперь вопрос: где учимся? ваша училка срисовывает ответы из книжки, вообще не врубаясь в суть происходящего, ничего вам не объясняя, или студент сам проквасил семестр, и теперь хвосты нагоняет?

Идентификатор - знаю, индефикатор - это что? Новое оружие для разрушения мозга на клеточном уровне? Нас марсиане пытаются захватить?

Товарищи, учите правильнописание, т.е. грамоту.

[barmaglot]

Бугага... круто обосрал...

А совет то правильный учи.... ибо умным будешь... и для таких простых задачек не будешь спрашивать помощь...