памагите правельно написать программу не получается описание написать в бшем начало
program 12:
var
i.s:integer;
begin
iCurrSymbNum := Length (S);
while (iCurrSymbNum > 0) do
begin
if (S [iCurrSymbNum] = C) then
Insert (S0, S, iCurrSymbNum);
Dec (iCurrSymbNum);
end;
памагите правельно написать программу
Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill
-
Колядин Максим
- Сообщения: 297
- Зарегистрирован: 16 ноя 2006, 19:09
- Откуда: Seattle, WA
- Контактная информация:
что это у тебя за программа!? для чего она вообще?
Программист - это человек, который решает способом, который вы не понимаете, проблемы, о которых вы даже не подозревали...
Не определена переменные C, S0
Не помню, в Паскале insert - это процедура или функция, если функция - надо присвоить значение ее какой-нибудь переменной.
В разделе описаний вместо i.s написать i,s.
Функция Length работает для переменной типа string, для integer не пойдет.
В общем, написанная с кучей ошибок программа "Вставить в строке после каждого вхождения символа C строку S0"
Не помню, в Паскале insert - это процедура или функция, если функция - надо присвоить значение ее какой-нибудь переменной.
В разделе описаний вместо i.s написать i,s.
Функция Length работает для переменной типа string, для integer не пойдет.
В общем, написанная с кучей ошибок программа "Вставить в строке после каждого вхождения символа C строку S0"
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Хыиуду, S по смыслу написанного, string, а не integer.
Insert в Паскале - процедура.
Insert (procedure)
=====================
Inserts a substring into a string.
Declaration:
procedure Insert(Source: String; var S: String; Index: Integer);
Target:
Windows, Real, Protected
Remarks:
Source is a string-type expression. S is a string-type variable of any length. Index is an integer-type expression. Insert inserts Source into S at the Indexth position. If the resulting string is longer than 255 characters, it is truncated after the 255th character.
Insert в Паскале - процедура.
Insert (procedure)
=====================
Inserts a substring into a string.
Declaration:
procedure Insert(Source: String; var S: String; Index: Integer);
Target:
Windows, Real, Protected
Remarks:
Source is a string-type expression. S is a string-type variable of any length. Index is an integer-type expression. Insert inserts Source into S at the Indexth position. If the resulting string is longer than 255 characters, it is truncated after the 255th character.