Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Выборы. Олимпиадная задача
На выборах в Государственную думу в избирательные бюллетени внесено N партий. Электронный сканер для считывания информации с бюллетеней передает информацию о каждом бюллетене в следующем формате:... program zz; var n,m:integer; i,j,g,z,bilkol:integer; d1,d2:text; st:string; a:array of integer; begin assign(d1, 'input.txt'); assign(d2, 'output.txt'); reset(d1);
Pascal Чему равна сумма элементов массива после выполнения этого фрагмента программы? https://www.cyberforum.ru/ pascal/ thread523630.html
Значения элементов двухмерного массива A задаются с помощью следующего фрагмента программы: for i:=1 to 100 do for k:=1 to 100 do if i > k then A := i else A := -k; Чему равна сумма... uses crt; i,k:integer; a:array of integer; begin for i:=1 to 100 do begin for k:=1 to 100 do if i>k then A:=i else a:=-k; writeln (-k);
Pascal Рисование ломаной линии. Рисуется ломаная линия. Фиксирование первых и очередных узлов осуществляется нажатием клавиши ''Enter'',фиксирование последнего узла двойным нажатием клавиши ''Enter''. Для удаления всей ломаной... актуально! https://www.cyberforum.ru/ pascal/ thread525857.html Pascal Задан массив AX (N). Добавить массив С(К). Выполнить сортировку разделением. Найти элементы >5 https://www.cyberforum.ru/ pascal/ thread523749.html
Задан массив AX (N). Добавить массив С(К). Выполнить сортировку разделением. В полученном массиве найти элементы >5 и создайте из них новый массив. Выведите на печать образованный массив и число его...
Pascal Написать процедуру удаления из строки всех кратных символов https://www.cyberforum.ru/ pascal/ thread523916.html
Всем доброго времени суток. Давно просматриваю ваш форум по Паскалю, но вот только сейчас решил зарегистрироваться и прошу помощи в решении такой задачи: Дана строка символов. Написать процедуру... Var S:String; //Вводимая строка i:Integer; //Счетчик для цикла procedure Sim; // var ch: set of char; //Множество символов для определения четности Begin ...
Pascal В каждом столбце матрици переставаить эл-ты так чтобы вначале вместе шла группа эл-тов больше первого эл-та столбца... помогите пожалуйста написать программу в паскале дана действительная матрица А размером n*m n,m<10 В каждом столбце матрици переставаить эл-ты так чтобы вначале вместе шла группа эл-тов больше... const nmax=9; type realMatrix=array of real; var a:realMatrix; i,j,g,k,n,m:integer; tmp:real; begin randomize; https://www.cyberforum.ru/ pascal/ thread526773.html
Текст. файл содержит руские буквы. Опредилить сколько раз в тексте встречаеться цифра 7. Pascal
Дан текст фаил содержит русские буквы определить сколько раз в тексте встречается цифра 7. Надо создать текстовый документ в нем написать какой то текст и любые цифры. И надо чтобы паскаль в этом... uses CRT; const MyFile='d:\MyText.txt'; //Путь к файлу Var F:Text; S:String; i:Integer; chislo:Integer; //Поиск числа begin clrScr; ...
Найдите точки пересечения графиков функций Pascal
Доброго времени. Есть задача, вроде не сложная, но не получается сделать. Прога ничего не выводит, а где ошибка не могу разобраться. Буду очень признателен оказанной помощи. P.S. может я вообще ее... Это всё из-за странного округления в паскале, вот программа с поправкой: Program CrossPoint; uses CRT; var g,y,x,e:real; begin ClrScr; x:=-50; e:=0.1; while x<=50 do begin
Pascal Сортировка двумерных массивов. https://www.cyberforum.ru/ pascal/ thread525535.html
1. В двумерном числовом массиве Y отсортировать элементы предложенной N-строки. 2. В двумерном числовом массиве Z найти 3 наибольших элемента и выделить их цветом. Прошу наиболее простыми... 1. Program n1; Uses crt; Const m=8;k=5; Var a:arrayof integer; v,i,j,n:integer; f:boolean; Begin clrscr; randomize;
Pascal Вычислить функцию Z=(X(I)^2)/(Sin(X(I)/2)) где X(I) элемент массива X(18)
Пока только начинаю учить паскаль . В чем ошибка у меня? var X:array of integer; I:=integer; Begin for I:= 1 To 18 DO Begin X:= Trunc(Random*100)-50; END; Begin Подправил: и что нормально? const n = 18; var Arr: array of Integer; i: Byte; begin Randomize; writeln('Массив: ');
Pascal Задача с роликами https://www.cyberforum.ru/ pascal/ thread525517.html
Фирма NNN решила транслировать свой рекламный ролик в супермаркете XXX. Однако денег, запланированных на рекламную кампанию, хватило лишь на две трансляции ролика в течение одного рабочего дня. ...
Pascal Сортировка двумерных массивов https://www.cyberforum.ru/ pascal/ thread525717.html
1. в одномерном числовом массиве x отсортировать элементы, находящиеся между максимальным по значению элементом и минимальным 2.в двумерном числовом массиве Y отсортировать элементы предложенного... 1) uses crt; var i,j,k,min,max,tmp: integer; x: array of integer; begin clrscr; min:=1; max:=1; for i:=1 to 20 do begin
 Аватар для tm2012
110 / 110 / 100
Регистрация: 04.03.2012
Сообщений: 146
25.03.2012, 19:12 0

Разработать программу, которая в заданной строке подсчитывает количество букв в каждом слове - Pascal - Ответ 2834870

25.03.2012, 19:12. Показов 2499. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var 
   s:string;
   x:byte;
begin
   clrscr;
   writeln('Введи строку слов:');
   readln(s);
   if s[length(s)]<>' ' then s:=s+' ';
   repeat
      x:=0;
      x:=x+pos(' ',s)-1;
      if x>0 then writeln(x);
      delete(s,1,pos(' ',s));
   until length(s)=0;
   readkey;
end.


Вернуться к обсуждению:
Разработать программу, которая в заданной строке подсчитывает количество букв в каждом слове Pascal
1
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
25.03.2012, 19:12
Готовые ответы и решения:

Разработать программу, которая в подсчитывает количество букв в каждом слове
Слова разделены пробелами. Я вот нашел эту же задачу только в Паскале, только сделать ее в С# не получается uses crt; var ...

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

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

1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
25.03.2012, 19:12
Помогаю со студенческими работами здесь

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

Составьте программу которая подсчитывает количество букв в строке
Составьте программу которая подсчитывает количество букв в строке (исключая пробелы и цифры)

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

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

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

0
Новые блоги и статьи
Создаем SPA Router на чистом JavaScript
bytestream 17.02.2025
В современной веб-разработке одностраничные приложения (SPA) стали стандартом для создания динамичных и отзывчивых пользовательских интерфейсов. Ключевым компонентом любого SPA является роутер -. . .
Машинное обучение на TypeScript и TensorFlow
bytestream 17.02.2025
Машинное обучение становится все более востребованным направлением в современной разработке программного обеспечения. Интеграция искусственного интеллекта в веб-приложения открывает новые возможности. . .
Манипуляция данными EXIF и JPEG в JavaScript
bytestream 17.02.2025
В современном мире цифровой фотографии метаданные изображений играют важнейшую роль в организации и управлении медиаконтентом. Формат EXIF (Exchangeable Image File Format) - это стандарт,. . .
Как создать GUID/UUID в JavaScript
bytestream 17.02.2025
GUID (Globally Unique Identifier) и UUID (Universally Unique Identifier) - это специальные форматы 128-битных идентификаторов, которые практически гарантируют уникальность значения во времени и. . .
Что такое мышление в упрощенном смысле (моё субъективное видение, для создания модели).
Hrethgir 17.02.2025
Разумеется упрощать смысл есть. Дело в том, что я пришёл к тому выводу, что даже если я создам свой процессор (конвейер), то первое для чего смогу его использовать в качестве демонстративного. . .
Как Node.js устроен изнутри
Wired 17.02.2025
Node. js коренным образом изменил подход к веб-разработке, позволив использовать JavaScript не только в браузере, но и на стороне сервера. Созданный в 2009 году Райаном Далем, Node. js представляет. . .
Как обновить Node.js в Windows
Wired 17.02.2025
Думаю, многие разработчики сталкивались с ситуацией, когда устаревшая версия Node. js становилась источником проблем - от несовместимости с новыми пакетами до уязвимостей в безопасности. Особенно это. . .
Как обновить Node.js в MacOS
Wired 17.02.2025
В Node. js существует несколько подходов к обновлению, каждый из которых имеет свои преимущества и особенности применения. Выбор конкретного метода зависит от ваших потребностей - будь то. . .
Как обновить Node.js в Linux
Wired 17.02.2025
Обновление Node. js может показаться сложной задачей, особенно если у вас несколько проектов с разными зависимостями. Однако существует несколько надежных способов обновления, подходящих для разных. . .
[golang] 134. Gas Station
alhaos 17.02.2025
Тут нам даны два целочисленных слайса gas и cost, индексы массива представляют собой заправочные станции. а элементы gas это количество топлива на такой станции, cost это количество топлива. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru