Определить по вводимому числу (ШК) страну-производителя товара и истинность данного ШК

Задача с олимпиады

Штриховой код (ШК) содержит информацию о товаре и его производителе, Один из распространенных - - это 13-разрядный европейский код EAN-13 (European Article Numbering), Крайние левые разряды определяют страну-производителя товара, далее сле¬дуют код товара и код изготовителя, а последняя цифра кода должна совпадать с кон¬трольной суммой ШК и позволяет оценить подлинность ШК и качество товара.
Определить по вводимому числу (ШК) страну-производителя товара и истинность
данного ШК.

Алгоритм расчета Пример для
контрольной суммы (КС) ШК = 4600376211206
1. Сложить цифры, стоящие
на четных местах ШК 6 + 0 + 7 + 2+1+0=16
2. Полученную сумму умножить на три 16 • 3 = 48
3. Сложить цифры, стоящие на нечетных местах ШК
(кроме самой контрольной цифры) 4 + 0 + 3 + 6+1 +2=16
4. Сложить числа, полученные
в пунктах 2 и 3 48+16 = 64
5. Отбросить десятки 64 - 60 = 4
6. Из числа 10 вычесть число,
полученное в пункте 5 10-4 = 6

Коды стран заданы в файле «CODE.TXT», который будет использоваться при проверке решений задачи. Код страны в этом файле отделяется от названия страны, по крайней ме¬ре, одним пробелом и может быть составным (либо задаются два кода через запятую, либо задается диапазон кодов через тире).

Пример задания файла «CODE.TXT»
00—09 США и Канада
30—37 Франция
64 Финляндия
400-440 Германия
460—469 Россия и СНГ
484 Молдова
45,49 Япония

Замечание: запись «00-09 США и Канада» означает, что коды 00,01,.„09 отводятся для США и Канады, а в записи «45,49 Япония» стране Японии соответствуют коды 45 или 49.


Формат входных данных:
Каждая строка входного файла содержит один штрих-код, который может быть как верным, так и ошибочным.

Формат выходных данных:
Каждой строке из входного файла должна соответствовать одна строка в выходном файле. Строка содержит одно из слов: ВЕРНЫЙ/НЕВЕРНЫЙ и в случае верного ШК название страны-производителя.


Что мне нужно:
Собственно, мне нужна идея для проверки кода страны. В каком формате это все делать,в каком направлении топать и т.п. Я конечно могу построчно как бы, но текст программы будет очень большой, мне это не нравится. Как можно грамотно сделать? Ещё, количество штрих-кодов в условии не определено, то есть их может быть любое количество. То есть, как организовать проверку всех строк. Вобщем лучше уж тогда цельный текст программы. Благодарю.
Да и условие не совсем понятно, написано, вроде "Каждая строка входного файла содержит один штрих-код, который может быть как верным, так и ошибочным.", но одновременно "Коды стран заданы в файле «CODE.TXT», который будет использоваться при проверке решений задачи." Разобраться хотелось бы..

0

Сообщение от DeLuxe Собственно, мне нужна идея для проверки кода страны.

Пусть N - это штрих-код, тогда:
Добавлено через 2 минуты

Сообщение от DeLuxe То есть, как организовать проверку всех строк.

Сообщение от DeLuxe Вобщем лучше уж тогда цельный текст программы.

тогда лучше уж тогда в раздел "фриланс" обращаться.

0

Pascal 1 2 3 4 5 6 7 8 9 10 N:=N div 11; Case N of 0..9: S:='США'; 30..37: S:='франция'; 64: S:='Финляндия'; 40..44: S:= 'Германия'; 46: S:='Россия и СНГ'; 48: S:='Молдова'; 45,49: S:='Япония'; end;

Полная ерунда.
Ошибки перечислять лень.

Да это все и неважно.
Как я понял из условия - файл CODE.TXT тоже следует прочитать в программе.
А не вбивать в код программы.
Поэтому сначала нужно организовать чтение файла CODE.TXT и сохранение в память.

Самый тупой вариант - записать по одной строке файла CODE.TXT в один элемент массива.
Следует только тщательно продумать как сохранить.
Пусть код страны - число от 1 до 9 цифр.
Тогда код страны мы можем сохранить в переменной типа int.
Следует учесть все три варианта записи
1) код1-код2 страна
2) код1 страна
3) код1,код2 страна

Сама программа должна читать входной файл.
Проверять правильность кода.
И если код правильный - то по ранее считанному массиву искать название страны.
Если код правильный, то вывести "ВЕРНЫЙ Россия и СНГ"
Если неправильный, то вывести "НЕВЕРНЫЙ"
Еще может быть вариант, когда код для страны не указан.
Например 481....

0