русс | укр

Языки программирования

ПаскальСиАссемблерJavaMatlabPhpHtmlJavaScriptCSSC#DelphiТурбо Пролог

Компьютерные сетиСистемное программное обеспечениеИнформационные технологииПрограммирование

Все о программировании


Linux Unix Алгоритмические языки Аналоговые и гибридные вычислительные устройства Архитектура микроконтроллеров Введение в разработку распределенных информационных систем Введение в численные методы Дискретная математика Информационное обслуживание пользователей Информация и моделирование в управлении производством Компьютерная графика Математическое и компьютерное моделирование Моделирование Нейрокомпьютеры Проектирование программ диагностики компьютерных систем и сетей Проектирование системных программ Системы счисления Теория статистики Теория оптимизации Уроки AutoCAD 3D Уроки базы данных Access Уроки Orcad Цифровые автоматы Шпаргалки по компьютеру Шпаргалки по программированию Экспертные системы Элементы теории информации

Program Str3;VarI : Byte;Begin


Дата добавления: 2015-06-12; просмотров: 512; Нарушение авторских прав


For I :=32 to 255 doWrite('VV ', I :4, '-', Chr(I))

End.

Цикл в програмі починається з 32 тому, що символи з кодами від 0 до 31 є керівниками і не мають відповідного графічного представлення.

Завдання: "Визначити, чи являється введений рядок "перевертышем". Перевертышем називається такий рядок, який однаково читається з початку і з кінця. Наприклад, "козак" і "потоп" - перевертыши, "канат" - не перевертыш".

Поступимо таким чином: з введеного рядка сформуємо інший рядок з символів першою, записаних в зворотному порядку, потім порівняємо перший рядок з другим; якщо вони виявляться рівні, то відповідь позитивна, інакше - негативний. Природно, запропонований спосіб рішення не є єдино можливим.

Program Str4;Var S, B: String;I: Byte;Begin

Writeln('Введіть рядок'); Readln(S);B:=''; {Змінною B привласнюємо значення "Порожній рядок"}For I :=1 to Length(S) doB :=S[I]+B; {Конкатенація. Символи рядка S пристиковуються до}{змінній B ліворуч. Найлівішим виявиться останній.}If B=S Then Writeln('Перевертыш') Else Writeln('Не перевертыш')

End.

Число, записане в строкову змінну, природно числом не є, але дуже часто вимагається його все ж використовувати як число. Для цього треба зробити перетворення типу. Переклад строкового представлення числа в числове виконує в Паскале оператор Val.

Його формат:Val(S, X, C);

Тут S - рядок, що містить число, X - числова змінна, в яку буде поміщений результат, З - змінна цілочисельного типу, в яку поміщається першого зустрінутого в S відмінного від цифри символу. Якщо після виконання оператора Val змінна З має значення 0, то це означає, що перетворення типу пройшло абсолютно успішно і в рядку нецифрових символів не зустрілося.

Протилежну дію здійснює оператор Str. Формат оператора :Str(X, S);X - число (або арифметичне вираження), S - строкова змінна.



У змінну S потрапляє строкове представлення числа X. Це треба, наприклад, при необхідності виводити на екран числа в графічному режимі (буде вивчено пізніше), оскільки стандартні процедури виводу на екран там працюють тільки із строковими величинами.

Для ілюстрації розглянемо таке завдання: "Знайти суму цифр введеного натурального числа". Використовуючи тільки числові змінні, вирішити її можна, але пропоноване тут рішення, по-моєму, простіше.



<== предыдущая лекция | следующая лекция ==>
Program Str1;Var S : String;Begin | Program Str5;Var


Карта сайта Карта сайта укр


Уроки php mysql Программирование

Онлайн система счисления Калькулятор онлайн обычный Инженерный калькулятор онлайн Замена русских букв на английские для вебмастеров Замена русских букв на английские

Аппаратное и программное обеспечение Графика и компьютерная сфера Интегрированная геоинформационная система Интернет Компьютер Комплектующие компьютера Лекции Методы и средства измерений неэлектрических величин Обслуживание компьютерных и периферийных устройств Операционные системы Параллельное программирование Проектирование электронных средств Периферийные устройства Полезные ресурсы для программистов Программы для программистов Статьи для программистов Cтруктура и организация данных


 


Не нашли то, что искали? Google вам в помощь!

 
 

© life-prog.ru При использовании материалов прямая ссылка на сайт обязательна.

Генерация страницы за: 0.068 сек.