Оператор выбора Case Of в Pascal.

Помимо условного оператора If в языке программирования Pascal существует оператор выбора Case of. Рассмотрим его применение на примере программы, которая выводит на экран то или иное сообщение, в зависимости от введенного числа.

Перевод числа из десятичной системы счисления в шестнадцатеричную.

Напишем программу, которая вводит с клавиатуры целое число в диапазоне от 0 до 15 и преобразует его к шестнадцатеричной системе счисления. Напомню, что в шестнадцатеричной системе счисления числа в диапазоне от 0 до 9 соответствуют таким же числам в ...

Процедуры Dec и Inc в Pascal.

При работе с целыми числами используются процедуры DEC и INC. Процедура Dec уменьшает число на определенное значение, а процедура Inc увеличивает число на определенное значение.

Циклы и массивы

Поиск минимального и максимального элементов массива.

Одной из наиболее распространенных задач обработки массивов является поиск минимального (максимального) элемента.

Сортировка одномерного массива. Метод пузырька.

Сортировка — перестановка местами объектов в определенном порядке. Известно несколько сотен алгоритмов сортировки и их модификаций.

Постановка задачи: Дан текст, содержащий стоимость некоторых товаров в копейках, например 212, 5003, 103, 3432 и т. д. Выразить цену в рублях и копейках, напри¬мер 2 руб. 12 коп., 50 руб. 03 коп., 1 руб. 03 коп. и т. д. (число копеек записывается всегда двумя цифрами).

Анализ задачи:

Следует разработать программу, выполняющую открытие текстового файла, выделение двух последних цифр – копейки, остальные - рубли .

Метод решения задачи:

Для решения задачи необходимо использовать основной цикл типа WHILE NOT..DO, который будет считывать значения из файла, и далее с помощью оператора DELETE выделять число копеек, число рублей. Вы можете купить лицензионно программное обеспечение на сайте http://softlist.com.ua/catalog/ide/ по доступной цене. Вы можете получить программное обеспечение в течение всего нескольких минут после заказа.

Алгоритм решения задачи:

1.Открывается файл с исходными данными. 2.Выполняется тело цикла, содержащее, необходимые условия; 3.Вывод результатов.

Описание структур данных, использованных в алгоритме:

fl – текстовая переменная, связанная с файлом исходных данных. i– счетчик цикла; изменяется под управлением оператора цикла. x, k – вспомогательные, промежуточные переменные. t, l –переменные типа string, содержащая кол-во копеек и вспомогательная. k, c, n – вспомогательные переменные обмела.

Программа и методика испытания:

 uses crt;
const inpf='indata.txt';
var fl: text;
s:char;
t,l:string;
i,k,c,n:integer;
begin
clrscr;
assign (fl,inpf);
reset(fl);
writeln('Дан текст, содержащий цену товара в копейках, например 317, 5005, и т.д.');
writeln('выразить цену в рублях и копейках 3 руб. 17 коп., 50 руб. 05. коп., (число');
writeln('копеек записывается всегда двумя цифрами)');
writeln;
while not eof(fl) do begin
while not eoln(fl) do begin
read(fl,s);
t:=t+s;
if s=' ' then begin delete(t,length(t),1);
                  l:=t;
                  delete(t,length(t)-2,2);
                  delete(l,1,length(l)-2);
                  val(t,k,c); val(l,n,c);
                  writeln(k:4,' руб. ',l:2,' коп.');
                t:='';
                l:='';
          end;
      end;
   end;
close(fl);
writeln('Нажмите любую клавишу для выхода.');
readkey;
end. 


Данный алгоритм представлен циклической структурой с внутрицикловыми ветвлениями. Поэтому во время проведения испытаний разработанной программы следует проверить правильность задания граничных значений для параметра цикла, правильность (соответствие поставленной задаче) тела цикла, правильность начальных условий для операторов тела цикла.

Предыдущая статья : Определить функцию для проверки делится ли целое число на каждую из его цифр без остатка.

Оглавление : Примеры программ

Добавить комментарий

Защитный код
Обновить

   ГлавнаяПаскальПримеры программ.Дано натуральное число N. Необходимо вычислить произведение первых N сомножителей: 1/2*3/4*5/6*...;