Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
paraphin
1 / 1 / 0
Регистрация: 09.12.2009
Сообщений: 51
1

Элементами слов могут быть как буквы, так и цифры. Вывести на экран слово, содержащее наибольшее количество чётных цифр

15.12.2009, 21:29. Просмотров 1212. Ответов 1
Метки нет (Все метки)

Элементами слов могут быть как буквы, так и цифры. Вывести на экран слово, содержащее наибольшее количество чётных цифр. (указание: Использование множеств. Ввод из текстового файла. Входной информацией является произвольный текстовый файл, число строк в котором более двух. Словом считается любая последовательность подряд идущих символов. Считается что слова разделяются пробелами. Реализовать поставленную задачу необходимо на основе использования множества)
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.12.2009, 21:29
Ответы с готовыми решениями:

Ввести строку, в которую могут входить только цифры и буквы. Подсчитать количество и вывести на экран цифры
Ввести строку, в которую могут входить только цифры и буквы. Подсчитать ко- личество и вывести на...

Найти и вывести слово, содержащее наибольшее количество цифр
дан массив из n слов произвольной длины (длина слова не превышает 80 символов). Элементами слов...

Вывести слово, содержащее наибольшее количество цифр
Доброго времени суток. Помогите пожалуйста с задачей. Множества. Элементами слов могут быть как...

Задача №638. Дана строка символов. Вывести слово, содержащее наибольшее количество цифр и вывести число цифр в каждом слове
Задача №638. Дана строка символов. Вывести слово, содержащее наибольшее количество цифр и вывести...

Вывести слово, содержащее наибольшее количество цифр
1)В заданном текстовом файле элементами слов могут быть как буквы, так и цифры. Вывести слово,...

1
FIN
0 / 0 / 2
Регистрация: 24.04.2015
05.01.2010, 20:16 2
Лучший ответ Сообщение было отмечено paraphin как решение

Решение

на будущее, если кому-то еще понадобится )))
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
43
44
45
46
47
48
49
50
51
52
uses crt;
const  kk: set of char=['2','4','6','8'];
       g=5;
var i,j,m,n,h,ch,max:integer;
    f:array[1..100] of string;
    f1:array [1..100] of string;
    A,c:string;
    fl:text;
begin
clrscr;
  assign(fl,'massiv(2).txt');
  reset(fl);
      for i:=1 to g do
        begin
        readln(fl,f1[i]);
        writeln (f1[i]);
        a:=a+f1[i];
        a:=a+' ';
        end;
  close(fl);
m:= Length(a);
n:=1;
f[1]:='';
for i:=1 to m do
    if a[i]=' ' then
      begin
       inc(n);
       f[n]:=''
      end
      else
        f[n]:=f[n]+a[i];
writeln;
writeln('max четных цифр в слове:');
for i:=1 to n-1 do
    begin
    ch:=0;
    h:= Length(f[i]);
    for j:=1 to h do
      if f[i][j] in kk then ch:=ch+1;
         if ch>max then
           begin
           max:=ch;
           c:=f[i]
           end
    end;
write(c,' ');
   assign(fl,'vivod.txt');
   rewrite(fl);
   writeln (fl,c);
   close(fl);
readkey
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.01.2010, 20:16

Вывести слово, содержащее наибольшее количество цифр и вывести число цифр в слове
Дана строка. Исключить из нее подстроку, расположенную между самой левой открывающейся скобкой «(»...

Найти слово содержащее наибольшее количество цифр
Нужно напечатать слово, содержащее наибольшее количество цифр и ещё одно слово с наибольшим...

Напечатать слово, содержащее наибольшее количество цифр(строки) на С
Выделить в строке-предложении s все слова, разделенные символами-разделителями «_.,;:\n\t!?»....


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

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

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