Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        помогите составить блок схему
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Одна страница
Модераторы: paradise, KMA
  

KAIRA



Новичок

Пользователь задает слово
Компьютер заменяет буквы в слове на их порядковый номер в алфавите...


вот решение:
program jylechka;
const alf:array[1..26] of string=('A','B','C','D','E','F','G','H',
                                 'I','J','K','L','M','N','O','P',
                                 'Q','R','S','T','U','V','w','X',
                                 'Y','Z');
var i,j:integer;
   str:string;
begin
writeln('vvedite stroku:');
readln(str);
for i:=1 to length(str) do
 for j:=1 to 26 do
   if upcase(str[ i ])=alf[j] then write(j,' ');
readln;
readln
end.

помогите составить блок схему....

Всего сообщений: 1 | Присоединился: март 2010 | Отправлено: 28 марта 2010 12:24 | IP
VF



Administrator



Тема перемещена сюда.

Всего сообщений: 3109 | Присоединился: май 2002 | Отправлено: 29 марта 2010 7:28 | IP

Отправка ответа:
Имя пользователя   Вы зарегистрировались?
Пароль   Забыли пароль?
Сообщение

Использование HTML запрещено

Использование IkonCode разрешено

Смайлики разрешены

Опции отправки

Добавить подпись?
Получать ответы по e-mail?
Разрешить смайлики в этом сообщении?
Просмотреть сообщение перед отправкой? Да   Нет
 

Переход к теме
<< Назад Вперед >>
Одна страница

Форум работает на скрипте © Ikonboard.com