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

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

Процедура Writeln в Pascal

Помимо зарезервированного слова Write, для вывода сообщения на экран в Pascal используется процедура Writeln. Отличие процедуры Writeln от оператора Write заключается в том, что Writeln после вывода сообщения на экран переводит курсор на другую ...

Ввод символов с клавиатуры.

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

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

Рекурсивные вычислительные процессы.

Функция может вызывать другую функцию, та в свою очередь третью и т.д. В результате программы приобретают иерархическую структуру.

Использование оператора WITH ... DO.

Из предыдущего примера легко заметить, что при каждом обращении к полю записи следует указывать имя этой записи. Если вы работаете с полями одной и той же записи, то этой проблемы можно избежать ...

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


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

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

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

Комментарии  

 
0 # Serg 07.10.2021 04:40
отлично ;-)
Ответить
 

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

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