Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Шифр Цезаря предложите более быстрый алгоритм https://www.cyberforum.ru/ turbo-pascal/ thread694749.html
Так-с, задачу-то я решил, но мне интересно, есть ли более шустрые варианты. Кто не знает, что такое шифр Цезаря: есть символ - буква, есть ключ - число. Надо выдать символ, который находится в...
Составьте программу, складывающую две обыкновенные дроби Turbo Pascal
Помогите, пожалуйста, Составить программу, складывающую две обыкновенные дроби. Только сокращать самому придётся. program Project2; uses crt; var a1, a2, b1, b2, c1, c2: Integer; begin Writeln ('Enter the numerator of the first fraction: '); Readln(a1);
Turbo Pascal Определить, какой элемент – максимальный или первый нулевой– стоит ближе к началу массива Вообщем нужно написать программу, которая должна определять, какой элемент – максимальный или первый нулевой (по порядку расположения в массиве) – стоит ближе к началу массива. Очень нужна помощь.... uses crt; const n=20; var a: array of byte; i,imax,inul: byte; begin imax:=1; inul:=0; for i:=1 to n do begin a:=random(7); https://www.cyberforum.ru/ turbo-pascal/ thread694458.html Turbo Pascal Найти сумму и произведение всех элементов одномерного массива, больших заданного числа Найти сумму и произведение всех элементов одномерного массива, больших заданного числа. writeln('Введите число для сравнения'); readln(t); for i:=1 to n do readln(mas); ввожу 20 https://www.cyberforum.ru/ turbo-pascal/ thread694652.html
Turbo Pascal Найти количество цифр данного числа, больших А
1.Дано натуральное число: -найти количество цифр данного числа, больших А(А вводится с клавиатуры); -верно ли, что данное число принадлежит промежутку от А до В и кратно 3, 4 и 5 (А и В вводятся с... 1) uses crt; var n:longint; a,k:byte; begin clrscr; repeat write('Введите натуральное число n='); readln(n); until n>0;
Turbo Pascal Дана последовательность из n целых чисел. Найти номер максимального элемента последовательности
Условие: Дана последовательность из n целых чисел. Найти номер максимального элемента последовательности. Вот что у меня получилось.. Program Kovtun_laba3_1; uses crt; var ... Rinse, да у вас почти все правильно, только 1) вместо первого элемента вы снова считываете n, в итого меняется число элементов последовательности, а максимальный элемент остается нулевым 2)...
Turbo Pascal Перевести задачу из функции на процедуру uses crt; var a,b,c,d,e,f,g,M:real; function Sl(x,y,z:real):real; var p:real; begin p:=(x+y+z)/2; sl:=sqrt(p*(p-x)*(p-y)*(p-z)); end; uses crt; var a,b,c,d,e,f,g,pl1,pl2,pl3,M:real; procedure Sl(x,y,z:real; var pl: real); var p: real; begin p:=(x+y+z)/2; pl:=sqrt(p*(p-x)*(p-y)*(p-z)); end; https://www.cyberforum.ru/ turbo-pascal/ thread694539.html Turbo Pascal Реализовать в виде модуля набор подпрограмм для выполнения операций над числами в двоичной системе счисления
Необходимо реализовать в виде модуля набор подпрограмм для выполнения следующих операций над натуральными числами в двоичной системе счисления: 1) сложения; 2) деления; 3) умножения; 4) функций,...
Процедуры или функции: Найти все простые числа,лежащие в заданном диапазоне и их сумму Turbo Pascal
Пользователь вводит два натуральных числа. Найти все простые числа,лежащие между ними и их сумму. Использовать процедуры или функции. uses crt; function Prost(n:longint):boolean; var i:longint; f:boolean; begin if n<2 then f:=false else begin f:=true; i:=2;
Turbo Pascal Треугольник задан координатами своих вершин. Составить программу для вычисления его площади https://www.cyberforum.ru/ turbo-pascal/ thread694745.html
Треугольник задан координатами своих вершин.Составить программу для вычисления его площади Нужно с использованием основных операторов для организации работы с подпрограммами-процедурами. Помогите... остался один штришок program test; var x1,x2,x3,y1,y2,y3,s,a,b,c,p:real; procedure dlina(q,w,e,r:real; var d:real); begin d:=sqrt(sqr(q-w)+sqr(e-r)); end; begin readln(x1,x2,x3,y1,y2,y3);...
Turbo Pascal Разработать библиотечный модуль из ранее созданных программ. Составить программу, вызывающую процедуры и функции созданного модуля https://www.cyberforum.ru/ turbo-pascal/ thread694590.html
Пытался сделать сам, но нечего из этого не получилось.... Разработать библиотечный модуль из ранее созданных программ. Составить программу, вызывающую процедуры и функции созданного модуля. Вот... Вроде сделал проверьте работает или нет: Модуль: unit lb9; interface Type mas=array of integer; mass=array of integer; var p:mas; q:mass; function z1:real; function z2:integer;
Заменить нулями элементы массива между минимальным и максимальным, кроме их самих Turbo Pascal
Заменить нулями элементы массива между минимальным и максимальным, кроме их самих. Вот похожая задача думаю переделать не проблема.... https://www.cyberforum.ru/turbo-pascal/thread410410.html
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.11.2012, 18:36 0

Дана строка с несколькими запятыми. Получить слово между первой и второй запятыми - Turbo Pascal - Ответ 3683740

11.11.2012, 18:36. Показов 3104. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var s,sl: string;
    i: byte;
begin
write('s='); readln(s);
sl:='';
i:=pos(',',s)+1;
while s[i]<>',' do
      begin
      sl:=sl+s[i];
      inc(i);
      end;
writeln(sl);
readln;
end.
пс проверка на наличие 2 запятых не производится!

Вернуться к обсуждению:
Дана строка с несколькими запятыми. Получить слово между первой и второй запятыми Turbo Pascal
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
11.11.2012, 18:36
Готовые ответы и решения:

Напечатать все символы, расположенные между первой и второй запятыми
Само задание: Напечатать все символы, расположенные между первой и второй запятыми. Если второй запятой нет, то должны быть напечатаны...

Удалить из предложения все символы, расположенные между первой и второй запятыми
1. Удалить из предложения все символы МЕЖДУ первой и второй запятыми. 2. Дано предложение, удалить из него все повторяющиеся символы 3....

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

2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
11.11.2012, 18:36
Помогаю со студенческими работами здесь

Regex: получить подстроки между запятыми
Здравствуйте! Я столкнулся вот с такой проблемой: Есть строка типа: подстрока 1, подстрока 2, текст с &quot;кавычками&quot;,...

Дана строка состоящая из слов, разделенных запятыми. Определить порядковый номер слова минимальной длины
Дана строка состоящая из слов, разделенных запятыми. Определить порядковый номер слова минимальной длины и количество символов в этом...

Дана строка символов Выделить подстроку между первой и второй точкой
Дана строка символов. Выделить Подстроку между первой и второй точкой.

Дана строка, вывести подстроку, заключенную между первой и второй запятой
Дана строка, вывести подстроку, заключенную между первой и второй запятой.

Дана строка. вывести подстроку, распол. между первой и второй точками исходной строки
Дана строка. вывести подстроку, распол. между первой и второй точками исходной строки. если в строке меньше двух точек, то вывести всю...

0
Новые блоги и статьи
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией через Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru