Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.12.2016, 21:20   #1
Diglot
 
Регистрация: 23.12.2016
Сообщений: 5
Сообщение [Pascal] Вычисление значений функции для заданного диапазона

Вот задачи:
1. ло.jpg
2. Ввести одномерный массив A из 12 элементов. Определить в нём
среднее геометрическое квадратов нечётных элементов.
3. Ввести одномерный массив A из N элементов. Каждый элемент в
массиве чьё значение лежит в диапазоне [ 1; 10] − умножить на 5. Массив
вывести до и после преобразования.
4. Ввести одномерный массив A , вывести его. Вычислить разность
между суммой элементов, стоящих на четных местах, и суммой элементов,
стоящих на нечетных местах. На полученную разность увеличить вторую
половину массива.
Diglot вне форума Ответить с цитированием
Старый 24.12.2016, 18:09   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

Ты попытался это сделать, компилятор выругался, и ты запросил помощи ? Что-то не видно листинга.
А иначе это называется: сделайте за меня, бо мне тока диплом нужен, науки эти -- ну-их-в-дупу.
digitalis вне форума Ответить с цитированием
Старый 25.12.2016, 09:15   #3
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

1
Код:
uses Math;

function f(x:real):real;
begin
   If x<0 then
      Result:=x*x*x*x+4*x*x-7*x else
   If x>0 then
      Result:=1/(x*x+Power(8,x)+12) else
      Result:=0;
end;

const dx=0.25;
var x,y:real;
begin
   x:=-3-dx;
   Repeat
      x:=x+dx;
      y:=f(x);
      If y>=0 then
         Writeln(x:5:2,'  ',y:8:5);
   Until x>=2;
   Readln;
end.
3
Код:
const n=14;
var a:array[1..n] of integer;
    i:integer;
begin
   For i:=1 to n do
   begin
      Write('a[',i,'] = ');
      Readln(a[i]);
   end;
   Writeln;
   For i:=1 to n do
      Write(a[i]:2,'  ');
   Writeln;
   For i:=1 to 10 do
      a[i]:=a[i]*5;
   For i:=1 to n do
      Write(a[i]:2,'  ');
   Writeln;
   Readln;
end.
4
Код:
const n=14;
var a:array[1..n] of integer;
    i,s1,s2:integer;
begin
   For i:=1 to n do
   begin
      Write('a[',i,'] = ');
      Readln(a[i]);
   end;
   Writeln;
   For i:=1 to n do
      Write(a[i]:2,'  ');
   Writeln;
   s1:=0;
   s2:=0;
   For i:=1 to n do
      If i mod 2=0 then
         s2:=s2+a[i] else
         s1:=s1+a[i];
   Write(s2,' - ',s1,' = ');
   s1:=s2-s1;
   Writeln(s1);
   For i:=n div 2+1 to n do
      a[i]:=a[i]*s1;
   For i:=1 to n do
      Write(a[i]:2,'  ');
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 25.12.2016, 11:08   #4
Diglot
 
Регистрация: 23.12.2016
Сообщений: 5
По умолчанию

Вот то,что я составил,в каждой ошибки. И я не думаю,что по моим можно было бы сделать заново.
Program L321;
Var
x,x0,f,k:real;
N,i:integer;
Begin
cls;
writeln('введите k');
readln(k);
x0:=0;
N:=((7-x0)/0.5);
for i:=1 to N do
begin
x:=x0+0.5*i;
if not((exp(ln(x)*3)+(exp(ln(x)*2))+26 *x+24)=0) then
begin
f:=k/(exp(ln(x)*3)+(exp(ln(x)*2))+26*x+2 4);
writeln('f(',x:8:2,')=',f:8:2);
end
else
begin
f:=exp(ln(2)*x);
writeln('f(',x:8:2,')=',f:8:2);
end;
end;
End.

Program t2;
Var
y,x0,N:real;
x,k:integer;
Begin
x0:=-3;
cls;
writeln('введите x');
readln(x);
N:=((2-x0)/0.25);
for x:=0+0.25*k to N do
if x<0 then
begin
y:=exp(ln(x)*4)+4*exp(ln(x)*2)-7*x;
writeln('y=');
end
else
begin
if x>0 then
begin
y:=1/(exp(ln(x)*2)+8*exp(ln(8)*x)+12);
writeln('y=',y);
end
else
begin
if x=0 then
begin
y:=0;
writeln('y=',y);
end
end
end;
End.

Program t4;
const Nmass=100;
Var
A:array[1..Nmass] of integer;
imin,imax,N,i,c,P:integer;
max,min:real;
Begin
cls;
writeln('введите N');
readln(N);
max:=A[1];
imax:=1;
min:=1;
for i:=1 to N do
begin
if A[i]>max then
begin
min:=A[i];
imin:=i;
end;
end;
P:=A[imin]*A[imax];
writeln('произведение max и min=',P);
if A[imin-1]=0 then
begin
if A[imax+1]=0 then
writeln('нет элементов перед max и min')
else
begin
c:=A[imax+1];
A[i]:=c;
A[i]:=P;
writeln('число после max',A[i]);
end
end
else
begin
c:=A[imin];
A[imin]:=A[imin-1];
A[i]:=c;
writeln('число перед min=',A[i]);
end
End.
Diglot вне форума Ответить с цитированием
Старый 25.12.2016, 11:27   #5
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

Вот это - другое дело, теперь можно сравнить свое творение с решением, напимер, newerow1989, понять, какие разделы Паскаля нужно перечесть. Не буду раздувать флейм и советовать посещать лекции - теперь это вроде не модно. Но что свой листинг надо форматировать и обрамлять тэгами [CODE] ( кнопка #) - это факт, а то людям, увидевшим такую капусту, и читать не захочется, а послать автора в 4 буквы Кстати, если нормально форматировать текст ( отступы сделать по букварю ) - и самому уже ошибки могут проясниться: вот тут begin с end-ами не совпадает, тут if с else не контачит и пр.

Последний раз редактировалось digitalis; 25.12.2016 в 11:29.
digitalis вне форума Ответить с цитированием
Старый 25.12.2016, 11:58   #6
Diglot
 
Регистрация: 23.12.2016
Сообщений: 5
По умолчанию

Спасибо тебе за все,и сайт у тебя тоже супер:3
Diglot вне форума Ответить с цитированием
Старый 25.12.2016, 13:41   #7
Diglot
 
Регистрация: 23.12.2016
Сообщений: 5
По умолчанию

Просто первый раз с этим столкнулся и нигде об этом всем не слышал(о форматировании). Спасибо,возьму на заметку.
Diglot вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Для заданных значений аргумента Х вычислить значения суммы S и функции Y или Z. Вычисление S произвести с точностью E Марина1986 C/C++ Сетевое программирование 1 08.05.2013 13:35
Вычисление значений функции для нескольких значений аргументов и параметров kolychii Помощь студентам 0 08.10.2012 15:49
Вычисление значений функции Dmitry_Web Помощь студентам 3 25.01.2012 10:41
Вычислить значение функции для заданных значений аргументов. Pascal. Xeon332 Фриланс 11 10.10.2010 09:57