|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.12.2016, 21:20 | #1 |
Регистрация: 23.12.2016
Сообщений: 5
|
[Pascal] Вычисление значений функции для заданного диапазона
Вот задачи:
1. ло.jpg 2. Ввести одномерный массив A из 12 элементов. Определить в нём среднее геометрическое квадратов нечётных элементов. 3. Ввести одномерный массив A из N элементов. Каждый элемент в массиве чьё значение лежит в диапазоне [ 1; 10] − умножить на 5. Массив вывести до и после преобразования. 4. Ввести одномерный массив A , вывести его. Вычислить разность между суммой элементов, стоящих на четных местах, и суммой элементов, стоящих на нечетных местах. На полученную разность увеличить вторую половину массива. |
24.12.2016, 18:09 | #2 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,550
|
Ты попытался это сделать, компилятор выругался, и ты запросил помощи ? Что-то не видно листинга.
А иначе это называется: сделайте за меня, бо мне тока диплом нужен, науки эти -- ну-их-в-дупу. |
25.12.2016, 09:15 | #3 |
Я самый любопытный
Участник клуба
Регистрация: 24.07.2012
Сообщений: 1,949
|
1
Код:
Код:
Код:
|
25.12.2016, 11:08 | #4 |
Регистрация: 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. |
25.12.2016, 11:27 | #5 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,550
|
Вот это - другое дело, теперь можно сравнить свое творение с решением, напимер, newerow1989, понять, какие разделы Паскаля нужно перечесть. Не буду раздувать флейм и советовать посещать лекции - теперь это вроде не модно. Но что свой листинг надо форматировать и обрамлять тэгами [CODE] ( кнопка #) - это факт, а то людям, увидевшим такую капусту, и читать не захочется, а послать автора в 4 буквы Кстати, если нормально форматировать текст ( отступы сделать по букварю ) - и самому уже ошибки могут проясниться: вот тут begin с end-ами не совпадает, тут if с else не контачит и пр.
Последний раз редактировалось digitalis; 25.12.2016 в 11:29. |
25.12.2016, 11:58 | #6 |
Регистрация: 23.12.2016
Сообщений: 5
|
Спасибо тебе за все,и сайт у тебя тоже супер:3
|
25.12.2016, 13:41 | #7 |
Регистрация: 23.12.2016
Сообщений: 5
|
Просто первый раз с этим столкнулся и нигде об этом всем не слышал(о форматировании). Спасибо,возьму на заметку.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Для заданных значений аргумента Х вычислить значения суммы 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 |