Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Получить матрицу E + A + A^2 + ... + A^n https://www.cyberforum.ru/ pascal/ thread175355.html Даны квадратные матрицы A порядка m, натуральное число n. Получить матрицу E + A + A^2 + ... + A^n, где Е - единичная матрица порядка m.	Создать текстовый файл с исходными данными любой размерности. Из текстового файла переписать числа в массив, типизированный файл. Сделать контрольный Pascal Создать текстовый файл с исходными данными любой размерности. Из текстового файла переписать числа в массив, типизированный файл. Сделать контрольный вывод исходных данных из массива, типизированного файла. Блок-схему алгоритма. Фаил и массив по отдельности работает, спасибо! Люди помогите объединить задачу, по условию выше. САМА ЗАДАЧА: Переместить отрицательные числа в начало,...
Pascal Значение функции y(x)=arctg(x) Сори за за нескромный вопрос. Может сможет кто помочь, очень прошу, нужно срочно завтра с утра сдать лабу, а я совсем забыл и не понимаю как её сделать. Помогите люди добрые, я в долгу не останусь. Вот задание: Значение функции y(x)=arctg(x) можно вычислить с помощью разложения ее в ряд Маклорена. Вычислить y(x) с точностью EPS, т.е., вычисление суммы ряда нужно продолжать до тех пор, пока... https://www.cyberforum.ru/ pascal/ thread175300.html	Pascal Поиск и замена подстроки не используя функции delete и insert https://www.cyberforum.ru/ pascal/ thread175287.html Плиз помогите))) 1. поиск и замена подстроки не используя функции delete и insert 2. перевод чисел в различные системы исчисления Добавлено через 24 минуты Cортировка массива структур из 3 полей по всем полям с приоритетам Есть наработки, но смысл такой: у мебя должно быть 6 вариантов приоритетов, если 123 213 321 312 231 132 т.е если я ввожу приоритет 321...он берет 3 массив и...
Pascal Изобразить большую часть пирамиды, оставшейся от сечения Пожалуйста, помогите написать прогу Вот задание: Пирамида АBCD с высотой 7, в основе равносторонний треугольник ABC, лежащая в плоскости y = 0, стороны A (0, 0, 3), B (3; 0; 0), точки C и D имеют только неотъемлемые координаты. В точке C расположен центр шара радиуса 2. Изобразить большую часть пирамиды, оставшейся от сечения. Добавлено через 23 часа 21 минуту //// ////////	Pascal Из заданных четырех чисел найти два наименьшие i(a + 2)^0.2 i-нечетное и а>0 d= (i + Lg λ ) a^3 i- четное и а<0 (i + a)^0.5 в остальных случаях Данные читаемые консольно: i, a ,λ https://www.cyberforum.ru/ pascal/ thread175264.html
Pascal Вычислить интеграл методом Симпсона помогите, пожалуйста, кто сможет, написать программу вот Вычислить приближённое значение интеграла от функции F(x)=exp(2x)-exp(x)-ln(abs(x)+1)cos(x) на отрезке с точностью е=0,0001. Использовать метод Симпсона https://www.cyberforum.ru/ pascal/ thread175258.html	Как написать формулу? Pascal (h^2+x^2)^(5/2)
Pascal Определите число перемен знака при переходе от аi к ai+1. https://www.cyberforum.ru/ pascal/ thread175237.html Help.!! 1. Задан массив А размером n из положительных и отрицательных чисел. Определите число перемен знака при переходе от аi к ai+1. 2.Дан двумерный массив 5*5. Заменить нулевые элементы, расположенные над побочной диагональю, на -1.	Pascal Найти сумму N первых чисел фибоначчи Найти сумму N первых чисел фибоначчи через цикл for program zd421; var i,n,s,f,f1,f2:integer; begin s:=0;f1:=1;f2:=1 for i:=1 to n do begin https://www.cyberforum.ru/ pascal/ thread175232.html
Организация циклических процессов . Pascal я просто не успеваю у меня много лаб висит, а сдавать надо завтра, буду очень признателен если кто нибудь поможет! Вычислить X – член последовательности {X}, где X=1, X=n*X+1/n, k=15.	Pascal Оператор цикла с условием Вот три задачи, помогите пожалуйста решить: 1.Дано натурально число: a) Верно ли что количество его цифр есть чётное число, а само число не превышает b? б) Верно ли что оно начинается цифрой х и заканчивается цифрой у? 2.Начав тренировки, впервыйдень лыжник пробежал 10км.Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего дня. а) В какой день он пробежит больше 20... https://www.cyberforum.ru/ pascal/ thread175228.html

Puporev

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

64300 / 47595 / 32743

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

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

12.10.2010, 11:34

Найти в файле f1 все заменяемые слова и заменять их замещающими - Pascal - Ответ 1021502

12.10.2010, 11:34. Показов 4998. Ответов 4

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

Сообщение было отмечено Памирыч как решение

Решение

А я вам что, по английски написал???
То что на форуме нет того что вам нужно, то вы врете, только я не один десяток программ на поиск слов в строке писал. Конечно 1:1 вашей может и нет, но нужно же и свой мозг чуть напрячь.
А хамить будете, отдыхать по полной будете.
Вот пример поиска и замены слов в строке, файлы сами прикрутите, русская блин...

Pascal

uses crt;
const rz=[' ',',','.',';',':','!','?','''','"'];
var s,s1,s2,sp,sz:string;
    i,k:byte;
begin
clrscr;
writeln('Введите строку с разделителями');
readln(s);
writeln('Введите слово для поиска');
readln(sp);
writeln('Введите слово для замены');
readln(sz);
s2:='';
i:=1;
while i<=length(s) do
if not(s[i]in rz)and ((s[i-1] in rz)or(i=1)) then
{если буква, а перед ней разделитель или она первая}
 begin
  k:=i;s1:='';
  while not(s[k] in rz)and(k<=length(s))do {пока не разделитель и не конец строки}
   begin
    s1:=s1+s[k];{составляем слово}
    k:=k+1;{по 1 символу}
   end;
  if s1=sp then s2:=s2+sz{если нужное}
  else s2:=s2+s1;{если нет}
  i:=i+length(s1);{перепрыгиваем через слово}
 end
else{если разделитль}
 begin
  s2:=s2+s[i];{дописываем}
  i:=i+1;{на 1 вперед}
 end;
write(s2);
readln
end.

Вернуться к обсуждению:
Найти в файле f1 все заменяемые слова и заменять их замещающими Pascal

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

12.10.2010, 11:34

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

Найти в файле f1 все заменяемые слова и заменять их замещающими
Даны два текстовых файла f1 и f2. Файл f1 содержит произвольный текст. Слова в тексте разделены...

Найти в файле F1 все заменяемые слова и заменить их на соответствующие заменяющие слова
1.Задан типизированный файл с целочисленными компонентами и произвольное целое число b. Если для...

Найти в файле все заменяемые слова и заменить их на соответствующие заменяющие
Помогите написать программу: Даны два символьных файла f1 и f2. Файл f1 содержит произвольный...

Найти в файле f1 все заменяемые слова и заменить их на соответствующие заменяющие
Даны два символьных файла f1 и f2. Файл f1 содержит произвольный текст. Слова в тексте разделены...

	12.10.2010, 11:34

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

12.10.2010, 11:34

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

В txt файле найти все слова которые начинаются на гласные, вывести ети слова и все числа из файла
В txt файле найти все слова которые начинаются на гласные, вывести ети слова и все числа из файла.

Найти в файле f все слова, которые можно сложить из букв слова р
Дано слово р и файл f.найти в файле f все слова которые можна сложить с букв слова р. ФАЙЛ...

Найти в файле все слова, которые можно сложить из букв заданного слова
Дано слово р и файл f.найти в файле f все слова которые можна сложить с букв слова р.

Дано слово р и файл f. Найти в файле f все слова, которые можно составить из букв слова р
Дано слово р и файл f. Найти в файле f все слова, которые можно составить из букв слова р.

Макрос для LibreOffice: заменять все буквы каждого пятого слова на вторые буквы следующего слова за ним
Здравсвуйте! Нужен макрос для LibreOffice, который будет заменять все буквы каждого 5-го слова на...

Найти в файле f слова, которые встречаются больше чем 1 раз и составить файл g, исключив из f все лишние слова
найти в файле f слова которые встречаются больше чем 1 раз и составить файл g исключив с f все...

Наверх