Реферат: Программ-игра «Морской бой», с использованием анимированных графических объектов и возможностью управлять их движением с помощью клавиатуры
всё
конец
Часть 2: Поиск в тексте единиц и вставка после них нулей
|
Входные данные: var st:мас :стр r:цел var one:лог Выходные данные: rez:масс :стр iz:цел Внутренние переменные: k,l:цел начало one:=ложь цикл для k:=1 до r делать l:=1 цикл пока l<=длина(st[k]) делать если st[k][l]='1' то insert('0',st[k],l+1) {Вставить после нуля единицу} one:=истина {Значит, в тексте есть единицы} всё inc(l) {l:=l+1} кцикл кцикл всё |
Вспомогательная функция: Определяет, является ли символ цифрой
|
Входные данные: с:сим Выходные данные: лог Внутренние переменные: e:цел fl:лог начало fl:=ложь d:='0123456789' {все цифровые символы} цикл для e:=1 до 10 делать {перебор всех символов цифр} если c=d[e] то fl:=истина кцикл К-во Просмотров: 370
Бесплатно скачать Реферат: Программ-игра «Морской бой», с использованием анимированных графических объектов и возможностью управлять их движением с помощью клавиатуры
|