Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Курсовая https://www.cyberforum.ru/ pascal/ thread70343.html Здраствуйте у меня проблема немогу зделать как что бы когда я стрелял в кубики они исчезали?? как очистку в задоных координатах задать непойму.. или их за экран вынести если поподаю? помогите плс... program KURSOVOY; Uses crt,Graph; Var Gd, Gm : Integer; P : Pointer; key:char; Size : Word; x,y,x1,y1:integer;	Pascal Дан массив А,состоящий из n натуральных чисел.Найдите наибольший общий делитель элементов массива 1)Дан массив А,состоящий из n натуральных чисел.Найдите наибольший общий делитель элементов массива. 2)Напишите программу,вычеркивающ. из данного слова все буквы ''а'' (так,что бы например из слова ''заноза'' получилось ''зноз'') помогите плз;(
Pascal Сортировка матрицы по возрастанию https://www.cyberforum.ru/ pascal/ thread70341.html Задан двухмерный массив A(a_ij), де i=1,2…n , j=1,2…m, элементами которого являются целые числа. Упорядочить информацию в массиве в порядке возрастания. Указания: Изначальный массив задать самостоятельно. На экран вывести начальный и полученный массивы.	Pascal Дан текст из 100 символов, удалить повторяющиеся символы program n67str78; {Дан текст из 100 символов, удалить повторяющиеся символы.} {$APPTYPE CONSOLE} uses SysUtils, Windows; const N=5; https://www.cyberforum.ru/ pascal/ thread70340.html
Pascal Массивы, расположенные на нечетных местах Вычисление суммы всех четных(по значению) элементов массива, расположенных на нечетных по порядку местах. Длина массива вводится с клавиатуры. Вывод в файл исходного массива и результата работы. Тип: целые.	Pascal Как сохранить программу в формате текстового документа? https://www.cyberforum.ru/ pascal/ thread70337.html :wall:
Pascal вычислите функцию y(x) в зависимости от значения x задание: вычислите функцию y(x) в зависимости от значения x. ln(x+1/x-1)=22+1/5x5+1/7x7+...+1/(2n+1)x2n+1+...] \|x\|>1 программа должна сделана в паскале. PS: то что отмечено красным цветом это степень, и кстати Puprov у тебя неправильно, сказали что неправильно подщитан ряд.. https://www.cyberforum.ru/ pascal/ thread70336.html	Pascal Ввести в множество текст, а потом вывести слово, которое имеет непарный номер Подскажите, как ввести в множество текст, а потом вивести слово, которое имеет непарный номер!!!
Pascal Максимальная масса покупки. Помогите пожалуйста. Нужно решить следующую задачу!! спасибо!! Вы пришли в магазин, имея в кармане Q рублей. На прилавках магазина имеется N различных фасованных продуктов. Известна цена и масса каждого продукта. Вам необходимо сделать покупки так, чтобы общая масса покупки была максимальна. https://www.cyberforum.ru/ pascal/ thread70328.html	Pascal Помогите решить задачу квадратное уравнение с логарифмими https://www.cyberforum.ru/ pascal/ thread70327.html Нужно решить квадратное уравнение lg(x^2-bx-c)=a-lg(b) После преобразований вот что получилось (а может и не надо преобразовывать): x^2-x-(c+(10^a)/b)=0 a,b,c -числа найти х вырезанно заколебался его решать никак не выходит помогите плиззз !!!!!Даже ОДЗ
Pascal динамические структуры данных. простые списки создать простой список символов (256) и выбрать с него буквы латинского алфавита (приблизительно с 65-127).	Pascal работа с символьными переменными https://www.cyberforum.ru/ pascal/ thread70303.html Составить программу, которая подсчитывает количество слов во введенной фразе, если между словами стоит произвольный разделитель и произвольное число пробелов.

Puporev

Почетный модератор

64300 / 47595 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

04.12.2009, 13:28

В программе вводится строка. Требуется удалить из строки все слова, совпадающие с заданным. - Pascal - Ответ 394326

04.12.2009, 13:28. Показов 1666. Ответов 4

Метки (Все метки)

Ответ

Вот типа так.

Pascal

uses crt;
const rzd=['.',',',';',':','?','!',' '];{основные разделители, можно добавить}
var s,sl:string;
    i,d:byte;
begin
clrscr;
writeln('Строка:');
readln(s);
write('Слово ');
readln(sl);
d:=length(sl);
for i:=length(s) downto 1 do
 if (copy(s,i,d)=sl){если слово}
 and((s[i-1] in rzd)or(i=1)){перед ним разделитель, или оно первое}
 and((s[i+d] in rzd)or(i+d-1=length(s))){за ним разделитель, или оно последнее}
 then delete(s,i,d); {удаляем}
write(s);
readln
end.

Вернуться к обсуждению:
В программе вводится строка. Требуется удалить из строки все слова, совпадающие с заданным. Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

04.12.2009, 13:28

Готовые ответы и решения:

Вводится строка. Удалить все символы, совпадающие с первым символом данной строки C#
Доброго времени. Нужна помощь в создании данной программы

С клавиатуры вводится строка символов. Удалить из строки все слова начинающиеся на букву А.
№2 Решите задачу с использование алгоритмического языка. Задача. С клавиатуры вводится строка...

В тексте удалить все слова, совпадающие с заданным
Доброго времени суток) Пишу прогу по теме Строки и символы, дописав до определенного места...

Строка: Удалить из строки S1 все подстроки, совпадающие с S2.
Даны две строки: S1 и S2. Удалить из строки S1 все подстроки, совпадающие с S2. Если таких подстрок...

	04.12.2009, 13:28

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

04.12.2009, 13:28

Помогаю со студенческими работами здесь

Вводится строка.Удалить из неё все слова,длина которых меньше или равна 3 символам
Вводится строка.Удалить из неё все слова,длина которых меньше или равна 3 символам

Строки. Вводится строка произвольного текста. Удалить все гласные буквы
Вводится строка произвольного текста. Удалить все гласные буквы.

Строка символов. Удалить из строки все слова, которые оканчиваются на A
С клавиатуры вводится строка символов удалить из строки все слова которые оканчиваются на A. ...

удалить все слова совпадающие с первым
Просто безумно нужна помощь ;)) я в долгу не останусь )))) нужно написать программу в...

Наверх