volk03 Опубликовано 13 апреля, 2010 Жалоба Поделиться Опубликовано 13 апреля, 2010 Даны строки "Продам дом за цену ..." , "Обращаться после дня." и "Спросить хозяина".Создать новую строку : "Продам полдома за полцены.Обращаться после полдня. Спросить полхозяина"Определить её длину и номер позициислова "после"Срочно надо! Ссылка на комментарий
ToNY667 Опубликовано 13 апреля, 2010 Жалоба Поделиться Опубликовано 13 апреля, 2010 ты сам то над ней думал?или решил чужими руками жар загребать? Ссылка на комментарий
L0K1 Опубликовано 13 апреля, 2010 Жалоба Поделиться Опубликовано 13 апреля, 2010 ты сам то над ней думал?или решил чужими руками жар загребать?Очень четко сформулировано.Чем ты собирался её решать, какими процедурами, функциями, какой тип юзается - стандартный или нет.Ответь на эти вопросы тогда подумаем, помогать аль нет.Кроме того в этой ветки 90 топиков, Помоги решить задачу на паскале. Даже несколько общих. (Которые создают бодрые студенты, за 3 часа до сдачи работы) Ссылка на комментарий
volk03 Опубликовано 13 апреля, 2010 Автор Жалоба Поделиться Опубликовано 13 апреля, 2010 ToNY667Я же попросил решить!!Не хочешь не надо( Ссылка на комментарий
danger Опубликовано 17 апреля, 2010 Жалоба Поделиться Опубликовано 17 апреля, 2010 Тут просят помощи, а не готового решения на халяву. Форум то программистов, а не агентство бесплатных услуг Ссылка на комментарий
Go-ger Опубликовано 20 апреля, 2010 Жалоба Поделиться Опубликовано 20 апреля, 2010 Помогите пожалуйста найти ошибку: (Программа заменяет сиволы "А" и "е" на пробелы)i: integer;beginwriteln('bvnfghfgj');readln(a);for i:= 1 to length (a) dobeginb:=b+a[i];if a[i]= 'a' thenb:=' ';if a[i]='e' thenb:=' ';end;writeln(;end.Var a,b:string;ответ выводит правильно если Заменяемая буква стоит в начале, а если заменяемая буква стоит в конце выводит пустоту. Ссылка на комментарий
TolkienDRR Опубликовано 20 апреля, 2010 Жалоба Поделиться Опубликовано 20 апреля, 2010 Go-gerвсе правильно. ты в строчках b:=' '; присваешь строке один пробел =)можно сделать в одной строке.if a='a'/'e' then a:=' '; Ссылка на комментарий
Go-ger Опубликовано 20 апреля, 2010 Жалоба Поделиться Опубликовано 20 апреля, 2010 Вставляю if a='a'/'e' then a:=' '; и вылазиет ошибка "операция непременима к операндам данного типа".И всётаки как исправить неправилно выводимый ответ, который я описал выше. Ссылка на комментарий
Lakers Опубликовано 20 апреля, 2010 Жалоба Поделиться Опубликовано 20 апреля, 2010 Var a,b:string;i: integer;beginwriteln('bvnfghfgj');readln(a);for i:= 1 to length (a) dobeginif a[i] in[ 'a', 'e'] then begin b:=b+' '; endelse begin b:=b+a[i]; endwriteln(;end.Добавлено спустя 1 минуту 33 секунды:либо через одну строкуVar a:string;i: integer;beginwriteln('bvnfghfgj');readln(a);for i:= 1 to length (a) dobeginif a[i] in[ 'a', 'e'] then begin a[i]:=' '; end;writeln(;end. Ссылка на комментарий
coder Опубликовано 20 апреля, 2010 Жалоба Поделиться Опубликовано 20 апреля, 2010 for i:= 1 to length (a) dobeginif a in[ 'a', 'e'] then begin a:=' '; end;writeln(;end.таки не поняв, што выводим ? =)) Ссылка на комментарий
TolkienDRR Опубликовано 20 апреля, 2010 Жалоба Поделиться Опубликовано 20 апреля, 2010 Go-ger, дык, я писал тебе не строчку кода, а подсказку. как я понял тебе нужна была помощь, а не решение =) но Lakers поделился. =) Ссылка на комментарий
Lakers Опубликовано 20 апреля, 2010 Жалоба Поделиться Опубликовано 20 апреля, 2010 for i:= 1 to length (a) dobeginif a in[ 'a', 'e'] thenbegina:=' ';end;writeln(a);end.=) Ссылка на комментарий
Go-ger Опубликовано 20 апреля, 2010 Жалоба Поделиться Опубликовано 20 апреля, 2010 TolkienDRR всё равно спасибо тебе и Lakers в написании программы Ссылка на комментарий
Go-ger Опубликовано 27 апреля, 2010 Жалоба Поделиться Опубликовано 27 апреля, 2010 Ёще раз прошу помочь в простой программе с процедурами и функциями: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); writelnend;end.Что бы не делал в 4 строчке с конца пишет: что "а" неизвестный индефикатор. И с Подпрограммами функций тоже самое. Ссылка на комментарий
JSTQ Опубликовано 27 апреля, 2010 Жалоба Поделиться Опубликовано 27 апреля, 2010 Ёще раз прошу помочь в простой программе с процедурами и функциями: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); writelnend;end.Что бы не делал в 4 строчке с конца пишет: что "а" неизвестный индефикатор. И с Подпрограммами функций тоже самое.uses crt;type xbase = array [1..100,1..100] of integer;varn,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 Опубликовано 27 апреля, 2010 Жалоба Поделиться Опубликовано 27 апреля, 2010 все правильно пишетслушай его, чудес не бываетvar n,i,j:integer;добавьa:array [1..100,1..100] of integer; Ссылка на комментарий
Go-ger Опубликовано 27 апреля, 2010 Жалоба Поделиться Опубликовано 27 апреля, 2010 Justice спасибо. Ссылка на комментарий
Lucky Опубликовано 28 апреля, 2010 Жалоба Поделиться Опубликовано 28 апреля, 2010 Ёще раз прошу помочь в простой программе с процедурами и функциями: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); writelnend;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 Опубликовано 29 апреля, 2010 Жалоба Поделиться Опубликовано 29 апреля, 2010 Бугага... круто обосрал...А совет то правильный учи.... ибо умным будешь... и для таких простых задачек не будешь спрашивать помощь... Ссылка на комментарий
Рекомендуемые сообщения
Пожалуйста, войдите, чтобы комментировать
Вы сможете оставить комментарий после входа в
Войти