В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Kikinaxxxxxx
Kikinaxxxxxx
27.02.2023 22:36 •  Информатика

Delfi 2 Визначити робітника з мах зарплатнею й надрукувати усі відомості про нього.

Показать ответ
Ответ:
гена81
гена81
14.03.2020 04:14

если я правильно понял и функция sin в квадрате и cos в квадрате то

по идее она будет равна 1 в любом случае

var

x,y:real;

begin

x:=-3.14;

while x<=3.14 do 

begin

y:=sin(x)*sin(x)+cos(x)*cos(x);

writeln(x:8:2,y:8:2);

x:=x+0.2;

end;

end.

вот результат выполнения

-3.14 1.00
-2.94 1.00
-2.74 1.00
-2.54 1.00
-2.34 1.00
-2.14 1.00
-1.94 1.00
-1.74 1.00
-1.54 1.00
-1.34 1.00
-1.14 1.00
-0.94 1.00
-0.74 1.00
-0.54 1.00
-0.34 1.00
-0.14 1.00
0.06 1.00
0.26 1.00
0.46 1.00
0.66 1.00
0.86 1.00
1.06 1.00
1.26 1.00
1.46 1.00
1.66 1.00
1.86 1.00
2.06 1.00
2.26 1.00
2.46 1.00
2.66 1.00
2.86 1.00
3.06 1.00

если брать 2x тогда

var

x,y:real;

begin

x:=-3.14;

while x<=3.14 do 

begin

y:=sin(2*x)+cos(2*x);

writeln(x:8:2,y:8:2);

x:=x+0.2;

end;

end.

и результат

-3.14 1.00
-2.94 1.31
-2.74 1.41
-2.54 1.29
-2.34 0.97
-2.14 0.49
-1.94 -0.07
-1.74 -0.61
-1.54 -1.06
-1.34 -1.34
-1.14 -1.41
-0.94 -1.26
-0.74 -0.91
-0.54 -0.41
-0.34 0.15
-0.14 0.68
0.06 1.11
0.26 1.36
0.46 1.40
0.66 1.22
0.86 0.84
1.06 0.33
1.26 -0.23
1.46 -0.76
1.66 -1.16
1.86 -1.38
2.06 -1.39
2.26 -1.17
2.46 -0.77
2.66 -0.25
2.86 0.31
3.06 0.82

0,0(0 оценок)
Ответ:
лошарикуни
лошарикуни
13.01.2021 05:55

1) элемент с номером K заменяется на 2

var

a:array [1..20] of integer;

i,n,k:integer;

begin

readln(n);

for i:=1 to n do

begin

a[i]:=random(50);

write(a[i]:3);

end;

writeln;

readln(k);

a[k]:=2;

for i:=1 to n do

write(a[i]:3);

end.

2) элемент вставляется в массив остальные элементы сдвигаются вправо

var
a: array [1..20] of integer;
i, n, k: integer;

begin
readln(n);
for i := 1 to n do
begin
a[i] := random(50);
write(a[i]:3);
end;
writeln;
readln(k);
for i:=n+1 downto k do a[i]:=a[i-1];
a[k] := 2;
for i := 1 to n+1 do
write(a[i]:3);
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота