Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Adramelika
0 / 0 / 0
Регистрация: 21.03.2015
Сообщений: 17
1

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

23.03.2015, 22:42. Просмотров 783. Ответов 6
Метки нет (Все метки)

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

Входные данные:
Во входном потоке дана единственная строка, состоящая из заглавных английских букви и цифр. Длинна строки - 50 символов.

Выходные данные:
В выходной поток вывести единственное число.

Пример входного файла (input.txt):
KDSFJHGLKDJGHLSUIRH5HGUHG58HGLSHDJHTI8...

Пример выходного файла (output.txt):
16
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.03.2015, 22:42
Ответы с готовыми решениями:

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

В двумерном массиве вычислить сумму элементов, сумма индексов которых равна 4
в двумерном массиве вычислить сумму элементов, сумма индексов которых равна 4

В двумерном массиве A(4,4) произвольных чисел вычислить сумму элементов, модуль разности индексов которых равен 2.
В двумерном массиве A(4,4) произвольных чисел вычислить сумму элементов, модуль...

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

В двухмерном массиве вычислить сумму элементов, произведение индексов столбца и строки которых нечетное число.
В двухмерном массиве вычислить сумму элементов, произведение индексов столбца...

6
neit95
7 / 7 / 3
Регистрация: 24.02.2014
Сообщений: 85
Завершенные тесты: 1
23.03.2015, 23:18 2
Если я правильно понял задание, то именами переменных не могут быть элементы, начинающиеся на цифру, тогда как-то так:
Pascal
1
2
var 
S:integer;
Добавлено через 9 минут
Извините, браузер сгалил.
Если я правильно понял задание, то именами переменных не могут быть элементы, начинающиеся на цифру, тогда как-то так:
Pascal
1
2
3
4
5
6
7
8
9
var 
 S,i:integer;
 v:string;
begin
 S:=0;
 for i:=1 to 10 do
  if (v[i*5-4]>=65) and (v[i*5-4]<=90) then S:=S+i;
 writeln(S);
readln;
Вроде так.
0
APALoff
1640 / 1069 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
24.03.2015, 09:53 3
neit95, Вы написали бред.

Добавлено через 1 минуту
Если не уверены в том что делаете, то хотя бы попробуйте запустить своё творение и проверить результат.

Добавлено через 34 минуты
Вариант 1:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function Sum5Index(s : String) : Integer;
Var k,i : Byte;
Begin
  k:=0;
  While Length(s)>0 do
  Begin
    For i:=1 to Length(Copy(s,1,5)) do
      Inc(k,i*Ord(s[i] in ['0'..'9']));
    Delete(s,1,5);
  end;
  Sum5Index:=k;
end;
 
Begin
 Writeln(Sum5Index('KDSFJHGLKDJGHLSUIRH5HGUHG58HGLSHDJHTI8'));
 Writeln(Sum5Index('abcd01bcdea2cdeab3cdabc4e')); { 5+1+2+3+4 = 15 }
end.
Добавлено через 16 секунд
Вариант 2:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function Sum5Index(s : String) : Integer;
Var k,i : Byte;
Begin
  If Length(s)>0 then
  Begin
    k:=0;
    For i:=1 to 5 do
      If i<=Length(s) then Inc(k,i*Ord(s[i] in ['0'..'9']));
    Delete(s,1,5);
    Sum5Index:=k+Sum5Index(s);
  end
    else Sum5Index:=0;
end;
 
Begin
 Writeln(Sum5Index('KDSFJHGLKDJGHLSUIRH5HGUHG58HGLSHDJHTI8'));
 Writeln(Sum5Index('abcd01bcdea2cdeab3cdabc4e')); { 5+1+2+3+4 = 15 }
end.
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26514 / 17806 / 7045
Регистрация: 22.10.2011
Сообщений: 31,337
Записей в блоге: 6
24.03.2015, 10:12 4
APALoff,
Цитата Сообщение от APALoff Посмотреть сообщение
Если не уверены в том что делаете, то хотя бы попробуйте запустить своё творение и проверить результат
Тебя, кстати, это тоже касается. Второй тест твой же код не проходит. Там только одна группа символов, которая НЕ может быть идентификатором: 1bcde, вторая по счету. С какого перепуга ответ = 15? Все проще:

Pascal
1
2
3
4
5
6
7
8
Function Sum5Index(s : String) : Integer;
Var k,i : Byte;
Begin
  k := 0;
  for i := 1 to length(s) div 5 do
    inc(k, i*ord(s[pred(i)*5+1] in ['0' .. '9']));
  Sum5Index:=k;
end;
0
APALoff
1640 / 1069 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
24.03.2015, 11:31 5
volvo, мы наверное по разному поняли условия.
Вычислить сумму индексов элементов, значения которых не могут быть именами переменных.
В моем понимании, в каждой группе по 5 символов необходимо найти индексы цифровых элементов и сложить их в общую сумму, т.е. если идет речь об индексах, то явно это односимвольные элементы.

Добавлено через 8 минут
Хотя если дотошно подходить (к сожалению не указано из каких символов может состоять строка, поэтому я опирался на данные, приведенные в примере), то надо было делать проверку:
Pascal
1
If i<=Length(s) then Inc(k,i*Ord(not (s[i] in ['a'..'z','A'..'Z'])));
0
Puporev
Модератор
55472 / 42576 / 29425
Регистрация: 18.05.2008
Сообщений: 100,722
24.03.2015, 11:38 6
А я что-то не понял, написано
Цитата Сообщение от Adramelika Посмотреть сообщение
Длинна строки - 50 символов.
А в примере, если убрать точки всего 38 символов...

Добавлено через 2 минуты
Цитата Сообщение от Adramelika Посмотреть сообщение
Строка разбивается на элементы по 5 символов в каждом.
Вычислить сумму индексов элементов, значения которых не могут быть именами переменных.
Индексы элементов от 1 до 5
0
APALoff
1640 / 1069 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
24.03.2015, 11:50 7
Цитата Сообщение от Puporev Посмотреть сообщение
Индексы элементов от 1 до 5
Ну да, для каждой группы по 5 символов.

Я чувствую надо ждать ТС для внятного объяснения.
0
24.03.2015, 11:50
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.03.2015, 11:50

Вычислить сумму тех элементов массива сумма индексов которых совпадает с значением элементов массива.
Вычислить S сумму тех элементов массива Mas сумма индексов которых совпадает с...

Массив: вычислить сумму элементов массива, значения которых превышают 3
Добрый вечер. Написал программу по одномерный массивам, но она не решает что...

Подпрограммы. Вычислить количество и сумму элементов, значения которых совпадают с порядковыми номерами.
Задана последовательность чисел. Вычислить количество и сумму элементов,...


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

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

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