Напишем программу, которая будет вводить с клавиатуры слово в одном регистре (строчными буквами) и выводить на экран это же слово в другом регистре (прописными буквами).
Программа, которая вводит слово в одном регистре и выводит в другом.
program procedura2; uses crt; procedure upstring (s1: string; var s2: string); var i:integer; c: char; begin s2:= ‘’; for i:=1 to length (s1) do begin c:=s1[i]; c:=chr(ord(‘A’) – ord(‘a’) + ord (c)); s2:= s2+c end end; var isxstroka, preobrstroka: string; begin clrscr; writeln (‘Введите строку: ’); readln (isxstroka); upstring (isxstroka, preobrstroka); writeln(‘Результат: ’, preobrstroka); readln end.
В строке №3 записываем процедуру.
Процедуры в Паскаль могут иметь формальные параметры, а могут не иметь их. В нашем примере процедура с названием «upstring» (название мы придумываем сами) имеет формальные параметры. Формальные параметры для процедуры указываются в круглых скобках сразу же за именем процедуры.
В нашем примере формальный параметр «s1: string» называется параметр-значение, а «s2: string» — параметр-переменная. Параметр-значение используется для определения входных данных. Например, в нашей программе мы будем вводить с клавиатуры какое-то слово. Это слово и будет входными данными. Параметр-переменная используется для определения выходных данных.
Pascal | Задачи со строками #1
В нашей программе после введения какого-то слова должно получится то же самое слово, только в другом регистре. Это слово является выходными данными. Параметры отделяются друг от друга точкой с запятой. Перед параметром — переменной, который определяет выходные данные, ставится слово «var». Таким образом, получается, что «s1» является переменной для хранения исходного слова (которое мы будем вводить с клавиатуры), а «s2» будет являться переменной для хранения преобразованного слова.
В строке №4 объявляется переменная «i», которая будет являться счетчиком для цикла. В нашей программе мы будем использовать цикл, поэтому обязательно необходимо указывать переменную, которая будет являться счетчиком для этого цикла.
В строке №5 объявляется переменная для хранения преобразованной буквы.
Строка №6. Здесь начинается тело процедуры, т.е. далее будут расположены все операторы процедуры.
Строка №7. Первый оператор в процедуре – это присвоение переменной s2 значение пустой строки. Переменная s2, используется для хранения выходной строки, т.е. той строки, которая получится после преобразования. Пока в этой переменной ничего не должно быть, поэтому мы присваиваем ей пустое значение.
Стока №8. Здесь записываем цикл. Для каждого элемента, начиная с первого, и заканчивая последним, должны выполняться действия, которые следуют за словом «do». Функция length определяет количество символов во входной строке s1. Например, если мы введем слово «pascal», то length(s1) будет равно 6. Таким образом, получается, что в цикле будет участвовать 6 элементов.
1-ому элементу – соответствует значение «p», 2-ому элементу – «a», 3-му – «s», 4-ому – «c», 5-ому – «a», 6-ому – «l». Для всех этих элементов должны выполняться операции, которые следуют за словом «do». Так как этих операций несколько они заключаются в операторные скобки begin…end. (строка №9 и №13).
Паскаль с нуля [ч3]. Константы и ввод данных
Строка №10. Здесь записывается первая операция, которая производится с каждым элементом. Переменной «с» присваивается значение элемента s1[i]. Первый элемент «i» равен 1, а значение первого элемента s1[i] равно «p» (если мы вводим с клавиатуры слово «pascal»).
В строке №11 переменной «с», которая содержит значение первого элемента «p» присваивается новое значение. Теперь разберемся, что это за значение.
Если мы посмотрим Кодовую таблицу ASCII, то увидим, что прописные буквы латинского алфавита имеют числовой код, который отстает от числового кода соответствующих строчных букв на 32. Например, код буквы «A» равен 65, код буквы «a» равен 97. Разница равна – 32. То же самое получается со всеми другими буквами латинского алфавита.
Теперь разберем формулу chr(ord(‘A’)– ord(‘a’) + ord (c)) .
1-ая операция — ord(‘A’) = 65
2-ая операция — ord(‘a’) = 97
3-я операция — ord(с) = 112 (если первое значение переменной – буква «p»)
Теперь 65-97+112 = 80. Смотрим Кодовую таблицу ASCII и видим, что коду числовому 80 соответствует латинская буква «P»
3-я операция – chr = P.
Таким образом, получается, что строка №10 присваивает переменной «с» туже самую букву, только в другом регистре. Можно было сделать проще: просто отнять от числового кода буквы число 32: chr(ord (c) — 32).
Строка №11. Записываем в переменную «s2» значение, которое получается при сложении первоначального s2 (оно имеет пустое значение) и переменной «с», которая теперь имеет значение «P».
Все операции, которые записаны в строках №10-№12 будут производиться над всеми 6-ю элементами, благодаря циклу в строке №8.
В строке №14 заканчивается тело процедуры.
В строке №15 записываются переменные, которые относятся уже к основной программе. Переменная «isxstroka» будет использоваться для хранения исходного слова.
Переменная «preobrstroka» будет использоваться для хранения преобразованного слова.
Строка №19. Вводим с клавиатуры исходное слово, например, «pascal».
В строке №20 записываем имя нашей процедуры и в скобках указываем фактические параметры. Фактический параметр «isxstroka» соответствует формальному параметру «s1», а фактический параметр «preobrstroka» соответствует формальному параметру «s2».
Строка №21. После того как процедура будет выполнена на экран выведется сообщение.
Та же самая задача, но с использованием русский букв, будет выглядеть так:
В строке №12 используются русские буквы «А» и «а».
В строке №14 используются русские буквы «Р» и «р»
Источник: mojainformatika.ru
Цикл с предусловием While
Приступая к решению задач этого раздела, следует вспомнит, что:
- число повторений оператора цикла while определяется ходом выполнения программы;
- Структура оператора цикла WHILE:
(проверяется пока условие истина, то выполняется указанный оператор, составляющий тело цикла, как только условие примет ложное значение, тогда выполнение оператора цикла завершается).
- для завершения цикла while в теле цикла обязательно должны присутствовать операторы, влияющие на условие выполнения цикла;
- цикл while — это цикл с предусловием, т. е. операторы в теле цикла вообще могут быть не выполнены;
- цикл while, как правило, используется для организации приближенных вычислений, задач поиска и обработки данных вводимых с клавиатуры или из файла.
1. Написать программу, которая вычисляет сумму первых членов ряда 1, 3, 5, 7, . Количество суммируемых членов ряда задается во время работы программы. Ниже представлен рекомендуемый вид экрана во время работы программы.
Вычисление частичной суммы ряда: 1,3,5,7, .
Введите количество суммируемых членов ряда – 15
Сумма первых 15 членов ряда равна 330.
2. Написать программу, которая выводит таблицу значений функции в диапазоне от -2 до 2 с шагом 0,5. Ниже представлен рекомендуемый вид экрана во время работы программы.
-15.90
3. Написать программу, которая выводит двоичное представление введенного с клавиатуры десятичного целого числа в диапазоне от 0 до 255. Рекомендуемый вид экрана во время работы программы приведен ниже.
Преобразование десятичного числа в двоичное.
Введите целое число от 0 до 255 и нажмите Enter>
Десятичному числу 164 соответствует двоичное 10100100
Для завершения работы программы нажмите Enter>.
4. Написать программу, которая вычисляет сумму первых n членов ряда . Количество суммируемых членов ряда задается во время работы программы. Ниже представлен рекомендуемый вид экрана во время работы программы.
Вычисление частичной суммы ряда: 1+1/2+1/3+ .
Введите кол-во суммируемых членов ряда – 15
Сумма первых 15 членов ряда равна 3.3182.
- Написать программу суммирования:
- Чисел от 1 до 100;
- квадратов чисел от 1 до 100;
- сумму квадратов четных чисел и кубов нечетных;
Найти произведение чисел 1*2*3*…*n. Вычисление факториала числа n.
10. Напишите программу, которая вычисляет с заданной пользователем точностью. Для этого воспользуйтесь тем, что значение частичной суммы ряда 1-1/3+1/5-1/7+1/9-. при суммировании достаточно большого количества членов приближается к /4. Рекомендуемый вид экрана во время работы программы приведен ниже.
Задайте точность вычисления ПИ – 0.001.
Значение числа ПИ с точностью 0.001000 равно 3.143589.
Просуммировано 502 членов ряда.
- Подсчитать количество цифр заданного натурального числа n.
- Написать программу, которая вычисляет наибольший общий делитель (НОД) двух целых положительных чисел.
- Найти количество четных цифр натурального числа.
КОНТРОЛЬНЫЕ ЗАДАНИЯ
- Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в десятичной системе счисления.
- Составить программу перевода данного натурального числа из десятичной системы счисления в двоичную.
- Найти сумму всех n–значных чисел (1£n£4).
- Найти количество четных цифр натурального числа.
- Найти сумму всех n–значных чисел, кратных k (1£n£4).
- Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. Ниже представлен рекомендуемый, вид экрана во время работы программы.
Вычисление среднего арифметического последовательности положительных чисел.
Вводите числа. Для завершения ввода введите ноль.
Введено чисел: 3
Сумма чисел: 83
Среднее арифметическое: 27.67
- Натуральные числа a, b, c называются числами Пифагора, если выполняется условие . Напечатать все числа Пифагора, меньшие N.
- Найти все делители натурального числа n.
Источник: studfile.net
Паскаль 1. Написать программу, которая:
• Выводит на экран ваши фамилию, имя, класс (например, «Иванов Иван, 9.1»).
• Выводит на экран сообщение: «Вариант 14».
• Решает следующую задачу: «Найти сумму квадратов всех четных чисел от 1 до 10».
2 Смотреть ответы Добавь ответ +10 баллов
Ответы 2
Ответ разместил: 3333100
Доступ после просмотра рекламы
Ответы будут доступны после просмотра рекламы
Показать ответы
Ответ разместил: женя1373
Доступ после просмотра рекламы
Ответы будут доступны после просмотра рекламы
Показать ответы
Другие вопросы по Информатике
Информатика, Kkrisenk
Написать рисунок с лягушки. желательно начать слева.
Информатика, valeriaky0707
Как найти ню кадров в секунду информатика.
Информатика, alocim3
Работасоставьте программы заполнения массива данными и вывода на экран заполнения и вывода любой.1. заполнить одномерный массив неповторяющимися числами в диапазоне от -25 до50. ко.
Информатика, bmw666
Прямо сейчас нужно. сделайте 1 вариант. 30 .
Информатика, Dzdze
Слышали ли вы что-нибудь о лимонно-кедровом лесу (лкл)? это уникальное место с лимонными деревьями и кедровыми соснами, в котором живут удивительные звери. формально лкл можно пред.
Информатика, YanaKotsyuk
Источник: 0tvet.com