Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal В заданом слове надо вычислить сколько раз встретилась каждая буква В заданом слове (слово мы вводим сами...любое) надо вычислить сколько раз встретилась каждая буква, и распечатать на экран сколько раз повторилась каждая буква. https://www.cyberforum.ru/ turbo-pascal/ thread21834.html	Выяснить, какие символы встречаются в строке два раза Turbo Pascal Предоставлена строка символов. Выяснить, какие символы встречаются в строке два раза. Нужно решение с использыванием множеств...:(
Turbo Pascal В матрице элементы строк разместить в следующем порядке: сначала все отрицательные, затем все положительные https://www.cyberforum.ru/ turbo-pascal/ thread21641.html В матрице элементы строк разместить в следующем порядке: сначала все отрицательные,затем все положительные,в той последовательности в которой они распологаются в исходной матрице.	Turbo Pascal Составить программу вычисления корня с погрешностью ε=0,0001 методом половинного деления Составить программу вычисления корня с погрешностью ε=0,0001 методом половинного деления для ф-ии y=x^2+ln(x)-5 на интервале заранее спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread21462.html
Записи: сколько стоит самый дорогой и самый дешёвый препарат на складе? Turbo Pascal На аптечном складе хранятся лекарства. Сведения о лекарствах содержатся в специальной ведомости: Наим. лекарства Кол-во Цена Срок хранения(в месяцах) Выяснить, сколько стоит самый дорогой и самый дешёвый препарат, сколько препаратов хранится на складе, какие препараты имеют срок хранения более 3 месяцев, сколько стоят все препараты. Помогите пож-та. Буду очень благодарен.	Turbo Pascal Найдите расстояния от места добычи сырья до каждого завода, а также среднее арифметическое этих расстояний https://www.cyberforum.ru/ turbo-pascal/ thread21399.html Даны координаты {(xi; yi)}, (i = 1, ..., n) n заводов потребителей сырья и координаты места добычи сырья (хC; yC). Найдите расстояния от места добычи сырья до каждого завода, а также среднее арифметическое этих расстояний. :umnik:
Turbo Pascal Нарисовать график функци https://www.cyberforum.ru/ turbo-pascal/ thread21313.html Помогите,пожалуйста, с парой задачек :) 1.Нарисовать график функции х^1/2 (корень из х); (координаты тоже нарисовать, оси сходятся в центре экрана. 2.сделать программу, чтобы по экрану бегала звёздочка, и можно было регулировать скорость её движения клавишами > и <.звездочка бегает по строкам, после выхода за границы экрана переходит на следующую строчку... 3.написать программу, чтобы...	Предоставлена строка символов. Выяснить, какие символы встречаются в строке два раза. Turbo Pascal Помогите нубу с этой задачькой)):wall: завтра перездавать пойду)
Turbo Pascal В тексте найти и заменить все слова Children на Puple https://www.cyberforum.ru/ turbo-pascal/ thread21169.html Ввести произвольный текс. В данном тексте найти и заменит все слова Children на Puple. очень нужно решить....а голова что-то не сображает(:wall:	Turbo Pascal Описать функцию для распечатки на экране значений элементов ,являющихся полными квадратами. Просто время мало я конечно разберусь но не успею к срокам пожалуста помогите: 1.дано натуральное число N.Вычилите :Sqrt(2+Sqrt(2+...+Sqrt(2+Sqrt(2))...)) (всего N корней). 2.две геометрические фигуры вырезаны из бумаги:круг радиуса R и равностороний треугольник со стороной D(данные вещественные).Описать функцию,аргументамикоторой являются размеры фигур,а результатом будет TRUE,если одной... https://www.cyberforum.ru/ turbo-pascal/ thread21124.html
Turbo Pascal Программа вычисление интеграла Срочно надо прогу, чтобы вычисляла и выводила на экран точное и приближённое значение интеграла с заданной точностью и абсолютную погрешность вычислений. Значения верхнего, нижнего пределов и точность вычислений вводятся с клавиатуры. Вот функция, от которой надо интеграл: x*arctgx Помогите плиз, до завтра надо, а я в паскале не очень, хотя недавно начал изучать))	Turbo Pascal На предпоследней строке выдаёт 89 ошибку, что нехватает скобки ")" {$N+,E+} program P6; uses crt; function f(x: double): double; begin f:=x*Arctan(x) end; function IntegralRect: double; var a,b: integer; var Epsilon: real; var i,n: integer; h,s1,s2: double; https://www.cyberforum.ru/ turbo-pascal/ thread20472.html

flegmatik

254 / 21 / 5

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

Сообщений: 68

28.01.2009, 14:20

Подсчитать количество букв в слове. - Turbo Pascal - Ответ 97587

28.01.2009, 14:20. Показов 8924. Ответов 13

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

Ответ

Pascal

var i:byte;
    a:array[65..90] of byte;
    s:string;
begin
readln(s);
for i:=1 to length(s) do
  begin
    s[i]:=upcase(s[i]);
    a[ord(s[i])]:=a[ord(s[i])]+1;
  end;
for i:=65 to 90 do
  if a[i]<>0 then
    writeln(chr(i),'-',a[i]);
end.

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

способов много, но этот мне кажется наиболее оптимальным и главное работает все прекрасно

Вернуться к обсуждению:
Подсчитать количество букв в слове. Turbo Pascal

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

28.01.2009, 14:20

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

Подсчитать количество слов в данной строке, подсчитать количество букв а в последнем слове
Дан текст. а) Подсчитать количество слов в данной строке. б) Подсчитать количество букв а в...

Подсчитать количество букв а в слове
1.Подсчитать количество букв а в слове 2.найти произведение всех чисел сторки 3.найти сумму...

Подсчитать количество букв «m» в последнем слове
Ребята срочно нужна помощь я не успеваю, помогите. Задание 1.29. б) сформировать вектор V,...

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

	28.01.2009, 14:20

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

28.01.2009, 14:20

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

Подсчитать количество букв k в последнем слове
1.Дана строка.Подсчитать количество букв k в последнем слове 2.Дан текст на русском...

Подсчитать количество букв k в последнем слове строки
1) дана строка. Подсчитать количество букв k в последнем ее слове. 2) Дана строка символов, среди...

Подсчитать количество гласных букв в каждом слове
Program Z1_7; Const m=70; Type Mslovo=Array of string; Var ...

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

Новые блоги и статьи
Книги и учебные ресурсы по 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# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

Наверх