Использование Var, Integer, Readln.

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

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

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

Тип данных Char. Функции Ord, Chr.

Мы с Вами уже рассмотрели типы данных, которые позволяют хранить и обрабатывать целые числа (integer) и дробные числа (real). Теперь рассмотрим тип данных, позволяющий хранить и обрабатывать различные символы. Символы – это все буквы и значки, ...

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

Сортировка простым включением и простым выбором.

Сортировка простым включением.
Пример 33. Методом простого включения упорядочить (отсортировать) в порядке возрастания массив из 8 целых чисел (44, 55,12,42, 94, 18, 06, 67).

Инициализация одномерного массива.

Отличительной особенностью Паскаля от большинства процедурных языков является то, что все переменные должны быть инициализированы. То есть в разделе VAR переменным отводится место, а начальное ...

Постановка задачи: Дан текст, содержащий стоимость некоторых товаров в копейках, например 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. 

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

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

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

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