![]() |
|
Другие темы раздела | |
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 |
![]() 110 / 110 / 100
Регистрация: 04.03.2012
Сообщений: 146
|
||||||
25.03.2012, 19:12 | 0 | |||||
Разработать программу, которая в заданной строке подсчитывает количество букв в каждом слове - Pascal - Ответ 283487025.03.2012, 19:12. Показов 2499. Ответов 1
Метки (Все метки)
![]() Решение
Вернуться к обсуждению: Разработать программу, которая в заданной строке подсчитывает количество букв в каждом слове Pascal
1
|
25.03.2012, 19:12 | |
Готовые ответы и решения:
1
Разработать программу, которая в подсчитывает количество букв в каждом слове
Разработать программу, которая в заданной строке подсчитывает, сколько раз повторяется каждый символ |
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 это количество топлива. . .
|