Вас попросили разработать приложение с использованием инструкции switch, которое позволяет сотруднику театра вводить день недели, а затем отображать стоимость билета в театр за день. Включите оператор switch и if..else, чтобы применить следующие условия в приложении !! Заранее .
Const n = 10; var mas:array [1..n] of integer; i,x,j,a,b,index:integer; begin write('Введите диапазон от a до b: '); readln(a,b); for i:= 1 to n do begin mas[i]:=Random(b-a+1)+a; end; writeln('Полученный массив: '); for i:= 1 to n do write(mas[i]:4); for i:=n downto 1 do if mas[i]>0 then begin index:=i; break end; mas[index]:=mas[2]; writeln; writeln('Результат выполнения задания: '); for i:= 1 to n do write(mas[i]:4); readln end.
Введите диапазон от a до b: 10 40 Полученный массив: 25 13 38 31 39 12 16 11 26 33 Результат выполнения задания: 25 13 38 31 39 12 16 11 26 13
Проведение финансовых операций с использованием Интернета, заказ товаров и услуг, использование кредитных карточек, доступ к закрытым информационным ресурсам, передача телефонных разговоров требуют обеспечения соответствующего уровня безопасности. Конфиденциальная информация, которая передается по сети Интернет, проходит через определенное количество маршрутизаторов и серверов, прежде чем достигнет пункта назначения. Обычно маршрутизаторы не отслеживают проходящие сквозь них потоки информации, но возможность того, что информация может быть перехвачена, существует. Более того, информация может быть изменена и передана адресату в измененном виде. К сожалению, сама архитектура сети Интернет всегда оставляет возможность для недобросовестного пользователя осуществить подобные действия. Всегда существует проблема выбора между необходимым уровнем защиты и эффективностью работы в сети. В некоторых случаях пользователями или потребителями меры по обеспечению безопасности могут быть расценены как меры по ограничению доступа и эффективности. Однако такие средства, как, например, криптография, позволяют значительно усилить степень защиты, не ограничивая доступ пользователей к данным.
var
mas:array [1..n] of integer;
i,x,j,a,b,index:integer;
begin
write('Введите диапазон от a до b: ');
readln(a,b);
for i:= 1 to n do
begin
mas[i]:=Random(b-a+1)+a;
end;
writeln('Полученный массив: ');
for i:= 1 to n do
write(mas[i]:4);
for i:=n downto 1 do
if mas[i]>0 then
begin
index:=i;
break
end;
mas[index]:=mas[2];
writeln;
writeln('Результат выполнения задания: ');
for i:= 1 to n do
write(mas[i]:4);
readln
end.
Введите диапазон от a до b: 10 40
Полученный массив:
25 13 38 31 39 12 16 11 26 33
Результат выполнения задания:
25 13 38 31 39 12 16 11 26 13
Конфиденциальная информация, которая передается по сети Интернет, проходит через определенное количество маршрутизаторов и серверов, прежде чем достигнет пункта назначения. Обычно маршрутизаторы не отслеживают проходящие сквозь них потоки информации, но возможность того, что информация может быть перехвачена, существует. Более того, информация может быть изменена и передана адресату в измененном виде. К сожалению, сама архитектура сети Интернет всегда оставляет возможность для недобросовестного пользователя осуществить подобные действия.
Всегда существует проблема выбора между необходимым уровнем защиты и эффективностью работы в сети. В некоторых случаях пользователями или потребителями меры по обеспечению безопасности могут быть расценены как меры по ограничению доступа и эффективности. Однако такие средства, как, например, криптография, позволяют значительно усилить степень защиты, не ограничивая доступ пользователей к данным.