На сколько зарплата самого высокооплачиваемого сотрудника отличается от самого низкооплачиваемого? - Pascal ABC
Формулировка задачи:
В отделе работают 3 сотрудника, которые получают заработную плату в рублях. Требуется определить: на сколько зарплата самого высокооплачиваемого из них отличается от самого низкооплачиваемого.
Входные данные:
В единственной строке входного файла INPUT.TXT записаны размеры зарплат всех сотрудников через пробел. Каждая заработная плата - это натуральное число, не превышающее 100000.
Выходные данные:
В выходной файл OUTPUT.TXT необходимо вывести одно целое число - разницу между максимальной и минимальной зарплатой.
Пример входного файла (input.txt):
100 500 1000
Пример выходного файла (output.txt):
900
Решение задачи: «На сколько зарплата самого высокооплачиваемого сотрудника отличается от самого низкооплачиваемого?»
textual
Листинг программы
var max,min,a,b,c:integer; f1,f2:text; Begin Assign(f1,'input.txt'); Assign(f2,'output.txt'); Reset(f1); Rewrite(f2); Read(f1,a,b,c); max:=a; if b>max then max:=b; if c>max then max:=c; min:=a; if b<min then min:=b; if c<min then min:=c; write(f2,max-min); Close(f1); Close(f2); End.
Объяснение кода листинга программы
- Объявляются переменные
max
,min
,a
,b
,c
типаinteger
. - Объявляются переменные
f1
иf2
типаtext
. - Устанавливаются имена файлов для
f1
иf2
соответственно'input.txt'
и'output.txt'
. - Сбрасывается буфер
f1
. - Перезаписывается буфер
f2
. - Читается содержимое из
f1
в переменныеa
,b
,c
. - Переменная
max
устанавливается равнойa
. - Если
b
большеmax
, тоmax
устанавливается равнымb
. - Если
c
большеmax
, тоmax
устанавливается равнымc
. - Переменная
min
устанавливается равнойa
. - Если
b
меньшеmin
, тоmin
устанавливается равнымb
. - Если
c
меньшеmin
, тоmin
устанавливается равнымc
. - Выводится разница между
max
иmin
в буферf2
. - Закрываются файлы
f1
иf2
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д