Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Шифр Цезаря предложите более быстрый алгоритм https://www.cyberforum.ru/ turbo-pascal/ thread694749.html
Так-с, задачу-то я решил, но мне интересно, есть ли более шустрые варианты. Кто не знает, что такое шифр Цезаря: есть символ - буква, есть ключ - число. Надо выдать символ, который находится в алфавите под номером, который получится после суммы позиции данного символа и ключа (или, если номер будет больше, чем букв в алфавите, то надо считать как остаток деления на число букв в алфавите... Ну вы...
Треугольник задан координатами своих вершин. Составить программу для вычисления его площади Turbo Pascal
Треугольник задан координатами своих вершин.Составить программу для вычисления его площади Нужно с использованием основных операторов для организации работы с подпрограммами-процедурами. Помогите пожалуйста. Добавлено через 8 минут 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
Turbo Pascal Дана последовательность из n целых чисел. Найти номер максимального элемента последовательности Условие: Дана последовательность из n целых чисел. Найти номер максимального элемента последовательности. Вот что у меня получилось.. Program Kovtun_laba3_1; uses crt; var x,y,z,i,n,max,min,imax:integer; begin clrscr; writeln('Vvedite kolichestvo'); readln(n); https://www.cyberforum.ru/ turbo-pascal/ thread694668.html Turbo Pascal Составьте программу, складывающую две обыкновенные дроби https://www.cyberforum.ru/ turbo-pascal/ thread694661.html
Помогите, пожалуйста, Составить программу, складывающую две обыкновенные дроби.
Turbo Pascal Найти сумму и произведение всех элементов одномерного массива, больших заданного числа
Найти сумму и произведение всех элементов одномерного массива, больших заданного числа.
Turbo Pascal Процедуры или функции: Найти все простые числа,лежащие в заданном диапазоне и их сумму https://www.cyberforum.ru/ turbo-pascal/ thread694593.html
Пользователь вводит два натуральных числа. Найти все простые числа,лежащие между ними и их сумму. Использовать процедуры или функции.
Turbo Pascal Разработать библиотечный модуль из ранее созданных программ. Составить программу, вызывающую процедуры и функции созданного модуля Пытался сделать сам, но нечего из этого не получилось.... Разработать библиотечный модуль из ранее созданных программ. Составить программу, вызывающую процедуры и функции созданного модуля. Вот задачи: var a,b,d:real; begin writeln('Vvedite vneshiy radiys'); readln(a); writeln('Vvedite vnuntreniy radiys'); readln(b); if a>b then begin https://www.cyberforum.ru/ turbo-pascal/ thread694590.html Turbo Pascal Реализовать в виде модуля набор подпрограмм для выполнения операций над числами в двоичной системе счисления
Необходимо реализовать в виде модуля набор подпрограмм для выполнения следующих операций над натуральными числами в двоичной системе счисления: 1) сложения; 2) деления; 3) умножения; 4) функций, реализующих операции отношения (равно, не равно, больше или равно, меньше или равно, больше, меньше). Использовать созданный модуль для решения следующих задач: 1. Возвести число в степень....
Turbo Pascal Перевести задачу из функции на процедуру https://www.cyberforum.ru/ turbo-pascal/ thread694539.html
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;
Turbo Pascal Найти количество цифр данного числа, больших А 1.Дано натуральное число: -найти количество цифр данного числа, больших А(А вводится с клавиатуры); -верно ли, что данное число принадлежит промежутку от А до В и кратно 3, 4 и 5 (А и В вводятся с клавиатуры)? я не знаю как писать эти программы,если можно,полностью мне показать,как их писать...я чайник( https://www.cyberforum.ru/ turbo-pascal/ thread694510.html
Заменить нулями элементы массива между минимальным и максимальным, кроме их самих Turbo Pascal
Заменить нулями элементы массива между минимальным и максимальным, кроме их самих.
Turbo Pascal Определить, какой элемент – максимальный или первый нулевой– стоит ближе к началу массива Вообщем нужно написать программу, которая должна определять, какой элемент – максимальный или первый нулевой (по порядку расположения в массиве) – стоит ближе к началу массива. Очень нужна помощь. Заранее спасибо. https://www.cyberforum.ru/ turbo-pascal/ thread694458.html
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
11.11.2012, 18:36 0

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

11.11.2012, 18:36. Показов 3082. Ответов 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
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.11.2012, 18:36
Готовые ответы и решения:

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

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

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

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

2
11.11.2012, 18:36
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.11.2012, 18:36
Помогаю со студенческими работами здесь

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru