Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Работа с файлами https://www.cyberforum.ru/ pascal/ thread2770548.html
Создать типизированный файл, элементами которого являются целые числа от 0 до 100 в заданном количестве. Создать новый файл в соответствии с заданием, а затем открыть его и вывести все элементы. ...
Pascal Определить сколько полных оборотов сделает точка вокруг (0,0) пройдя по траектории
Вводится последовательность точек на координатной плоскости, ((0,0) признак конца последовательности). Траектория  блуждания точки из (1,0).  Определить сколько полных оборотов сделает точка вокруг...
Переставить чётные цифры в числе местами Pascal
На вход программе подается натуральное число. Нужно переставить чётные цифры в обратном порядке. Например на входе 12345678 на выходе 18365472.
Pascal Написать программу формирования вектора. Заданы два вектора X = { xi} и Y = { yi}, i = 1 / n. Написать программу формирования третьего вектора Z = { zi }, каждый элемент которого zi = max ( xi, yi). Помогите пожалуйста. https://www.cyberforum.ru/ pascal/ thread2770164.html
Pascal Как получить строку из массива? https://www.cyberforum.ru/ pascal/ thread2770051.html
const Rims: array of string = ('M', 'CM', 'D', 'CD', 'C', 'XC', 'L', 'XL', 'X', 'IX', 'V', 'IV', 'I'); Arab: array of integer = (1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1); var ...
Функция скопировать элементы одного массива в другой Pascal
Здравствуйте! Помогите решить задачу. Есть типы TIndex = 0..29; TNumbers = array of integer; Нужно написать следующую функцию function arraycopy (First : TNumbers; FirstStart : TIndex; var...
Pascal Сторона основания правильной шестиугольной пирамиды равна а, а высота –h. Найти площадь поверхности и объем пирамиды
Сторона основания правильной шестиугольной пирамиды равна а, а высота –h. Найти площадь поверхности и объем пирамиды. Помогите пожалуйста решить задачу в паскале
Pascal Найти площадь поверхности и объем пирамиды Сторона основания правильной треугольной пирамиды равна а, а высота –h. Найти площадь поверхности и объем пирамиды. Помогите решить задачу в паскале https://www.cyberforum.ru/ pascal/ thread2769851.html
Pascal вычислить значение функции при произвольных значениях параметров a, b и х https://www.cyberforum.ru/ pascal/ thread2769594.html
Помогите пожалуйста с задачей и составьте блок схему. Зараннее благодарен.Вот задача: вычислить значение функции при произвольных значениях параметров a, b и х y=y-ax^2+bx
Pascal Превратить сообщение азбуки Морза 64 символа в графическое изображение размером 8*8 здравствуйте, помогите , пожалуйста, с решением задачи : Разработать программу на языке программирования Паскаль. Превратить сообщение азбуки Морза 64 символа в графическое ... https://www.cyberforum.ru/ pascal/ thread2769186.html
Pascal Представить действительное число в нормализованной форме https://www.cyberforum.ru/ pascal/ thread2769176.html
здравствуйте, помогите , пожалуйста, с решением задачи : Составьте программу на языке Pascal для представления введенного отличного от нуля действительного числа в нормализованной форме....
Pascal Стрелка вверх в записях операторов Паскаля Привет, братва! Подскажите, что это за "стрелочка вверх" в следующем выражении?? Описать имена X и Y так, чтобы в стандарте Паскаля был правильным оператор присваивания X(2 < 3) "стрелка... https://www.cyberforum.ru/ pascal/ thread2769107.html
Модератор
62946 / 46958 / 32362
Регистрация: 18.05.2008
Сообщений: 113,784
17.01.2021, 15:45 0

Программа на строки

17.01.2021, 15:45. Просмотров 1395. Ответов 3
Метки (Все метки)

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

Решение


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
writeln('Самое длинное слово из перечисленных (последнее по порядку)- ',max_slovo);
   if pos(max_slovo,stroka)=1 then
    begin
     writeln('Максимальное слово первое');
     exit;
    end;
   nach_sl:=1;
   kol_gl:=0;
   kol_sgl:=0;
   proc_gl:=0;
   proc_sgl:=0;
   for i:=1 to pos(max_slovo,stroka) do
   if stroka[i] in glasn then inc(kol_gl)
   else if stroka[i] in soglasn then inc(kol_sgl);
   kol_bukv:=kol_gl+kol_sgl;
   proc_sgl:=kol_sgl*100/kol_bukv;
   slovo:=copy(stroka,nach_sl,kol_bukv);
   nach_sl:=i+1;
   writeln(' До  слова ',max_slovo,' количество согласных(в процентах) ',proc_sgl,' количество гласных(в процентах)',proc_gl);
   end.


Вернуться к обсуждению:
Программа на строки
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.01.2021, 15:45

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

Написать программу, высчитывающую длину строки. Если длина строки меньше 10, то программа удаляет все заглавные буквы
#include &lt;stdio.h&gt; #include &lt;stdlib.h&gt; int main() { int i=0, k, size=0; char *s =...

Написать программу, высчитывающую длину строки. Если длина строки меньше 10, то программа удаляет все заглавные буквы
#include &lt;stdio.h&gt; #include &lt;stdlib.h&gt; int main() { int i=0, k, size=0; char *s =...

В описании программа, которая складывает 2 строки, дополните ее, чтобы она прибавляла не все, а n символов из одной строки в другую
#include &lt;stdio.h&gt; char * mystrcat(char*,char*,int); int main() { char...

Программа для разбиения строки на строки
Уважаемые форумчане, не могли бы вы помочь новичку написать программу организующую разбиение...

Ввести с клавиатуры строку символов.Признак окончания ввода строки - нажатие клавиши 'ввод'.Программа должна определить длину введенной строки L
Помогите пожалуйста:gbye: Ввести с клавиатуры строку символов.Признак окончания ввода строки -...

Программа, котороя копирует строку в другую строку заданной длины и размещает текст первой строки по центру второй строки
Создать функцию котороя копирует строку в другую строку заданной длины и размещает текст первой...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.