Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Расчет суммы заработной платы Составить схему алгоритма и программу создания массива из 4-х записей на основе ведомости «Расчет суммы заработной платы» ПОЛНОСТЬЮ ЗАДАЧА С ТАБЛИЦЕЙ ВНУТРИ ФАЙЛА!!! https://www.cyberforum.ru/ turbo-pascal/ thread317818.html	Turbo Pascal Составить программу, которая организует ввод данных о телефонах: Составить программу, которая организует ввод данных о телефонах: ФИО, адрес, телефон, количество междугородних разговоров, сумма оплаты и записывает их в массиве записей, а затем выводит фамилии абонентов, сумма оплаты у которых превышает 1500 руб.
Turbo Pascal процедуры и функции https://www.cyberforum.ru/ turbo-pascal/ thread317811.html "сборник упражнений по языку Паскаль" В.Н.Пильщиков задача №11.25 type сдвиг=1..19; шкала = packed array array of boolean; написать программу с использованием процедуры сдв(s,k), которая преобразует шкалу s, циклически сдвигая ее элементы на k позиций влево, где k-прараметр типа сдвиг. помогите, пожалуйста кто чем может!!!!!!!!!!1	Turbo Pascal FloatToStr FloatToStr(a); как это реал. в ТурбоПаскале? спс. https://www.cyberforum.ru/ turbo-pascal/ thread317806.html
В текстовом файле - данные 2 поля целого типа. 1- создать функцию которая данные из файла в массив записей Turbo Pascal В текстовом файле - данные 2 поля целого типа. 1- создать функцию которая данные из файла в массив записей. Я написал но не работает ну файл тектовый сами создатите кто будет проверять текс программы ниже.... program tt; Type zap=record Kod:byte; kos:byte; end; pp=array of zap;	Turbo Pascal нетипизированые файлы даны три файла одного типа, но разного размера. замененить содержимое самого короткого файла на содержимое самого длинного. помогите кто чем может!!!!!!1 https://www.cyberforum.ru/ turbo-pascal/ thread317800.html
Turbo Pascal Вывести слово ученик с нужным окончанием 5. Пусть пользователь вводит целое число от 1 до 10, программа должна приписать к нему слово «ученик» с необходимым окончанием (нулевое, «а» или «ов»). https://www.cyberforum.ru/ turbo-pascal/ thread317794.html	Дана последовательность 5 чисел надо найти формулу и продлить её Turbo Pascal Дана последовательность 5 чисел надо найти формулу и продлить её 6 - 1 1 1 1 1 7 - 6 5 4 5 5 8 - 17 13 12 14 15 9 - 36 25 24 29 32 10 - 65 43 40 51 55 11 - ? ? ? ? ? 12 - ? ? ? ? ? 13 - ? ? ? ? ? 14 - ? ? ? ? ?
Turbo Pascal Про стороны треугольника, не знаю как вкратце объяснить https://www.cyberforum.ru/ turbo-pascal/ thread317787.html Задано n троек чисел a, b, c. Вводя их по очереди и интерпретируя как длины сторон треугольника, определить, сколько троек может быть использовано для построения треугольника. Использую условие сторон треугольника, что сумма двух любых сторон больше третьей. Допустим стороны A,B,C, тогда A<(B+C); B<(A+C); C<(A+B), последние два условия можно заменить на A>\|B-C\| {1} Program test17; {2} Var...	Turbo Pascal Определить количество цифр в числе https://www.cyberforum.ru/ turbo-pascal/ thread317785.html Дано натуральное число. Определить, количество цифр в нем.
Найти корень уравнения методом касательных Turbo Pascal Найти корень уравнения(уточнив при необходимости диапазон A-B)56.48sin(5.30x)=10.68 на отрезке от A=0.03230 до B=0.03948 методом касательных. Точность решения EPS=0.000088.	Turbo Pascal Получить массив C, расположив в начале его элементы массива A, а затем – элементы массива B https://www.cyberforum.ru/ turbo-pascal/ thread317775.html Заданы массивы A(m) и B(n). Получить массив C(m+n), расположив в начале его элементы массива A, а затем – элементы массива B.

KaiTheCat

К.О.

534 / 499 / 344

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

Сообщений: 1,141

11.06.2011, 16:18

Строки - Turbo Pascal - Ответ 1749893

11.06.2011, 16:18. Показов 371. Ответов 1

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

Ответ

хз можно ли понормальнее написать

Pascal

const c = ['0'..'9'];
var
   st,x: string;
   i,k,b: byte;
begin
   write('введите строку: ');
   readln(st);
   for i:=1 to length(st) do
      if st[i] in c then
         begin
            if not (st[i-1] in c) then inc(k);
            if (k=3) and ((not (st[i+1] in c) or (i=length(st))) then
               begin
                  b:=i;
                  break;
               end;
         end;
   write('введите слово: ');
   readln(x);
   x:=' '+x+' ';
   insert(x,st,b+1);
   writeln('новая строка: ',st);
   readln
end.

Вернуться к обсуждению:
Строки Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

11.06.2011, 16:18

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

Определить длину строки. Если длина строки >6, удалить часть строки в { } скобках.
Ввести с клавиатуры строку символов. Признак окончания ввода строки – нажатие клавиши "Ввод"....

Строки. Определить длину введенной строки, если длина кратна 4, то первая часть строки меняется местами со второй
Ввести с клавиатуры строку символов.признак окончания ввода строки-нажатие клавиши ввод.Программа...

Строки. Даны строка S и подстрока S1.Удалить из строки S все вхождения строки S1
Даны строка S и подстрока S1.Удалить из строки S все вхождения строки S1.В строке S подсчитать...

Строки. Даны строки S и So. Найти количество вхождений строки So в строку S
Помогите пожалуйста, как сделать эту задачу без этих вот строчек... B:=TRUE; и без команды INC......

	11.06.2011, 16:18

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

11.06.2011, 16:18

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

Строки. Из строки символов удалить символы, отличных от русских букв и пробелов
Задана строка из произвольного количества слов, разделенных пробелами. Из заданной строки символов...

Указать номер строки, максимальной удаленной от первой строки заданной матрицы
Расстояние между k-й и l-й строками матрицы А=|{a}_{ij}| определяется как...

Строки. Удалить часть символьной строки,заключенной в скобки (вместе со скобками)
Удалить часть символьной строки,заключенной в скобки(вместе со скобками).

Прибавление к элементам какой-либо строки массива элементов другой строки
Разработать подпрограмму прибавления к элементам какой-либо строки массива элементов другой...

Наверх