Функции Pred, Succ в Pascal.

В данном уроке мы рассмотрим функции, применяемые к типу CHAR. Функция Pred возвращает в качестве значения предшествующий символ, а функция Succ возвращает последующий символ.

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

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

Функции trunc, round в Pascal.

Для того чтобы в Паскаль можно было оперировать не только целыми числами, но и дробными существуют вещественные типы данных. Один из таких типов называется Real. В этом уроке мы рассмотрим 2 функции, которые производятся над дробными числами. Это ...

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

Программирование циклов. Оператор безусловного перехода.

Цикл — это последовательность операторов, которая может выполняться более одного раза. В языке Паскаль разработано три механизма для конструирования циклов, использующих операторы FOR, WHILE, REPEAT.

...

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

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

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