{ Задача по информатике решить в паскале Имеется продуктовая база в которой можно
закупить партию товара по условиям минимальная стоимость , близость поставки ,
прочность товара Если товар удолетворяет - закупаем
Если ее удолетворяет - не закупаем
Мы вводим данные близость поставки, прочность товара, и минимальная стоимость
если все три условия выполняются ввыводим закупаем а
если не выполняются выводи не закупается}
type
WareData = record
MinPrice: integer;
Distance: integer;
Strength: real;
end;
var
Base, Client: WareData;
begin
Base.MinPrice := 4;
Base.Distance := 57;
Base.Strength := 0.25;
read(Client.MinPrice, Client.Distance, Client.Strength);
if (Client.MinPrice >= Base.MinPrice)
and (Client.Distance >= Base.Distance)
and (Client.Strength <= Base.Strength) then
writeln('Берем')
else
writeln('Не устраивает');
end.
// №1 а)
function Fact(n:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to n do
rez := rez * i;
Fact := rez;
end;
function Pow(a, x:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to x do
rez := rez * a;
Pow := rez;
end;
var
n, i:integer;
R:real;
begin
r := 0;
write('n = '); readln(n);
for i := 1 to n do
begin
r := r + Pow(-1, i mod 2) * (i + 1) / Fact(i);
end;
writeln('R = ', r);
end.
// №1 б)
function Fact(n:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to n do
rez := rez * i;
Fact := rez;
end;
function Summ(n:integer):real;
var
i:integer;
rez:real;
begin
rez := 1;
for i := 2 to n do
rez := rez + 1/i;
Summ := rez;
end;
var
n, i:integer;
R:real;
begin
r := 0;
write('n = '); readln(n);
for i := 1 to n do
begin
r := r + Fact(i)/Summ(i);
end;
writeln('R = ', r);
end.
// №2 а)
function Fact(n:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to n do
rez := rez * i;
Fact := rez;
end;
function Pow(a:real; x:integer):real;
var
i:integer;
rez:real;
begin
rez := 1;
for i := 1 to x do
rez := rez * a;
Pow := rez;
end;
var
n, i:integer;
R, x:real;
begin
r := 0;
write('n = '); readln(n);
write('x = '); readln(x);
for i := 1 to n do
begin
r := r + Pow(x, i) / Fact(i);
end;
writeln('R = ', r);
end.
// №2 б)
function Pow(a:real; x:integer):real;
var
i:integer;
rez:real;
begin
rez := 1;
for i := 1 to x do
rez := rez * a;
Pow := rez;
end;
var
n, i:integer;
R, x:real;
begin
r := 1;
write('n = '); readln(n);
write('x = '); readln(x);
for i := 1 to n do
begin
r := r * (i / (i + 1) - Pow(cos(x), i)) ;
end;
writeln('R = ', r);
end.
ДОлжно быть, это 3 вариант ответа