СРОЧНО.Вот код.Это программа не вся ,здесь даны формулы для вычисления массивов, которые и нужно найти.Написал функцию, вроде бы всё нормально, но не могу
10-11 класс
|
понять как присвоить вычисляемые значения массиву.Массивы Y(8), Z(10) , W(15) .Если что, то потом необходимо еще подсчитать общее количество в этих массивах.
program pr_10;
const b1 = 4;
b2 = 6;
c1 = 8;
c2 = 3;
d1 = 5;
d2 = 12;
var i,m:integer ; y,z,w:real;
function fY(i:integer):real;
begin
Y:=b1*sin(2*i)+exp((i-5)*ln(b2));
end;
function FZ(i:integer):real;
begin
Z:=c1*(i-4)+c2*sqr(sin(1.5*i));
end;
function FW(i:integer):real;
begin W:=d1*ln(0.1*i)+d2*exp((3)*ln(i-2.5));
end;
begin
for i:=1 to 8 do
begin
Ym[i]:= Y(i);
writeln('Y = ',y);
end;
end.
program pr_10;
uses crt;
const b1 = 4;
b2 = 6;
c1 = 8;
c2 = 3;
d1 = 5;
d2 = 12;
var i: integer;
Ym: array [1..8] of real; // в разделе переменных не были введены массивы
Zm: array [1..10] of real;
Wm: array [1..15] of real;
function fY(i: integer): real;
var Y: real; // внутренняя переменная функции
begin Y:=b1*sin(2*i)+exp((i-5)*ln(b2));
fY:=Y;
end;
function fZ(i: integer): real;
var Z: real;
begin Z:=c1*(i-4)+c2*sqr(sin(1.5*i));
fZ:=Z;
end;
function fW(i: integer): real;
var W: real;
begin W:=d1*ln(0.1*i)+d2*exp((3)*ln(i-2.5));
fW:=W;
end;
begin
clrscr;
for i:=1 to 8 do begin Ym[i]:= fY(i);
writeln('Y = ', Ym[i]:0:5);
end;
for i:=1 to 10 do begin Zm[i]:= fZ(i);
writeln('Z = ', Zm[i]:0:5);
end;
for i:=1 to 15 do begin Wm[i]:= fW(i);
writeln('W = ', Wm[i]:0:5);
end;
readkey;
end.
У тебя функция не возвращает значения?
И зачем ты 8 раз присваиваешь m:=8?
Ну так знаешь в чём дело?
Другие вопросы из категории
Во всех программах этого сайта на Паскале, когда нужно определить четность числа, используют MOD, хотя для этого есть специальная функция Odd. Эта функция не изучается на начальных этапах изучения Паскаля или есть другие причины?
Отдаю все свои баллы, т.к. меня из-за ника скоро выгонят с сайта, уже получил предупреждение.
Желаю всем успехов!
площадь чего находит паскаль? (жёлтой или чёрной фигур)
Unicode?
1)2^26 2)2^14 3)2^16 4)2^10
в этом числе количество нулей, единиц, двоек до девяток. Подсчитать общее количество цифр в этом числе
Читайте также
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
элементов массива, которые не четны и делятся на 3.
если n=10, A0=0.75, A1=1.6, A2=A3=...=A10=2.0; X изменяется с шагом h=0.2 от X1=0 дo X2=2.0.
шагом h.
Y=1/2lnx^2+1/x^2+2 - 1/2ln2/3
цикла (do ...while, while, for). В алгоритме и программе массивов не использовать.
Я здесь набросал все ,что мог, помогите доработать, написать до конца все эти операторы в одну программу,не получается.
#include <iostream>
#include <cstdlib>
#include <conio.h>
#include <math.h>
using namespace std;
int main()
{
float a,z,xn,xk,dx,R,max,min; float count=0,x;
a = 2.94;xn = 1.5;xk = 5.5;dx = 0.4;
while (xn <= xk)
for (x >= xn; x <= xk; x+=dx, dx = dx + 0.4)
{
do
{
z = a*pow((a*x*x*x*x*x*x*x/cos(a*a*a)+1,31),(1/5));
printf("X = %10f, Z = %10f \n", x, z);
dx = dx + 0.4;
}
while (x <= xk);
return 0;
}
{
max = x;min = z;
if (x > max) max = x;
if (z < max) min = z;
if (count > 2) count = 0;
if (count == 2) printf("X = %10f, Z = %10f \n", x, z);
count=0;
}
cout<<"max="<<max<<"\t min="<<min<<"\n";
cout<<"R="<<min-max<<"\n";
system("PAUSE");
return 0;
}