Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль) > Форум Pascal ABC
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Старый 28.10.2013, 10:38   #1
snick1996
Новичок
 
Регистрация: 14.10.2013
Сообщений: 34
Репутация: 0 (0)
Ошибка в программе / Pascal ABC

Ввести строку. Удалить из нее сочетания РHP.
Код Pascal
1
2
3
4
5
6
7
8
9
var
s:string;
a:integer;
begin
readln(s);
a:=length(s);
delete(php);
write;
end.
Ошибка возможно в этой строке: delete(php);
Но совневаюсь, что этот программный код будет работать.
Старый 28.10.2013, 13:54   #2
ildwine
Модератор
 
Аватар для ildwine
 
Регистрация: 04.03.2013
Сообщений: 2,465
Репутация: 1384 (1035)
Записей в блоге: 1
Лучшие ответы: 158
Ошибка в программе / Pascal ABC

Код Pascal
1
2
3
4
5
6
7
8
9
var
  s : string;
  a : integer;
begin
 readln(s);
 for a := 1 to length(s) do
  delete(s, pos('PHP', s), 3);
 writeln(s);
end.
Другие темы раздела Форум программистов Pascal ABC. Программирование на Pascal ABC. Помощь в решении задач.
Ввести строку. Найти длину самого короткого слова Pascal ABC
Ввести строку. Найти длину самого короткого слова.
N=15 Определить количество элементов, значения которых больше суммы соседних элементов (предыдущего и по-следующего) Pascal ABC
N=15 Определить количество элементов, значения которых больше суммы соседних элементов (предыдущего и по-следующего).
Старый 28.10.2013, 13:54
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
C++ Builder и базы данных Ошибка в программе
В программе при добавлении Специальностей появляется ошибка. Программа прикреплена ниже. Помогите пожалуйста!!!! В архиве - троян... Попробуй присоединить только сами исходники, удалив результаты компиляции из проекта
PAHAN-Demon
PascalABC.NET Ошибка в программе: Ошибка времени выполнения: Среда выполнения Common Language Runtime обнаружила недопустимую программу
Когда пытаюсь вывести данные, выходит ошибка и выделает строку с WriteLn. procedure vivod(var f:file of aviabilety; Var bil:Aviabilety); Var i:Integer; begin assign(f,'bil.pas'); reset(f); For i:=1 to 2 do begin read(f,bil); writeln (bil.Fio,' | ',bil.pynkt,' |...
NoviiMir
Turbo Pascal ошибка в программе
подскажите, пожалуйста, где ошибка? программа должна определять является ли последовательность вводимых чисел возрастающей. const max=10000; var k:boolean; i:array of integer; begin writeln ('vvedite chisla'); readln; readln (array); if array<array then k:=false; end;
Doubted
Free Pascal Ошибка в программе
Условие Флойд - существование Дан ориентированный взвешенный граф. По его матрице смежности нужно для каждой пары вершин определить, существует кратчайший путь между ними или нет. Кратчайший путь может не существовать по двум причинам: * Нет ни одного пути. * Есть путь сколь...
vlkum
Опции темы

Текущее время: 07:20. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.