Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
аля123

множества

06.06.2010, 21:56. Показов 725. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
помогите пожалуйста решить
задача1:Ввести четыре слова на русском языке.Вывести на экран все звонкие согласные буквы,которые входят хотя бы в одно слово.Создание множеств оформить в виде процедур.
задача2: Дан файл f, компоненты которого являются действительными числами.Найти наибольшее из значений компонента.
пожалуйста помогите очень срочно нужно
Заранее спасибо
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
06.06.2010, 21:56
Ответы с готовыми решениями:

Сформировать множества А и В по заданному числу элементов для каждого множества
2)Сформировать множества А и В, базовый тип которых -70..30, по заданному числу элементов для каждого множества. Найти наибольший элемент,...

Множества. Из множества латинских букв выделить множество символов, не входящих в ваше имя
из множества латинских букв выделить множество состоящее из символов не входящих в множество символов составляющее ваше имя. вывести это...

Множества: Задано множество целых чисел C. Создать два множества, содержащие числа больше 5 и меньше 5.
Задано множество целых чисел C. Создать два множества, содержащие числа больше 5 и меньше 5. Добавлено через 16 минут Прошу Вас...

3
15 / 15 / 13
Регистрация: 07.03.2010
Сообщений: 55
07.06.2010, 23:32
Цитата Сообщение от аля123 Посмотреть сообщение
задача2: Дан файл f, компоненты которого являются действительными числами.Найти наибольшее из значений компонента.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
program _;
var
 f:file of integer;
 a:array[1..100] of integer; k,i,max:integer;
begin
assign(f,'f.text');
rewrite(f);
writeln('введите количество цифр');
readln(k);
for i:=1 to k do
begin
  write(f,a[i]);
  read(a[i]);
end;
close(f);
writeln('Файл создан');
reset(f);
k:=1;
while not eof(f) do
begin
read(f,a[i]);
inc(k);
end;
max:=a[1];
for i:=2 to k do
  begin
     if max<a[i] then
       max:=a[i];
  end;
writeln('Наибольший элемент=',max);
close(f);
end.
0
 Аватар для Jettard
41 / 39 / 7
Регистрация: 27.05.2010
Сообщений: 252
08.06.2010, 00:15
Цитата Сообщение от аля123 Посмотреть сообщение
Создание множеств оформить в виде процедур.
не розумію

Добавлено через 5 минут
можу алгоритм коротенько написати(це якщо хоч трошки розумієшся), а завтра прогу напишу.

1.Создать файл (массив) с етих звонких букв.
2.Проверять каждую букву 4 слов с етим массивом.
0
аля123
08.06.2010, 14:31
спасибо большое

Добавлено через 21 секунду
а что с первой програмкой
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
08.06.2010, 14:31
Помогаю со студенческими работами здесь

Сформировать два множества, первое из которых содержит все простые числа из данного множества, а второе все составные
Имеется множество, содержащее натуральные числа из некоторого диапазона. Сформировать два множества, первое из которых содержит все простые...

Даны два множества М и N, состоящие из 10 целых чисел из диапазона 1.100. Из данных множеств выделить соответственно под-множества М1 чисел
Даны два множества М и N, состоящие из 10 целых чисел из диапазона 1..100. Из данных множеств выделить соответственно под-множества М1...

Образовать множество, которое бы содержало один из элементов множества A и один из элементов множества числа B
кто знает как решить Даны множества A; B. Образовать множество, которое бы содержало один из элементов множества A и один из элементов...

Множества
помощи прошу) Дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы, входящие в текст не менее двух...

Множества
Задача: Для трёх веденных множеств, сформировать и вывести множества, являющиеся их объединением и пересечением. Помогите, пожалуйста!


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru