Помогите написать программу ** PascalABCNET Всем известно, что со временем клавиатура...

0 голосов
239 просмотров

Помогите написать программу на PascalABCNET

Всем известно, что со временем клавиатура изнашивается, и клавиши на ней начинают залипать. Конечно, некоторое время такую клавиатуру еще можно использовать, но для нажатий клавиш приходиться использовать большую силу.
При изготовлении клавиатуры изначально для каждой клавиши задается количество нажатий, которое она должна выдерживать. Если знать эти величины для используемой клавиатуры, то для определенной последовательности нажатых клавиш можно определить, какие клавиши в процессе их использования сломаются, а какие — нет.
Требуется написать программу, определяющую, какие клавиши сломаются в процессе заданного варианта эксплуатации клавиатуры.

ВХОДНЫЕ ДАННЫЕ

Первая строка входного файла содержит целое число n (1≤n≤100) — количество клавиш на клавиатуре. Вторая строка содержит n целых чисел — с1, с2, …, сn, где сi (1≤сi≤100000) — количество нажатий, выдерживаемых i-ой клавишей. Третья строка содержит целое число k (1≤k≤100000) — общее количество нажатий клавиш, и последняя строка содержит k целых чисел pj (1≤pj≤n) — последовательность нажатых клавиш.

ВЫХОДНЫЕ ДАННЫЕ

В выходной файл необходимо вывести n строк, содержащих информацию об исправности клавиш. Если i-ая клавиша сломалась, то i-ая строка должна содержать слово “yes” (без кавычек), если же клавиша работоспособна — слово “no”.


image

Информатика (94 баллов)
Дан 1 ответ
0 голосов
Одаренный (2.0k баллов)
 
Правильный ответ

См. файл во вложении


Скачать вложение Текст (TXT)
оставил комментарий (94 баллов)

Program32.pas(3) : Переменная 'p' нигде не используется
Program32.pas(12) : Ошибка времени выполнения: Файл 'C:\PABCWork.NET\input.txt' не найден.

оставил комментарий Одаренный (2.0k баллов)

Переменную p забыл убрать, соответствующая строка будет выглядеть так: n, pressedKey : integer;

оставил комментарий Одаренный (2.0k баллов)

Файл не найден, потому что вы его не создали. Если файл есть, но с другим названием (не input.txt), то в коде напишите свое название.

оставил комментарий (94 баллов)

не робит

оставил комментарий Одаренный (2.0k баллов)

Что именно не работает?

оставил комментарий (94 баллов)

то же самое

оставил комментарий Одаренный (2.0k баллов)

У вас программа не может найти файл. Сохраните программу на диск и в эту же папку поместите ваш текстовый файл.

оставил комментарий Одаренный (2.0k баллов)

Только название файла исправьте при необходимости

...