Студентам с лабораторными сюда

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

17.11.2008, 11:55

AgS

Новичок

Регистрация: 16.11.2008

Сообщений: 23

Провел на форуме:
84043

Репутация: 11

Народ срочно помогите плиз, надо на паскале написать 4 проги:

Составить программу:
для определения среднего арифметического и среднего геометрического трёх действительных чисел

Составить программу для вычисления:

Код:

program 1
uses vincrt;
 var x,y,a,s,z: real;
  begin
  write ('x='), readln (x);
  write ('y='), readln (y);
  a:=cos(1+cos(x-y)/(x/y)+sqr(y))
  s:=cos(sin(ln(abs(x/y))))
  if x*y < 1/2 then z:=a*a*a
                     else if x*y >= 1/2 then z:=s*s*s
write ('z:=')
end

составить программу, которая определяет принадлежит ли точка с координатами (x,y) заштрихованной области.
Координаты точки ввести с клавиатуры:

тут скорее не знаю формулу для вычисления программы - саму прогу допёр как написать примерно.

Составить программу для вычисления таблицы значений функции f(x) для x принадлежащего к [a,b]
с заданным шагом изменения x: