Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Найти среднее арифметическое всех положительных элементов матрицы Если нетрудно, то, пожалуйста, напишите программу в соответствие с приложенной блок-схемой, т.к. она одобрена преподавателем, мне нельзя ее изменять. Должна быть возможность задавать размерность... var i, j, n, m, t: byte; S: integer; B: real; A: array of integer; begin writeln('Введите N и M: '); readln(N, M); randomize; https://www.cyberforum.ru/ pascalabc/ thread1191108.html	Pascal ABC Составить программу для нахождения значения выражения помогите пожалуйста составить программу \large \frac{B+\sqrt{{B}^{2}+4AC}}{2A}-{A}^{3}C+B-2 var a,b,c,y:real; begin readln(a,b,c); if a=0 then begin write('Значение не определено, деление на 0'); exit end; y:=(b+sqrt(bb+4ac))/2/a-aaac+b-2; write('y=',y:0:2); https://www.cyberforum.ru/ pascalabc/ thread1190881.html
Pascal ABC Программа для ввода двух квадратных матриц, их перемножения и вывода результирующей Очень срочно!Помогите пожалуйста написать программу на языке Паскаль: Напишите программу для ввода элементов двух квадратных матриц, умножения матриц и вывода результирующей матрицы. А можно после твоих экзаменов я напишу?	Pascal ABC Создайте подпрограмму, определяющую максимальную цифру в целом числе 4. Создайте подпрограмму, определяющую максимальную цифру в целом числе. Под- программу реализуйте в двух вариантах – в виде процедуры и в виде функции. С функцией: var num : integer; function maxDigit(n : integer) : integer; var a, m : integer; begin m := -1; a := n; while a > 0 do begin https://www.cyberforum.ru/ pascalabc/ thread1190832.html
Pascal ABC Метод Гаусса https://www.cyberforum.ru/ pascalabc/ thread1191207.html Нужно реализовать метод гаусса в паскале,вот код программы: Код Pascal program Gayss; const n = 3; type matrix = array of real; vector = array of real;	Pascal ABC Рассчитать суммарную кинетическую энергию пяти частиц, движущихся со скоростями V1,V2,V3,V4,V5 Написать программу решения следующей задачи, используя модуль: Рассчитать суммарную кинетическую энергию пяти частиц, движущихся со скоростями V1,V2,V3,V4,V5 близким к скорости света C, и имеющих... https://www.cyberforum.ru/ pascalabc/ thread1191204.html
Pascal ABC Создайте подпрограмму решающую задачу проверки целого числа A на кратность числу B 2. Создайте подпрограмму решающую задачу проверки целого числа A на кратность числу B. Пользователю предоставляется возможность последовательно ввести оба числа, а программа определяет – делится... {функция} function krat(a, b : integer) : boolean; begin if a mod b = 0 then krat := true else krat := false end; {процедура} procedure krat(a, b : integer; var res : boolean); begin if... https://www.cyberforum.ru/ pascalabc/ thread1190834.html	Обработка двухмерных массивов Pascal ABC Помогите написать программу с процедурами! Составьте программу, выясняющую, равен ли наименьший элемент двухмерного массива А(N,M) половине максимального.
Pascal ABC Обработка одномерных числовых массивов Помогите написать программу с процедурами! Составьте программу подсчета числа положительных элементов одномерного массива А(N), встречающихся в этом массиве более двух раз.	Pascal ABC Определите, совпадают ли первая и последняя буквы слова https://www.cyberforum.ru/ pascalabc/ thread1190955.html 1. Определите, совпадают ли первая и последняя буквы слова. 2. Определите, является ли слово перевертышем. 3. Вычеркните из слова все буквы «а» и «б», стоящие на нечетных местах. Помогииите прошу вас:gsad:
Pascal ABC Определить мощность множества Помогите склепать программу в единое целое первую часть я понял, а вот в-ю (выделяет из него подмножество Y1, представляющее собой цифры, входящие в Y. Определить мощность множества Y.) и как...	Pascal ABC Поиск и замена элемента в очереди https://www.cyberforum.ru/ pascalabc/ thread1190926.html Нужно в программе дописать строчку для поиска и изменение элемента. То есть я написал 10 чисел и мне нужно еще сделать так что бы после того как пользователь введет эти 10 чисел, выбрал элемент...

erl27

908 / 756 / 833

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

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

28.05.2014, 16:47

Написать программу, которая подсчитывает количество гласных в слове - Pascal ABC - Ответ 6239826

28.05.2014, 16:47. Показов 3969. Ответов 1

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

Сообщение было отмечено Alex9z как решение

Решение

Попробуйте такой код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
 i, q1, q2, n: integer;
 s, s1: string;
  
begin
  cls;
  writeln('Введите строку: ');
  readln(s);
  n := Length(s);
  i := 0;
  repeat
    inc(i);
    s1 := ''; q1 := 0; q2 := 0;
    while (i <= n)and(not(s[i] in [' ', ',', '.', '!', '-', '?'])) do begin
      s1 := s1 + s[i];
      if LowCase(s[i]) in ['а'..'я'] then
        if LowCase(s[i]) in ['а', 'е', 'ё', 'и', 'й', 'о', 'у', 'ъ', 'ы', 'ь', 'э', 'ю', 'я'] then inc(q1)
        else inc(q2);
      inc(i)
    end;
    if (q1>0) or (q2>0) then writeln(s1, ':  гласных - ', q1, ' согласных - ', q2)
  until i >= n;
end.

Вернуться к обсуждению:
Написать программу, которая подсчитывает количество гласных в слове Pascal ABC

IT_Exp

Эксперт

34794 / 4073 / 2104

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

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

Блог

28.05.2014, 16:47

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

Написать программу, которая подсчитывает количество слов, начиающихся с согласной
Помогите плз с этой задачей: Написать программу, которая подсчитывает количество слов, начиающихся с согласной(прописной или строчной)...

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

Написать программу, которая создает прямоугольный массив и подсчитывает количество элементов, больших 0
Написать программу которая созадет прямоугольный массив и с помощью функции подсчитывает количество элементов больших 0. Срочно!!

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

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

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

Блог

28.05.2014, 16:47

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

Составить программу, которая подсчитывает количество символов во втором слове
там что-то через length, но вот как именно второго слова я хз, помогите

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

Написать программу, которая подсчитывает количество слов в предложении.
вот задача . Предложение состоит из слов-строк. Написать программу, которая подсчитывает количество слов в предложении.

Написать программу которая подсчитывает количество пустых строк в файле
Помогите пожалуста решить 2 задачи. 1) Написать программу которая подсчитывает количество пустых строк в файле 2)Ввести целое...

Написать программу, которая подсчитывает количество гласных букв в строке
Написать программу, которая подсчитывает количество гласных букв в строке. Кому не сложно скиньте код, нужен очень(

Новые блоги и статьи Все статьи Все блоги /
Сопоставление с образцом (Pattern Matching) в Python: Списки и словари py-thonny 19.03.2025 Программисты любят, когда код говорит сам за себя. Представьте, что вы можете просмотреть структуру данных и мгновенно понять, что с ней делать — без сложных условий и вложенных проверок. Именно эту. . .	Работа с метаданными EXIF и JPEG в JavaScript run.dev 19.03.2025 Работа с изображениями в веб-разработке нередко выходит за рамки простого отображения картинки. Современные задачи требуют глубокого понимания структуры файлов и умения манипулировать их внутренними. . .	Чеклист для Kubernetes в продакшене: Лучшие практики для SRE Mr. Docker 19.03.2025 Когда сталкиваешься с запуском Kubernetes в продакшене, невольно задаешься вопросом: почему то, что так гладко работало в тестовой среде, вдруг начинает вызывать головную боль на боевых системах?. . .	Разработка продвинутого ИИ в Unity с использованием Behavior Graph GameUnited 19.03.2025 В разработке игр искусственный интеллект персонажей часто становится тем элементом, который превращает хорошую игру в выдающуюся. До недавнего времени разработчикам под Unity приходилось либо писать. . .	Словари в Python: методы работы, оптимизация, сериализация py-thonny 19.03.2025 Каждый хотя бы раз сталкивался с необходимостью хранить связанные данные, где важна не только сама информация, но и их взаимосвязь. В дебрях Python словари — это тот универсальный инструмент, который. . .
Реализация паттерна CQRS с Event Sourcing в PHP Jason-Webb 19.03.2025 CQRS (Command Query Responsibility Segregation) — это архитектурный паттерн, который разделяет операции чтения и записи данных в приложении. Если вы столкнулись с ситуацией, когда ваше PHP-приложение. . .	std::span в C++: Подпредставления и срезы NullReferenced 18.03.2025 Если вы когда-нибудь работали с большими объемами данных в C++, то наверняка сталкивались с необходимостью манипулировать отдельными частями массивов или контейнеров. Традиционные подходы часто. . .	std::span в C++: Доступ к элементам и итерирование NullReferenced 18.03.2025 В C++ каждый разработчик сталкивается с проблемой эффективного управления последовательностями данных. Представьте: вы работаете с массивом, передаете его в функцию, а затем в другую, и каждый раз. . .	Утечки памяти в C# UnmanagedCoder 18.03.2025 Когда мы говорим о разработке приложений на C#, то часто успокаиваем себя мыслью, что сборщик мусора решит все наши проблемы с памятью. "Память управляется автоматически" — эта мантра прочно засела в. . .	std::span в C++: Введение в невладеющее представление NullReferenced 18.03.2025 С появлением стандарта C++20 у нас появился новый инструмент — std::span, который представляет собой невладеющее представление для работы с последовательностями данных. std::span — это легковесный. . .

Наверх