Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Найти номер минимального элемента массива в приведенной программе const n=6; var a:array of integer; i,imn: byte; s: integer; begin randomize; https://www.cyberforum.ru/ pascal/ thread106396.html	В одномерном массиве, состоящем из п вещественных элементов, вычислить: Pascal 1. Сжать массив, удалив из него все элементы, величина которых находится в ин¬тервале . Освободившиеся в конце массива элементы заполнить нулями.
Pascal Рекурсия: нахождение суммы ряда https://www.cyberforum.ru/ pascal/ thread106379.html Нужно найти сумму ряда 1)рекурсией и 2) суммированием в цикле. Сделал, но явно не не правильно: Var z:real; c,n:Byte;Ps1,ps2,x,F:real; Function Sum1(n:Byte):real; Function A (n:Byte;x:real):real; Begin if n=0 Then A:=1 Else A:=A(n-1,x)(xx)/(n*n); End;	Pascal Найдите ошибку в программе https://www.cyberforum.ru/ pascal/ thread106375.html Вводиться строка из букв. На экран выведена строка, заполненная "_", количество которых совпадает с количеством загаданных букв. Надо отгадать строку, вводя по букве, если она совпала, то она встает на место. Где ошибка? var str, st:string; i:integer; c:char; begin readln(str); for i:=1 to length(str) do st:=#95; writeln(st); while st<>str do begin
вычеркнуть строку и столбец на пересечении которого находится максимальный элемент Pascal "Дана матрица A(5, 5). Получить матрицу C(4, 4) вычеркивая из матрицы A строки и столбца, на пересечении которых находится максимальный элемент." - цитирую дословно с грамматическими ошибками :) голова уже не соображает, посмотрите свежим взглядом в чём ошибка? uses crt; const n = 5; var a: array of integer; c: array of integer; i,j,x,y:byte;	Pascal Поиск точки в фигуре Мне по умолчанию дан треугольник, мне нужно ввести координаты точки и программа напишет находится ли эта точка в треугольнике, на его линии или вне треугольника. https://www.cyberforum.ru/ pascal/ thread106364.html
Pascal Сжать массив, удалив из него все элементы, модуль которых находится в интервале [а, b] https://www.cyberforum.ru/ pascal/ thread106349.html Сжать массив, удалив из него все элементы, модуль которых находится в интер*вале . Освободившиеся в конце массива элементы заполнить нулями. В чём проблема? Программа толком не работает.... Не могу найти ошибку! Думаю, что где - то здесь: " For i:=1 To n Do if (a <= abs(ar)) and (abs(ar) <= b) then " const n=10; var i,j,a,b:integer;	Pascal Вычислить числовую последовательность при условии, n - натуральное, х - действительное Доброго времени суток, уважаемые программисты. Попогите пожалуйста написать программу на паскале. Дано: Натуральное число "n" и действительное число "x". Вычислить:
Pascal Найти максимальный элемент массива В одномерном массиве, состоящем из n вещественных элементов, вычислить: Максимальный элемент массива. https://www.cyberforum.ru/ pascal/ thread106316.html	Pascal 2 задания на тему строки https://www.cyberforum.ru/ pascal/ thread106309.html Здраствуйте. Помогите решить задачи: 1 Проверить, какая из 2ух букв 'а' или 'е' встречается чаще. 2 Задан текст, распечатать номера позиций на которых встречается буква 'к'
Pascal Целой переменной k присвоить первую цифру из дробной части положительного вещественного числа как присвоить целой переменной k первую цифру из дробной части положительного вещественного числа? если кто знает скажите плиз?	Pascal написание программы используя оператор if Люди помогите зделать програмку. Если сумма трех попарно разных действительных чисел меньше единици, тогда меншее с этих трех чисел заменить полусумой двух других; в другом случае заменить меншее с х и у полусуммой двух значений, которые остались. Всех за ранее благодарю! Добавлено через 2 часа 16 минут помогите плизик Добавлено через 34 минуты вот мои отчаянные попытки что либо сделать https://www.cyberforum.ru/ pascal/ thread106304.html

Inadequate

Retired

7727 / 2559 / 671

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

Сообщений: 5,100

05.03.2010, 01:25

Написать программу, которая подсчитывает количество слов начинающихся на заданную букву в заданной символьной строке. - Pascal - Ответ 582244

05.03.2010, 01:25. Показов 3981. Ответов 2

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

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

Решение

Pascal

uses
  Crt;
const
  dividers = [' ', ',', '.', ';', ':', '-', '=', '+'];{дописать нужные}
var
  s,temp: string;
  i,c: integer;
  ch: char;
begin
  ClrScr;
  WriteLn('Введите букву...');
  ReadLn(ch);
  WriteLn('Введите строку...');
  ReadLn(s);
  temp := '';
  c := 0;
  for i := 1 to Length(s) do
  begin
    if not (s[i] in dividers) then
      temp := temp + s[i];
    if ((s[i] in dividers) or (i = Length(s))) and (temp <> '') then
    begin
      if temp[1] = ch then
        Inc(c);
      temp := ''
    end;
  end;
  WriteLn('Всего таких слов: ', c)
end.

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

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

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

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

Блог

05.03.2010, 01:25

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

Определить количество слов, начинающихся на заданную букву в строке
Задача: определить, количество слов начинающихся на заданную букву в сроке мое решение: Var...

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

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

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

	05.03.2010, 01:25

BasicMan

Эксперт

29316 / 5623 / 2384

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

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

Блог

05.03.2010, 01:25

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

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

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

Определить в строке количество слов, начинающихся с заданной буквы
Строка текста содержит слова, пробелы, знаки препинания. Текст размещен в одной или нескольких...

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

Новые блоги и статьи
Преобразование полей (элементов управления содержимым) в обычный текст РоΜа 23.01.2025 Возникла необходимость преобразовать поля в текст (те, что на вкладке разработчик добавляются) . Помучившись родил следующее: Sub ПоляВТекст() Преобразует все поля в текст (даты, текст,. . .	Как проверить существование директории в скрипте Bash bt_guru 23.01.2025 При разработке скриптов Bash одной из ключевых задач является корректная работа с файловой системой, где особое место занимает проверка существования директорий. Эта операция становится критически. . .	Как работают срезы (slice) в Python bytestream 23.01.2025 Python предоставляет разработчикам мощный и гибкий инструмент для работы с последовательностями данных - срезы (slices). Эта функциональность позволяет извлекать, модифицировать и управлять. . .	Как удалить подмодуль (submodule) в Git bytestream 23.01.2025 При работе с крупными проектами в системе контроля версий Git разработчики часто сталкиваются с необходимостью управления зависимостями и внешними компонентами. Подмодули (submodules) представляют. . .	В чем разница между @staticmethod и @classmethod в Python. Декораторы методов bytestream 23.01.2025 В Python декораторы методов представляют собой мощный инструмент, позволяющий модифицировать поведение функций и методов без изменения их исходного кода. Эта возможность является одной из. . .	Как преобразовать InputStream в String в Java bytestream 23.01.2025 В мире Java-разработки работа с потоками данных является одной из ключевых операций при создании современных приложений. InputStream, как фундаментальный класс для обработки входных потоков данных,. . .
Как обновить форк (ответвление) репозитория в Git bytestream 23.01.2025 Одним из наиболее мощных инструментов Git для организации совместной работы является механизм форкинга репозиториев, который позволяет создавать независимые копии проектов для дальнейшей разработки. . . .	Как работает async/await в C#. Асинхронное программирование в .NET bytestream 23.01.2025 Введение в асинхронное программирование Асинхронное программирование представляет собой важнейшую концепцию современной разработки программного обеспечения, особенно в контексте создания. . .	КуМир: полное руководство bytestream 23.01.2025 Введение в КуМир: история создания и назначение КуМир (Комплект Учебных МИров) представляет собой образовательную среду программирования, которая была создана для обучения основам алгоритмизации и. . .	Что такое OLAP. Где и как использовать многомерный анализ данных bytestream 23.01.2025 Введение в OLAP-технологии В современном мире бизнес-аналитика и обработка больших массивов данных играют ключевую роль в принятии стратегических решений. Организации накапливают огромные объемы. . .	MongoDB: что это, для чего нужна и как использовать bytestream 23.01.2025 Введение в MongoDB: современная документоориентированная СУБД В современном мире разработки программного обеспечения выбор правильной системы управления базами данных является критически важным. . .	Как использовать закрытый ключ шифрования в Git. Шифрование в Git bytestream 23.01.2025 Установка и настройка закрытых ключей в Git предоставляет дополнительный уровень безопасности для работы с репозиториями. Для начала необходимо создать пару ключей, обычно это осуществляется с. . .

Наверх