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

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

09.01.2012, 00:39. Показов 1410. Ответов 3
Метки нет (Все метки)

1.Создайте массив A[1..8] c помощью генератора случайных чисел с вещественными элементами от -10 до 10 и выведите его на экран.Отсортировать по убыванию и вывести полученный массив на экран.

2. Составить прогрмму получения из слова "дисковод" слова "воск", используя операцию сцепления и функцию Copy.

3.Дан текст из строчных латинских букв,за которыми следует точка. Напечатать все буквы, входящие в текст по одному разу.
 Комментарий модератора 
Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.01.2012, 00:39
Ответы с готовыми решениями:

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

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

Вывести все буквы, входящие в текст по одному разу
6. Дан текст, состоящий из латинских букв. Вывести все буквы, входящие в текст по одному разу.

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

3
--\.founder./--
564 / 564 / 392
Регистрация: 20.10.2011
Сообщений: 867
09.01.2012, 01:16 2
Цитата Сообщение от Jt_xD Посмотреть сообщение
1.Создайте массив A[1..8] c помощью генератора случайных чисел с вещественными элементами от -10 до 10 и выведите его на экран.Отсортировать по убыванию и вывести полученный массив на экран.
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
36
37
38
39
40
41
42
Program Massiv_Readln;
 
Uses crt;   // подключаем модули
 
Type
mat = array [1..100] of real ;
 
procedure swap(var x,y:real);
var t:real;
  begin
  t:=x; x:=y; y:=t;
  end;
  
var
a:mat; // переменная массива
i,n,j:integer; // переменная I вводится как индекс массива
 
begin // начало основной программы
 
 clrscr;   // очищает текстовое окно
//------------------------------------------------------------------------------ // формируем массив 'A'
 Write('Размер массива (до 100) - ');readln(n);   // вводим размер одномерного массива
 randomize;
 Write('Исходный массив:');
 For i:=1 to n do
 begin
 a[i]:=random*20-10;
 write(a[i]:0:2,' ');
 end;
 writeln;
//------------------------------------------------------------------------------ // вывод массива 'A'
 Write('Отсортированный массив: ');
 For i :=1 to n do
  For j:=1 to n-1 do
    If a[j]<a[j+1] then swap(a[j],a[j+1]);
  For i:=1 to n do
  write(a[i]:0:2,' ');
 
 
 readkey; // читает символ из буфера клавиатуры.
 
end.
0
Eaneth
09.01.2012, 15:33 3
Цитата Сообщение от Jt_xD Посмотреть сообщение
2. Составить прогрмму получения из слова "дисковод" слова "воск", используя операцию сцепления и функцию Copy.
Pascal
1
2
3
4
5
6
7
8
9
10
var s: string;
    tp_1,tp_2: string;
    
begin
  s:='дисковод';
  tp_1:=copy(s,6,2);
  tp_2:=copy(s,3,2);
  s:=Concat(tp_1,tp_2);
  writeln(s);
end.
Почетный модератор
7961 / 3932 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
09.01.2012, 15:46 4
Цитата Сообщение от Jt_xD Посмотреть сообщение
3.Дан текст из строчных латинских букв,за которыми следует точка. Напечатать все буквы, входящие в текст по одному разу.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var s: string;
    i,j,k: integer;
begin
write('s=');
readln(s);
for i:=1 to length(s) do
    if s[i] in ['a','b'..'y','z'] then
       begin
       k:=0;
       for j:=1 to length(s) do
           if s[i]=s[j] then inc(k);
       if k=1 then write(s[i]);
       end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.01.2012, 15:46

Дан текст из малых латинских букв. Напечатать по разу все буквы, входящие в этот текст
Имя входного файла zmn8.in Имя выходного файла zmn8.out Дан текст из малых латинских букв....

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

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

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


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

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

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