Форумы-->Форум для внеигровых тем-->
| Автор | Помогите с кодом(Delphi 7) |
|---|
суть задачи: вводится слово на латинице, начинается с гласной, требуется слово со второй гласной поменять и добавить ay.
пример слово
item
вывод: emitay
append
вывод: endappay
выдает ошибки в разных местах(бред какой то)
код:
var
s, z, p: string;
j, i: integer;
label
qer;
begin
s:=edit1.Text;
for i:=1 to length(s)-1 do
if (s[i] in ['a','e','y','u','i','o']) then
begin
j:=i;
GoTo qer;
end;
qer:
for i:=j+1 to length(s)-1 do
z[i]:=s[i];
for i:=0 to j do
p[i]:=s[i];
edit2.Text:=z+p+'ay'; | for i:=j+1 to length(s)-1 do
z[i]:=s[i];
for i:=0 to j do
p[i]:=s[i];
edit2.Text:=z+p+'ay' неверное выражение. | для Принц Империи:
а как верное написать.не врубаюсь | | для Янеч о_О: извини я на дельфи слаб, ибо на с++ приучен. Ошибку увидел, но аналогичное выражение сформулировать не могу. | для Принц Империи:
скажи как эт на си выглядит, ибо си я тож знаю) | я конечно не профи,только начинаю учиться кодить в делфи,но в делфи там же написана какая именно ошибка,и где?разве нет?
и да,я не уверен что данные j, i объявлены правильно...разве integer должен быть?мб real? | для гроулинг:
именно что integer
для Янеч о_О:
Еще над помощь? | для Balmung:
окай,учту) |
К списку тем
|
