Файлът за вход:
Първият ред - азбука състояния: десет букви, подредени в числа във възходящ ред на последователност, без пропуски.
Вторият ред - броя на номера (N <= 255)
Следните N линии - че първоначалните номера (по една на ред, всяка от не повече от 255 цифри).
Форматът на изходния файл:
ключова дума
на езика на решението на Паскал:
ПРОГРАМА VISA;
Var п, A, D, I, сума, г: longint;
к. Array [0..11] на longint;
C: масив [1..255] на longint;
код: масив [1..255] на longint;
Алф: низ;
F, f1: текст;
започвам
присвоява (е, 'visa.dat');
нулиране (е);
Прочети (е, Alf);
readln (е, п);
за I: = 1 до п направи readln (F, К [Ь]);
I: = 1;
г: = 1;
за I: = 1 до п се започне
повторение
сума: = 0;
а к [Ь] Разделения 10 <> 0 започвайте
ако D> 1, тогава
к [Ь]: = к [Ь] Разделение 10;
г: = г + 1;
в [Ь]: = к [Ь] мод 10;
сума: = сумата + C [I];
приключи;
К [Ь]: = сума;
г: = 1;
до сума <9;
код [Ь]: = сума;
приключи;
ЗА I: = 1 до п DO KOD [I]: = KOD [I] 1;
ASSIGN (f1, "visa.sol ');
презапис (F1);
за I: = 1 до п направи записване (F1, Alf [код [Ь]]);
близост (е);
близост (F1);
край.
Вторият вариант
програма Виза;
етикет 1;
Var W, X, R: низ I, J, S, s1, п, треска, брои: число; F, f1: текст; Alf: масив [0..9] на низ [10];
започвам
присвоява (е, 'VIZA.dat');
презапис (е);
близост (е);
присвоява (f1, "VIZA.rez ');
презапис (F1);
близост (F1);
пиша ( "vvedite кол-во chifr ');
readln (брой);
Alf [0]: = "A";
Alf [1]: = "G";
Alf [2]: = 'Е';
Alf [3]: = "I";
Alf [4]: = 'К';
Alf [5]: = 'L';
Alf [6]: = 'М';
Alf [7]: = 'О';
Alf [8]: = 'P';
Alf [9]: = "T";
защото: = 0 до 9 започвайте
присвоява (е, 'VIZA.DAT'); добавяне (е);
напиши (е, Alf [Ь]);
близост (е);
приключи;
защото: = 1 да брои започвайте
пиша ( "vvedite chislo");
readln (х);
1: S: = 0;
за J: = 1 до дължина (х) направи
започвам
R: = х [й];
Val (R, п, треска);
S: = S + N;
напиши (е = ', т);
приключи;
ако е> 9 след това започва ул (S, х); 1 Иди край;
напиши ( '', ALF [S]);
присвоява (f1, "VIZA.rez ');
добавяне (F1);
writeln (f1, Alf [S]);
близост (f1)
приключи;
край.
Свързани статии