Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Нарисовать как человечик метает диск. Помогите пожалйсто нарисовать (написать прогу) рисунок на движение как человечик метает диск (тарелку)! https://www.cyberforum.ru/ pascalabc/ thread377306.html	Pascal ABC Как задать формат вещественного числа в массиве? Здравствуйте. Подскажите как задать формат вещественного числа которое записано в массив? К примеру нужно посчитать среднее арифметическое массива и записать его в этот же массив. Пробовал делать так sr_a:0:2 пишет что неверное выражение. А если не задавать формат то вылазит число с кучей знаков после запятой. Заранее спасибо. Конкретно тут: uses crt; const n=6; var a:array of real;...
Pascal ABC Построение уровнение Вот собственно такое задание,пробывал сам делать,но выдает кучу ошибок при построении... https://www.cyberforum.ru/ pascalabc/ thread377218.html	Pascal ABC Переписать данные из массива в список https://www.cyberforum.ru/ pascalabc/ thread377171.html Код программы в массиве, помогите его преобразовать в список. Program PlGu; uses crt; type all= record fio:string; oc1:real; oc2:real; oc3:real; end;
Поменять местами столбец, содержащий максимальный элемент матрицы, со столбцом с номером q Pascal ABC Всем привет.помогите закончить задачу...чет делал,делал но не хочет( Даны натуральные числа n,q и квадратная матрица порядка n целочисленных элементов, где n,q≤10. Поменять местами столбец, содержащий максимальный элемент матрицы, со столбцом с номером q. program pr1; uses crt; var A:array of integer; b:array of integer; i,j,q,max,n,Nmax,imax,m,x,jmax,y:integer; begin randomize;	Pascal ABC Дано действительное число a... Помогите пожалуйста с этой задачей Дано действительное число a.Вычислите f(a), где f - переодическая функция с периодом 2,совпадающая на отрезке . https://www.cyberforum.ru/ pascalabc/ thread377150.html
Pascal ABC Зашифровать строку, выполняя циклическую замену каждой буквы Дана строка-предложение на русском языке. Зашифровать ее, выполняя циклическую замену каждой буквы на следующую за ней в алфавите и сохраняя при эт Через string https://www.cyberforum.ru/ pascalabc/ thread377142.html	удалить из каждой группы цифр, которой не предшествует точка, все начальные нули Pascal ABC Дан текст. Преобразовать его по следующим правилам: удалив из каждой группы цифр, которой не предшествует точка, все начальные нули (кроме последнего, если за ним идет точка).
Pascal ABC Дан текст. Преобразовать его по следующим правилам: удалив все символы, не являющимися буквами; через string https://www.cyberforum.ru/ pascalabc/ thread377132.html	Pascal ABC Зашифровать строку, выполнив циклическую замену каждой буквы на букву того же регистра https://www.cyberforum.ru/ pascalabc/ thread377131.html Дана строка-предложение на русском языке и число k (0 < k < 10). Зашифровать строку, выполнив циклическую замену каждой буквы на букву того же регистра, расположенную в алфавите на k-й позиции после шифруемой буквы (например, для k = 2 "А" перейдет в "В", "а" — в "в", "Б" — в "Г", "я" — в "б" и т.д.). Букву "ё" в алфавите не учитывать, знаки препинания и пробелы не изменять.
Pascal ABC если длина строки S больше N, то отбросить первые символы, если длина строки S меньше N, то в ее начало добавить символы "." Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы, если длина строки S меньше N, то в ее начало добавить символы "." (точка).	Pascal ABC Удалить в строке лишние пробелы https://www.cyberforum.ru/ pascalabc/ thread377123.html Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова (разделенные одним проб надо через STRING...

juvmax

29 / 29 / 23

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

Сообщений: 65

05.11.2011, 00:29

Найти все слова, содержащие наибольшее количество гласных латинских букв (a, e, i, o, u). - Pascal ABC - Ответ 2137617

05.11.2011, 00:29. Показов 4951. Ответов 17

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

Ответ

Сообщение от Small Lamer

Pascal

uses math;
var
    a:array[1..1000] of string;
    d:array[1..1000] of longint;
    s,ss:string;
    i,k,m,t,j:longint;
begin
 
    readln(s);
    s:=s+' ';
 
    for i:=1 to length(s) do begin
    
        if s[i] in [',','.','!','?',' '] then begin
        
            k:=k+1;
            a[k]:=ss;
            ss:='';
        
        end
        else
        ss:=ss+s[i];
    
    end;
 
    for i:=1 to k do begin
    
        t:=0;
        for j:=1 to length(a[i]) do 
            if a[i][j] in ['a', 'e','i', 'o', 'u'] then t:=t+1;
        d[i]:=t;
        m:=max(m,d[i]);  
    end;
 
    for i:=1 to k do 
        if d[i]=m then writeln(a[i]);
 
end.

Но ведь ваша программа выводит, слово с максимальным количеством гласных, а по условию слова!
НЕ ошибка ли в условии???

Извиняюсь, сам дуренЬ, не так понял код! Прошу простить!

Вернуться к обсуждению:
Найти все слова, содержащие наибольшее количество гласных латинских букв (a, e, i, o, u). Pascal ABC

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

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

05.11.2011, 00:29

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

Найти все слова в которых чётное количество гласных букв
Условие: Необходимо найти все слова в которых чётное количество гласных букв. Словом считать один...

Найти все слова,содержащие наибольшее кол-во гласных латинских букв
Дан текст.Группа символов,разделенные пробелом. Найти все слова,содержащие наибольшее кол-во...

Найти все слова, содержащие наибольшее количество гласных латинских букв
Помогите пожалуйста. последняя задача осталась. Не могу сообразить как правильно написать. Дан...

Найти все слова, содержащие наибольшее количество гласных латинских букв (a, e, i, o, u)
Через строки: Дан текст. Группы символов, разделенные пробелом (1 или несколько) не содержащие...

	05.11.2011, 00:29

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

05.11.2011, 00:29

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

Найти все слова, содержащие наибольшее количество гласных латинских букв
Можете помочь с задачей?? "Дан текст. Группы символов, разделенные пробелами (одним или...

Дан текст (английский). Найти все слова, содержащие наибольшее количество гласных латинских букв. (a,e,i,o,u)
Дан текст (английский). Найти все слова, содержащие наибольшее количество гласных латинских букв....

Hайти все слова, содержащие наибольшее количество гласных латинских букв
Дан текст. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие...

Вывести в алфавитном порядке все слова, содержащие наибольшее количество гласных букв; найти все слова, в которые буква
Вывести в алфавитном порядке все слова, содержащие наибольшее количество гласных букв; найти все...

Новые блоги и статьи
Что такое HCL Notes и как с ним работать InfoMaster 10.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .	Как работать с Git из Windows и Visual Studio InfoMaster 10.01.2025 Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .	Аналог оператора switch case в Python InfoMaster 10.01.2025 Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .	Отличия абстрактного класса от интерфейса InfoMaster 10.01.2025 В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .	Как работать в Git InfoMaster 10.01.2025 Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .	Реализация передвижения персонажа в Unity3d на C# InfoMaster 10.01.2025 Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .
Docker: руководство для начинающих InfoMaster 10.01.2025 В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .	Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .

Наверх