Выведете на экран меню типа (введите номер действия: 1 — сложение двух чисел; 2 — разность двух чисел; 3 —произведение двух чисел; 4 – частное двух чисел;). И произведите эти действия. Использовать оператор выбора switch.
Что такое контрафакт (контрафактная продукция)? Термином«контрафакт»обозначают любой товар, изготовленный с нарушением прав интеллектуальной собственности какого-либо лица. Типичный пример контрафакта — нанесение на товар чужого, более известного на рынке товарного знака или наименования фирмы-производителя. Цель таких действий понятна: продукцию известной фирмы реализовать на рынке гораздо проще. Понятие «контрафакт» носит юридический характер, при этом ключевое значение для отнесения предмета к контрафактному имеет ущемление авторских и других интеллектуальных прав в результате создания такого товара. Качество же товара при этом роли не играет. Контрафакт, в принципе, может быть очень неплохого качества — этим он отличается от фальсификата (фальсифицированными принято считать поддельные вещи низкого качества, выдаваемые за настоящие). Виды контрафакта Контрафакт весьма многообразен, его можно подразделить на несколько типов. Использование фирменного наименования или товарного знака, очень похожего на обозначение какой-либо из «раскрученных» марок. При таком контрафакте, как правило, в названии известной марки на этикетке меняются 1-2 буквы (к примеру, Salamandder вместо Salamander), в результате чего многие не обращают на это внимания и покупают контрафакт, полагая, что становятся обладателями фирменной вещи.Использование чужого логотипа без внесения в него изменений одновременно с копированием внешних черт товара. Контрафакт в такой форме встречается реже, чем предыдущий, поскольку факт правонарушения в данном случае налицо, а значит, и привлечь к ответственности распространителя гораздо проще.«Пиратство» — продажа копий музыкальных, художественных, литературных произведений без разрешения автора или правообладателя. В эту группу можно отнести и безвозмездный контрафакт — распространение таких произведений в сети Интернет.Применение изобретений, разработок (в т. ч. компьютерных программ), права на которые зарегистрированы на других лиц. ответственность за распространение контрафакта Распространители контрафакта могут быть привлечены к гражданско-правовой (имущественной), уголовной или административной ответственности. Санкции гражданско-правового характера заключаются в том, что: контрафакт изымается из оборота и уничтожается за счет правонарушителя;по выбору правообладателя распространитель контрафакта либо возмещает ему убытки, либо выплачивает компенсацию в сумме от 10 тыс. до 5 млн руб. (конкретный размер возмещения определяется судом при рассмотрении дела). Административная ответственность предусмотрена: за неправомерное использование товарного знака и других атрибутов, индивидуализирующих товар;оборот «пиратских» копий произведений;незаконное использование чужих изобретений.За совершение этих деяний грозят штрафные санкции (для граждан — штраф до 10 тыс. руб. или в размере двукратной стоимости незаконной продукции), а контрафакт подлежит конфискации. Если перечисленные деяния причинили серьезный ущерб (в большинстве случаев существенность ущерба оценивается на усмотрение суда), то нарушителю грозит не административная, а уголовная ответственность. За эти преступления суд может назначить штраф, обязательные или исправительные работы, либо лишение свободы (до 2 лет). При этом закон допускает, что за одно и то же деяние нарушитель может привлекаться одновременно и к гражданской, и к уголовной (или административной) ответственности.
1)var ma:array[1..3,1..3] of integer; i,j,t:integer; begin; randomize; readln(t); writeln('Matrix:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do begin; ma[i,j]:=random(10); write(ma[i,j]:4); ma[i,j]:=ma[i,j]*t; end; end; writeln; writeln('Final matrix:'); for i:=1 to 3 do begin; writeln; for j:=1 to 3 do write(ma[i,j]:4); end; end. 2)var ma:array of array of real; i,j,n,m,maxj,maxi:integer; max:real; begin; readln(n); readln(m); setlength(ma,n+1); for i:=1 to n do setlength(ma[i],m+1); max:=-2147483648; writeln('Matrix:'); for i:=1 to n do begin; writeln; for j:=1 to m do begin; ma[i,j]:=random(100)-50; write(ma[i,j]:4); if (ma[i,j]<0) and (ma[i,j]>max) then begin; max:=ma[i,j]; maxi:=i; maxj:=j; end; end; end; writeln; writeln('Max:',max); writeln('Строка:',maxi); write('Столбец:',maxj); end.
i,j,t:integer;
begin;
randomize;
readln(t);
writeln('Matrix:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
begin;
ma[i,j]:=random(10);
write(ma[i,j]:4);
ma[i,j]:=ma[i,j]*t;
end;
end;
writeln;
writeln('Final matrix:');
for i:=1 to 3 do
begin;
writeln;
for j:=1 to 3 do
write(ma[i,j]:4);
end;
end.
2)var ma:array of array of real;
i,j,n,m,maxj,maxi:integer;
max:real;
begin;
readln(n);
readln(m);
setlength(ma,n+1);
for i:=1 to n do
setlength(ma[i],m+1);
max:=-2147483648;
writeln('Matrix:');
for i:=1 to n do
begin;
writeln;
for j:=1 to m do
begin;
ma[i,j]:=random(100)-50;
write(ma[i,j]:4);
if (ma[i,j]<0) and (ma[i,j]>max) then
begin;
max:=ma[i,j];
maxi:=i;
maxj:=j;
end;
end;
end;
writeln;
writeln('Max:',max);
writeln('Строка:',maxi);
write('Столбец:',maxj);
end.