Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
snick1996
Новичок
0 / 0 / 0
Регистрация: 14.10.2013
Сообщений: 34
28.10.2013, 10:38     Ошибка в программе
  #1
Ввести строку. Удалить из нее сочетания Р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);
Но совневаюсь, что этот программный код будет работать.
AdAgent
Объявления
28.10.2013, 10:38
ildwine
Модератор
1662 / 1184 / 241
Регистрация: 04.03.2013
Сообщений: 2,912
Записей в блоге: 1
28.10.2013, 13:54     Ошибка в программе
  #2
Код 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.
Yandex
Объявления
28.10.2013, 13:54
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Pascal ABC Ошибка в программе
program adams; uses crt; const a=2.1;b=3.1; n=40; eps=0.001; type mas=array of real; var yn,pogr,h,k0,k1,k2,k3:real; x,y:mas; i:integer; f:text; function f1(x,y:real):real; begin
Pascal ABC roman007 06.04.2014 14:39
Delphi БД Ошибка в программе
Кто может помочь с БД и ДЕлфи, ошибка непонятная приостановила процесс работы)) Простенькая программа для добавления и редактирования данных с подвязкой Аксес
Delphi и базы данных Denisprit 10.03.2014 20:02
C++ Ошибка в программе
Помогите запустить программу,а то пишет: C:\Users\Desktop\source\deykstra.cpp|4|fatal error: iostream.h: No such file or directory| Вот сама программа // deykstra.cpp : Defines the entry point for...
С++ для начинающих uran 23.12.2013 18:53
Pascal ABC ошибка в программе
ребят, где я ошибся? задача была уравнение √x+x2-3 решить методом ньютона(касательных) uses crt; var x,a,k,b,e:real; function F1(z:real):real; begin F1:=sqrt(x)+sqr(x)-3; end; function...
Pascal ABC paran0ik 06.11.2013 02:01
Pascal ABC Ошибка в программе
Вообщем суть программы в том чтобы соединить два рисунка,двоичный код для которых лежит в двух тестовых документах. 0 0 1 0 0 0 1 0 1 0 1 1 1 1 1 содержание первого текстового документа 1...
Pascal ABC Анонимный 25.12.2012 15:27
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); ...
PascalABC.NET NoviiMir 17.12.2012 12:41
Pascal ABC Ошибка в программе с while
Даны положительные числа A, B (A > B). На отрезке длины А размещено максимально возможное количество отрезков Длины B (без наложений). Не используя операции умножения и деления, найти количество...
Pascal ABC МиссАзазелло 22.01.2012 22:19
Опции темы

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

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