Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 09.05.2012
Сообщений: 30
1

В алфавитном порядке напечатать все строчные русские гласные буквы текста

31.05.2012, 22:16. Просмотров 1301. Ответов 2
Метки нет (Все метки)

Ребят, помогите пожалуйста. Нужен ПОЛНЫЙ КОД. Все мозги проел, не знаю как делать...

Вот задачи:
1. Напечатать текст, за которым следует точка. В алфавитном порядке напечатать все строчные русские гласные буквы (а, е, и, о, у, ы, э, ю, я), входящие в этот текст.

2. Записать в файл f N целых чисел, полученных с помощью генератора случайных чисел. Заполнить файл g числами, которые являются произведениями соседних компонентов файла f.

3. Даны два текстовых файла f1 и f2. Файл f1 содержит произвольный текст. Слова в тексте разделены пробелами и знаками препинания. Файл f2 содержит не более 30 слов, которые разделены запятыми. Эти слова образуют пары: каждое второе является синонимом первого. Заменить в файле f1 те слова, которые можно заменить их синонимами. Результат поместить в новый файл.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.05.2012, 22:16
Ответы с готовыми решениями:

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

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

В алфавитном порядке напечатать все строчные русские гласные буквы, входящие в текст
2)Дан текст за которым следует точка. В алфавитном порядке напечатать все строчные русские гласные...

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

__________________
2
296 / 274 / 194
Регистрация: 03.05.2012
Сообщений: 567
01.06.2012, 11:12 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1-ая задача:
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
33
34
35
const sen=['а','е','ё','и','о','у','ы','э','ю','я'];
 
type tset=set of char;
 
procedure readset(var aset:tset;var arg:string);
var i:byte;
begin
  for i:=1 to length(arg) do
    if arg[i] in sen then
      aset:=aset+[arg[i]];
end;
 
procedure writeset(var aset:tset);
var i:byte;
begin
  for i:=1 to 255 do
    if char(i) in aset then
      write(char(i):2);
end;
 
var sn:tset;
    ch:char;
    s:string;
begin
  sn:=[];s:='';
  while ch<>'.' do begin
    read(ch);
    s:=s+ch;
  end;
  writeln;
  readset(sn,s);
  writeset(sn);
  readln;
  readln
end.
1
0 / 0 / 0
Регистрация: 09.05.2012
Сообщений: 30
01.06.2012, 22:27  [ТС] 3
а еще две никак?...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.06.2012, 22:27

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

В алфавитном порядке напечатать все строчные гласные буквы
Задача: Дан текст за которым следует точка. в алфавитном порядке напечатать все строчные гласные...

В алфавитном порядке напечатать все строчные английские гласные буквы, входящие в текст
Помогите пожалуйста, у меня получилось как-то так. uses crt; var s: string; i, count:...

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.