Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
14.04.2010, 07:50
|
|
Познающий
Регистрация: 10.12.2009
Сообщений: 33
Провел на форуме:
19460
Репутация:
0
|
|
Сообщение от EndLeSSDre@M
вот держи! откомпилил! все робит!
PHP код:
uses crt;
const n=5;
var
a:array[1..n,1..n] of real;
x:array[1..n] of real;
i,j,k,l:integer;
sum,g,p:real;
begin
clrscr;
l:=1;
writeln('Massiv');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=exp(ln(2)*(i-j))*abs(i-4)+3*ln(3)/ln(abs(sqr(i)+exp(ln(j)*3)));
write(a[i,j]:4:1);
sum:=sum+a[i,j];
end;
x[i]:=sum;
sum:=0;
writeln;
end;
writeln;
write('X(');
for i:=1 to n do
begin
write(x[i]:1:1,';');
end;
write(')');
writeln;
for i:=1 to n do
begin
for k:=1 to i do
begin
for j:=1 to k do
begin
l:=l*j;
end;
p:=x[k]/l;
l:=1;
end;
sum:=sum+sin(x[i])-p;
end;
g:=ln(2)/ln(abs(sum));
writeln;
writeln('G= ',g:3:3);
readln;
end.
СПАСИБИЩЕ, но у меня та же проблема пишет, это наверное Паскаль мой глючит..
|
|
|
14.04.2010, 09:01
|
|
Познающий
Регистрация: 13.05.2008
Сообщений: 33
Провел на форуме:
333145
Репутация:
6
|
|
Сообщение от 7on
С этим помогите ище плиз и все!!!
 хелп плиз
|
|
|
|
14.04.2010, 17:58
|
|
Новичок
Регистрация: 18.08.2009
Сообщений: 2
Провел на форуме:
14923
Репутация:
0
|
|
Информация о хранящихся на складе товарах состоит из: 1) инвентаризационного номера; 2) наименование
товара; 3) количества в штуках; 4) цены; 5) даты поставки. Напишите структуру, описывающую эту
информацию на языке Си.
Помогите пожалуйста, с меня +
|
|
|
|
14.04.2010, 18:43
|
|
Познающий
Регистрация: 10.12.2009
Сообщений: 33
Провел на форуме:
19460
Репутация:
0
|
|
1. Вычислить элементы квадратной матрицы (и=1, 2,..5; j = 1,2,..5) по заданной формуле
2. Используя элементы матрицы вычислить элементы вектора (и =1, 2,..5). Сформировать вектор Х(х1,х2,х3..х5), каждый элемент которого определяется как квадрат наибольшего элемента строки матрицы.
3. Вычислить значение функции G согласно формулы |
|
|
|
14.04.2010, 19:08
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Сообщение от TPAXTOP
1. Вычислить элементы квадратной матрицы (и=1, 2,..5; j = 1,2,..5) по заданной формуле
2. Используя элементы матрицы вычислить элементы вектора (и =1, 2,..5). Сформировать вектор Х(х1,х2,х3..х5), каждый элемент которого определяется как квадрат наибольшего элемента строки матрицы.
3. Вычислить значение функции G согласно формулы
хоть я и пизд*ц злой щас... но все таки сделал:
PHP код:
uses crt;
const n=5;
var
a:array[1..n,1..n] of real;
x:array[1..n] of real;
i,j,k:integer;
max,sum,g,p:real;
begin
clrscr;
p:=1;
writeln('Massiv');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=exp(ln(2)*(i-j))+sin(i*j)/exp(ln(i+j)*3);
write(a[i,j]:4:1);
end;
sum:=0;
writeln;
end;
for i:=1 to n do
begin
max:=a[i,1];
for j:=1 to n do
begin
if a[i,j]>max then max:=a[i,j];
end;
x[i]:=sqr(max);
end;
writeln;
write('X(');
for i:=1 to n do
begin
write(x[i]:1:1,';');
end;
write(')');
writeln;
for i:=1 to n do
begin
for k:=1 to i do
begin
sum:=ln(2)/ln(abs(x[k]))
end;
sum:=sum+x[i];
p:=p*sum;
end;
g:=p;
writeln;
writeln('G= ',g:3:3);
readln;
end.
|
|
|
|
14.04.2010, 21:32
|
|
Познающий
Регистрация: 10.02.2009
Сообщений: 40
Провел на форуме:
59352
Репутация:
0
|
|
Помогите пожалуйста реализовать на Си!
Дан динамический двумерный массив удалить из него строки в которых есть ноль.
|
|
|
|
14.04.2010, 23:42
|
|
Познающий
Регистрация: 10.12.2009
Сообщений: 33
Провел на форуме:
19460
Репутация:
0
|
|
Сообщение от EndLeSSDre@M
хоть я и пизд*ц злой щас... но все таки сделал:
PHP код:
uses crt;
const n=5;
var
a:array[1..n,1..n] of real;
x:array[1..n] of real;
i,j,k:integer;
max,sum,g,p:real;
begin
clrscr;
p:=1;
writeln('Massiv');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=exp(ln(2)*(i-j))+sin(i*j)/exp(ln(i+j)*3);
write(a[i,j]:4:1);
end;
sum:=0;
writeln;
end;
for i:=1 to n do
begin
max:=a[i,1];
for j:=1 to n do
begin
if a[i,j]>max then max:=a[i,j];
end;
x[i]:=sqr(max);
end;
writeln;
write('X(');
for i:=1 to n do
begin
write(x[i]:1:1,';');
end;
write(')');
writeln;
for i:=1 to n do
begin
for k:=1 to i do
begin
sum:=ln(2)/ln(abs(x[k]))
end;
sum:=sum+x[i];
p:=p*sum;
end;
g:=p;
writeln;
writeln('G= ',g:3:3);
readln;
end.
Ты спаситель прям, СПАСИБО!!!
|
|
|
|
14.04.2010, 23:56
|
|
Новичок
Регистрация: 24.03.2009
Сообщений: 18
Провел на форуме:
147876
Репутация:
12
|
|
Ребят, пока еще не приходилось иметь дело с Си. помогите разобрать код пошагово.
Могу понять, что там что-то с деревьями, обход или что-то такое..
#include "stdafx.h"
#include <stdlib.h>
#include <string.h>
#define count 4
struct Tree
{
char *key;
Tree**child;
};
Tree*Root;
void Vsglad(Tree*);
void View_tree(Tree*,int);
int _tmain(int argc, _TCHAR* argv[])
{
Root = new Tree;
Root->key = new char[50];
Root->child = new Tree*[count];
for(int i=0;i<count;i++)Root->child[i]=NULL;
printf("Please enter root of the tree");
gets(Root->key);
Vsglad(Root);
return 0;
}
void Vsglad(Tree*ptr)
{
Tree*ptrN;
char mychoice;
int i;
do
{
system("cls");
system("echo 1 Посмотрите...");
system("echo 2 Пройдемте...");
system("echo 3 Добавьте...");
system("echo 4 Назад...");
system("echo q Выходите...");
View_tree(Root,1);
scanf("%c",&mychoice);
switch(mychoice)
{
case '1':
puts(ptr->key);
system("pause");
continue;
case '2':
system("echo Введите номер ветви");
printf("\n0<i<%d ",count);
scanf("%d",&i);
if(ptr->child[i]==NULL)
{
system("Тут ничего нет");
system("pause");
continue;
}
Vsglad(ptr->child[i]);
continue;
case '3':
char New_word[50];
int link;
printf("Please enter a new element of tree: ");
scanf("%s",New_word);
printf("number of link ");
scanf("%d",&link);
ptrN = new Tree;
ptrN->key = new char[50];
ptrN->child = new Tree*[count];
strcpy(ptrN->key,New_word);// ptrN->key = New_word
for(int i=0;i<count;i++)ptrN->child[i]=NULL;
ptr->child[link] = ptrN;
continue;
case '4':return;
case 'q':exit(1);
}
}while(mychoice!='q');
}
void View_tree(Tree*ptr,int glubina)
{
int n=0,i;
printf("%s\n",ptr->key);
while(1)
{
if(n==count)
{
n--;
if(ptr->child[n]==NULL)
{
return;
}
else
{
for(i=0;i<glubina;i++)printf("---");
printf("%d ",n);
glubina++;
View_tree(ptr->child[n],glubina);
glubina--;
n++;
}
return;
}
if(ptr->child[n]!=NULL)
{
for(i=0;i<glubina;i++)printf("---");
printf("%d ",n);
glubina++;
View_tree(ptr->child[n],glubina);
glubina--;
n++;
}else
{
n++;
continue;
}
}
}
|
|
|
|
15.04.2010, 09:59
|
|
Познающий
Регистрация: 13.05.2008
Сообщений: 33
Провел на форуме:
333145
Репутация:
6
|
|
Сообщение от 7on
С этим помогите ище плиз и все!!!
VISUAL BASSIC 6 !!!
|
|
|
|
15.04.2010, 12:25
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344
Репутация:
259
|
|
Сообщение от 7on
VISUAL BASSIC 6 !!!
блин ты распиши нормально, а то ниче не понятно че там нужно делать... откуда че берется... че за Z вообще, сначала формула для него, потом еще пишешь Где Z =... нормально кароче все распиши по пунктикам, тогда сделаю
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
