ЕКЗАМЕНАЦІЙНИЙ БІЛЕТ No14 З дисципліни «Інформаційні системи і технології у фінансах» 1. Основні підходи, принципи та фази створення ІСО. 2. Організація автоматизованого обліку ФРО в ІСО. 3. Задача.03.04.18р.нашепідприєідТЦ«Мода і врода» за продукцію: «Костюм женский» - 80 штук. Відпускна ціна за одиницю 1650.00грн. (без ПДВ), знижка 1%. Сформувати необхідні документи.
Использован алгоритм 115б "Генератор перестановок", опубликованный в книге М.И.Агеев, В.П.Алик, Ю.И.Марков. Библиотека алгоритмов 101б - 150б. Москва, "Советское радио", 1978 и переведенный на Паскаль с языка АЛГОЛ-60.
const n=7; var p,d:array[2..n] of integer; a:array[1..n] of string:=('426','62','84','4','2','8','24'); prim115:boolean;
procedure Perm(n:integer); var t:string; k,q:integer; label index,iter,trans; begin if prim115 then begin prim115:=False; for k:=2 to n do begin p[k]:=0; d[k]:=1 end end; k:=0; index: q:=p[n]+d[n]; p[n]:=q; if q=n then begin d[n]:=-1; goto iter end; if q<>0 then goto trans; d[n]:=1; k:=k+1; iter: if n>2 then begin n:=n-1; goto index end; q:=1; prim115:=true; trans: q:=q+k; t:=a[q]; a[q]:=a[q+1]; a[q+1]:=t end;
var s,maxs:string; i,m:integer; pal:boolean; begin prim115:=true; maxs:=''; repeat s:=''; for i:=1 to n do s:=s+a[i]; m:=Length(s); pal:=True; for i:=1 to m div 2 do if s[i]<>s[m-i+1] then begin pal:=false; break end; if pal then if maxs<s then maxs:=s; Perm(n); until prim115; Writeln(maxs) end.
program raf105;
var abc,ab,bc:integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
ab:= abc mod 100;
bc:= abc div 10;
if ab = bc
then writeln('Число состоит из одинаковых цифр')
else writeln('Число не состоит из одинаковых цифр');
end.
ОбъяснениеДля выполнения задачи достаточно найти первые 2 цифры и последние 2 цифры если они равны, то число состоит из одинаковых цифр
abc mod 100 Убирает все сотни из числа.
Например было число 123, стало 23.
482 стало 82
abc div 10 Считает сколько в числе целых десяток, но не считает остаток.
Например было число 123, стало 12
482 стало 48
Сравнивание 2 первых и 2 последних цифр
253 25 и 53 не равны, значит число не состоит из одинаковых цифр
121 12 и 21 не равны, значит число не состоит из одинаковых цифр
111 11 и 11 равны, значит число состоит из одинаковых цифр