16.05.2010, 17:00
|
|
Познающий
Регистрация: 09.08.2009
Сообщений: 39
С нами:
8818983
Репутация:
75
|
|
написать на паскале
составить алгоритм вычисления значения функции z = V * a * | b |, где a-среднее арифметическое положительных элементов b-среднее арифметическое отрицательных элементов данной линейной таблице x, содержащей k действительных чисел. для вычисления среднего арифметического воспользоваться вспомогательным алгоритмом, что в перечне своих аргументов содержит величину, которая указывает на то, среднее арифметическое которых нужно определить.
с меня +++++
|
|
|
16.05.2010, 17:19
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 127
С нами:
8912059
Репутация:
249
|
|
Сообщение от mr_walker
написать на паскале
тема процедуры и функции
определить значение функции y = f (x) на промежутке [a; b] с шагом h используя для вычисления значения функции - подпрограммы функции
дано:
a.) 0.1 * tg (x)-sin (4x) a =- 2 * pi b = 2 * pi h = 0.5
b.) | 3x-cos (x) | / (x-9) a =- 7 b = 7 h = 0.75
Код:
Код:
program Tabulirovanie_funczii;
function fA(x: real):real;
begin
fA := 0.1 * (sin(x) / cos(x)) - sin(4*x);
end;
function fB(x: real):real;
begin
fB := ABS(3*x - cos(x)) / (x - 9);
end;
procedure WriteHeader;
begin
writeln;
writeln(' x y');
readln;
end;
var
a, b, h, x: real;
begin
writeln('0.1 * tg (x)-sin (4x) a =- 2 * pi b = 2 * pi h = 0.5');
WriteHeader;
a := -2 * Pi;
b := 2 * Pi;
h := 0.5;
x := a;
while x <= b do
begin
writeln(x:6:4, ' ', fA(x):6:4);
x := x + h;
end;
readln;
writeln('| 3x-cos (x) | / (x-9) a =- 7 b = 7 h = 0.75');
WriteHeader;
a := -7;
b := 7;
h := 0.75;
x := a;
while x <= b do
begin
writeln(x:6:4, ' ', fB(x):6:4);
x := x + h;
end;
readln;
end.
Результат работы:
Код:
0.1 * tg (x)-sin (4x) a =- 2 * pi b = 2 * pi h = 0.5
x y
...
-5.2832 0.9125
-4.7832 1.6896
-4.2832 -1.2079
-3.7832 0.4693
-3.2832 0.5223
-2.7832 -0.9531
-2.2832 0.4037
-1.7832 1.2147
-1.2832 -1.2510
-0.7832 -0.0907
-0.2832 0.8765
0.2168 -0.7405
0.7168 -0.1838
1.2168 1.2586
1.7168 -1.2314
2.2168 -0.6617
2.7168 0.9465
3.2168 -0.2888
3.7168 -0.6803
4.2168 1.1015
4.7168 -22.6128
5.2168 -1.0829
5.7168 0.7047
6.2168 0.2557
| 3x-cos (x) | / (x-9) a =- 7 b = 7 h = 0.75
x y
-7.0000 -1.3596
-6.2500 -1.2950
-5.5000 -1.1868
-4.7500 -1.0391
-4.0000 -0.8728
-3.2500 -0.7148
-2.5000 -0.5825
-1.7500 -0.4718
-1.0000 -0.3540
-0.2500 -0.1858
0.5000 -0.0732
1.2500 -0.4432
2.0000 -0.9166
2.7500 -1.4679
3.5000 -2.0794
4.2500 -2.7781
5.0000 -3.6791
5.7500 -5.0427
6.5000 -7.4094
Сообщение от mr_walker
написать на паскале
составить алгоритм вычисления значения функции z = V * a * | b |, где a-среднее арифметическое положительных элементов b-среднее арифметическое отрицательных элементов данной линейной таблице x, содержащей k действительных чисел. для вычисления среднего арифметического воспользоваться вспомогательным алгоритмом, что в перечне своих аргументов содержит величину, которая указывает на то, среднее арифметическое которых нужно определить.
с меня +++++
Код:
Код:
program Funcziia;
const
k = 10;
V = 1;
var
LinArrayX: array[1..k] of real;
intA: Integer;
a, b: real;
function fZ(aa, bb: real):real;
begin
fZ := V * aa * ABS(bb);
end;
function GetMiddleArithmetic(IsThisA: boolean):real;
begin
if IsThisA then
begin
for intA := 1 to K do
if LinArrayX[intA] >= 0 then
a := a + LinArrayX[intA];
GetMiddleArithmetic := a;
end
else
begin
for intA := 1 to K do
if LinArrayX[intA] < 0 then
b := b + LinArrayX[intA];
GetMiddleArithmetic := b;
end;
end;
begin
writeln('Tabliza znachenii X:');
writeln;
randomize;
for intA := 1 to k do
begin
LinArrayX[intA] := Random(k) - k/2;
writeln('X[', intA, '] = ', LinArrayX[intA]:6:4);
end;
readln;
a := 0;
b := 0;
a := GetMiddleArithmetic(True);
b := GetMiddleArithmetic(False);
writeln('a = ', a:6:4);
writeln('b = ', b:6:4);
writeln('funcziia Z = ', fZ(a, b):6:4);
readln;
end.
Результат работы:
Код:
Tabliza znachenii X:
X[1] = 0.0000
X[2] = -5.0000
X[3] = -2.0000
X[4] = 1.0000
X[5] = -5.0000
X[6] = 0.0000
X[7] = 2.0000
X[8] = 2.0000
X[9] = 4.0000
X[10] = 0.0000
a = 9.0000
b = -12.0000
funcziia Z = 108.0000
Tabliza znachenii X:
X[1] = 3.0000
X[2] = -2.0000
X[3] = 4.0000
X[4] = -4.0000
X[5] = -4.0000
X[6] = -3.0000
X[7] = 3.0000
X[8] = 2.0000
X[9] = -4.0000
X[10] = -3.0000
a = 12.0000
b = -20.0000
funcziia Z = 240.0000
Последний раз редактировалось Dosia; 16.05.2010 в 17:58..
|
|
|
|
16.05.2010, 23:29
|
|
Новичок
Регистрация: 16.05.2010
Сообщений: 9
С нами:
8415466
Репутация:
0
|
|
помогите с заданием оч нада
1)в динамическом массиве лент определить количество лент, которые не содержат ни одной цифры
2)в целочисленного массиве каждый его элемент изменить, оставив значимыми лишь четыре младшие биты его двоичного представления (остальные битов нулевые)
|
|
|
|
помогите решить задачу на Delfi |
17.05.2010, 21:30
|
|
Новичок
Регистрация: 28.02.2010
Сообщений: 6
С нами:
8526386
Репутация:
0
|
|
помогите решить задачу на Delfi
Дан одномерный числовой массив разработать проект
а) позволяющий формировать двумерный массив включающий эти числа их квадрат куб и четвертую степень с сохранением в файле
б) вывод даных на экран
в) поиск результатов по исходному числу
г)вывод результатов на экран
|
|
|
|
17.05.2010, 23:28
|
|
Новичок
Регистрация: 15.05.2010
Сообщений: 26
С нами:
8417343
Репутация:
5
|
|
Необходимо решения задачи на чистом С++ 
Постановка задачи
По индивидуальному заданию создать функцию для обработки символьных строк. За образец брать библиотечные функции обработки строк языка С, но не применять их в своей функции. Предусмотреть об¬работку ошибок в задании параметров и особые случаи. Разработать два варианта заданной функции — используя традиционную обработку мас¬сивов и используя адресную арифметику.
Функция Reverse(s)
Назначение: изменение порядка символов в строке s на противо¬положный. |
|
|
|
18.05.2010, 00:21
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 272
С нами:
8850336
Репутация:
330
|
|
To ArkNet:
Набросал по быстрому:
Код:
//////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////////
#include <iostream>
using std::cout;
using std::endl;
//////////////////////////////////////////////////////////////////////////////////////////////
char * mySrtCpy( char *, const char * );
//////////////////////////////////////////////////////////////////////////////////////////////
char * myStrCat( char *, const char * );
//////////////////////////////////////////////////////////////////////////////////////////////
size_t myStrLen( const char * );
//////////////////////////////////////////////////////////////////////////////////////////////
int main( int argc, char * argv[] )
{
cout << "myStrLen( \"test\" ) = " << myStrLen( "test" ) << endl;
char testVar1[50];
char testVar2[] = "test";
mySrtCpy( testVar1, testVar2 );
cout << testVar1 << endl;
char testVar3[100] = "abc";
char testVar4[] = "dew";
myStrCat( testVar3, testVar4 );
cout << endl << testVar3;
return 0;
}
//////////////////////////////////////////////////////////////////////////////////////////////
size_t myStrLen( const char *string )
{
int i = 0;
for( ; i < string[ i ]; i++ );
return i;
}
//////////////////////////////////////////////////////////////////////////////////////////////
char * mySrtCpy( char *s1, const char *s2 )
{
for( ; ( *s1 = *s2 ) != '\0'; s1++, s2++ );
return s1;
}
//////////////////////////////////////////////////////////////////////////////////////////////
char * myStrCat( char *s1, const char * s2 )
{
size_t size = myStrLen( s1 );
for( int i = 0; ( s1[ size ] = s2[ i ] ); i++, size++ );
return s1;
}
//////////////////////////////////////////////////////////////////////////////////////////////
Если хотите избежать работы со строками в стиле С ( хотя в задании сказано сделать что то на подобие такого ), то можее использовать класс string, будет все гораздо удобнее. |
|
|
|
18.05.2010, 00:24
|
|
Новичок
Регистрация: 15.05.2010
Сообщений: 26
С нами:
8417343
Репутация:
5
|
|
Ins3t Большое спасибо...
|
|
|
|
19.05.2010, 11:36
|
|
Новичок
Регистрация: 15.05.2010
Сообщений: 26
С нами:
8417343
Репутация:
5
|
|
Построить модель аналого-цифрового преобразователя (АЦП), которая работает в реальном времени. Процесс, который дискретизуется, моделируется программой (программным блоком), который выполняет циклическое вычисление функции y=F(x), где x - номер итерации. Преобразователь моделируется программой, которая выполняет с заданной частотой (в реальном времени) прерывание процесса, считывание и запоминание текущего значения функции. Запомнить не меньше 80 значений функции. Обеспечить наглядное представление результатов работы "АЦП".
Индивидуальное задание
функция — y=50*(sin(x/10)+cos(x/8))+R+150; R — в диапазоне 0 — 10; частота — 36.4 Гц.
|
|
|
|
19.05.2010, 21:16
|
|
Новичок
Регистрация: 27.08.2008
Сообщений: 19
С нами:
9318429
Репутация:
35
|
|
помогите плиз задачу решить на delphi :
Полином в степени М.найти его корни на отрезке А В
Последний раз редактировалось Dr.zomber; 19.05.2010 в 21:38..
|
|
|
|
19.05.2010, 22:40
|
|
Познающий
Регистрация: 13.12.2007
Сообщений: 56
С нами:
9689730
Репутация:
51
|
|
Товарищи, помогите на паскале замутить вот это:
----------------------------------------------------------------
1.Напечатать таблицу значений функций sin x и tg x на отрезке [0,3] с шагом 0.1. Значения x печатать с одной цифрой в дробной части, значения синуса – с пятью, а значения тангенса – в экспоненциальной форме.
----------------------------------------------------------------
2. Имеется нетипизированный файл длиной 50 байт. Вывести его содержимое на экран. Скопировать его содержимое в другой файл с помощью оператора FOR..DOWNTO..DO. Длина блоков 2 байта. В цикле выводить содержимое каждого скопированного блока.
Здесь что-то уже что смог, то сделал, но сделано с помощью оператора FOR..TO..DO, а нужно FOR..DOWNTO..DO:
uses crt;
var
inp,out:file;
s:string;
i,j,k,n,tmp:integer;
begin
clrscr;
write('Enter filename: ');
{writeln ('proverka’);
Readln;}
readln(s);
assign(inp,s);
reset(inp,1);
assign(out,'output.txt');
rewrite(out,1);
j:=1;
for i:=1 to filesize(inp) div 2 do
begin
blockread(inp,tmp,2,j);
write(tmp);
blockwrite(out,tmp,2,j);
readln;
end;
close(inp);
close(out);
writeln('нажмите любую клавишу для выхода');
readln;
end.
----------------------------------------------------------------
3. const n=10;
type number=1..n;
matr=array [number, number] of real;
num=set of number;
Составить программу, использующую функцию sum(A, s1, s2) для вычисления суммы тех элементов матрицы A, номера строк и столбцов которых принадлежат соответственно непустым множествам s1 и s2 типа num.
----------------------------------------------------------------
4.Имеются линейные однонаправленные списки:
type
p=^item;
item=record
data:real;
reference 
end;
Написать программу, которая переносит в конец непустого списка L его первый элемент.
Вот нужно исправить код под задание:
program zad1;
uses crt;
type
p=^item;
item=record
data:integer;
reference ;
end;
var
a,i:integer;
b,temp,temp2 ;
begin
clrscr;
randomize;
{zapolnyaem spisok dannymi}
for i:=1 to 10 do
begin
if i=1 then begin {esli pervii element spiska}
b^.data:=random(100);
b^.reference:=nil; {to ukazatel prisvaivaem 0}
end
else begin {esli ne pervii element}
temp:=b; {to sohranyaem ukazatel na predydushii element vo vremennoi peremennoi}
new(b); {sozdaem novii element spiska}
b^.data:=random(100); {zapolnyaem pole data}
b^.reference:=temp; {prisvaivaem ukazatel na predidushii element}
end;
end;
{vivodim spisok na ekran}
temp:=b; {sm vishe}
while temp<>nil do { poka ne dostignut pervii element spiska s ukazatelem=nil}
begin
writeln(temp^.data); {vivodim soderzhmoe polya data}
temp:=temp^.reference; {perehodim k sleduyushemu elementu}
end;
writeln;
write('vvedite znachenie elementa, kotoryi hotite udalit, a =');
readln(a);
{udalyaem element is spiska}
temp:=b;
while temp<>nil do
begin
temp2:=temp^.reference; {prisvaivaem vremennoi peremennoi temp2 znachenie sleduushego elementa spiska}
{sravnivaem s a, esli ravno, to zamenyaem ukazatel elementa temp1 na ukazatel elementa temp2}
if (temp2^.data = a) then temp^.reference:=temp2^.reference;
temp:=temp^.reference; {perehodim k sleduyushemu elementu}
end;
{snova vivodim spisok na ekran}
temp:=b;
while temp<>nil do
begin
writeln(temp^.data);
temp:=temp^.reference;
end;
readkey;
end.
----------------------------------------------------------------
Помогите чем можете.)
Последний раз редактировалось SHAXID; 19.05.2010 в 23:08..
|
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Комбинированный вид
