Pascal:
Var s, s1: real;
begin
writeln('На какую сумму сделана покупка? ');
readln(s);
if s < 20000 then begin
s1 := 0;
writeln('К сожалению, мы не можем предоставить вам скидку')
end
else
if s < 50000 then begin
s1 := 0.1;
writeln('Ваша скидка составит 10%');
end
else begin
s1 := 0.2;
writeln('Ваша скидка составляет 20%');
end;
writeln('Сумма к оплате ', s - s * s1);
! Приходите ещё.');
end.
Python:
print('Введите сумму покупки', end='')
s = float(input())
s1 = 0 if s<20000 else 0.1 if s<50000 else 0.2
if s1:
print( 'Ваша скидка составляет ', s1*100,'%')
else:
print( 'К сожалению, мы не можем сделать вам скидку')
print ('Сумма к оплате', s - s*s1)
. Приходите ещё')
Результаты выполнения:
Відповідь:
Діаграма. Під діаграму відводиться вся область листа діаграми (якщо вона
розміщена на окремому листі) або область, обмежена кадром.
Маркери. Для відображення числових даних використовуються маркери. Як
маркери використовуються стовпчики, лінії, точки, смуги, сектори та долі.
Кожен набір маркерів, нанесених на діаграму, це набір значень, який
називається рядом даних.
Заголовок діаграми. Це текстовий фрагмент, який розміщується на діаграмі.
У діаграмі можливі підписи осей діаграми – це також текстові дані, які
розміщені біля осей, яку вони позначають.
Лінії сітки. Лінії сітки є продовженням поділок на вісі значень і вісі категорій.
Вісь. Це горизонтальна чи вертикальна лінія з поділками. Вісі присутні на усіх
діаграмах, крім кругової. Горизонтальна вісь Х – називається віссю категорій.
Вертикальна вісь У – називається віссю значень. При створенні об’ємних
діаграм додається ще одна вісь – вісь Z, вісь рядів.
Легенда. В легенді вказується тип заливки, яка використовується для маркерів на діаграмі. За кольором заливки йде ім’я ряду
var a,i,max,min,k,p:integer;
m:array [1..n] of integer;
begin
for i:=1 to n do
begin
a:=random(21)-10;
m[i]:=a;
write (m[i],' ');
end;
max:=m[1];
min:=m[1];
k:=1;
p:=1;
for i:=1 to n do
begin
if m[i]>max then
begin
max:=m[i];
p:=i;
end;
if m[i]<min then
begin
min:=m[i];
k:=i;
end;
end;
if p>k then writeln ('минимальный раньше')
else writeln ('максимальный раньше');
end.