F=3X1-2X2 Max
2x1 + x2 ≤11
-3x1 +2x2 ≤10
3x1+4x2 ≤20
X1 ≥0 , x2 ≥0
Решить или убедиться в неразрешимости задачи линейного программирования, исходящего из его геометрических интерпретаций, перевести во все виды задачи и решить графическим способом

привет помогите устранить проблему
на ноуте стоит виста, в паскале не отображается полноекранный режим, выбивает "система не поддерживает полноекранный режим", из-за этого не показывает графику. можно чтото сделать? надо ли ставить ХР?

^ Большое спасибо за статью и исходники!

Hi!
Может кто видел, или же у кого то есть программка на Turbo Pascal`е Моделирование движения математического маятника, в различных условиях.

Возможно ли обменяться с вашим сайиом ссылками???
мой сайт: turbo-pascal.ru
Заранее спасибо!!!

Доброго времени суток.
Ответьте пожалуйста на пару вопросов
1. Как перенести exeшник с программой в графическом режиме на другой компьютер, чтобы она там заработала?
2. Как сделать так, чтобы DELAY одинакого работал на компьютерах с разными скоростями
Зараннее спасибо

Здравствуйте! Я написала программу поиска с помощью хеширования, посмотрите её пожалуйста, а то мне её завтра сдавать
program pr;

const N=100;

type
t_inform=string[15];
p_t_familia=^t_familia;
t_familia=record
info: t_inform;
chislo: integer;
next: P_t_familia;
end;

t_tabl=array[1..N] of p_t_familia;

var
T: t_tabl;
f:text;
S:string;

function C(info:t_inform):word;
begin
C:=length(info)+ord(info[1])+ord(info[2])+ord(info[3]);
end;

function H(key:word):word;
begin
H:=((key*9) mod N)+1;
end;

function H1(key:word; i:word): word;
begin
if i<N then H1:=i+1 else H1:=1;
end;

procedure ReadFam;
var n:integer;
i,key:word;
p:p_t_familia;
Begin
n:=0;
assign(f, ''text.txt'');
reset(f);
while not Eof(f) do
begin
readln(f, S);
key:=C(S);
i:=H(key);
new(p);
p^.next:=T[i];
T[i]:=p;
T[i]^.info:=S;
n:=n+1;
T[i]^.chislo:=n;
end;
close(f);
end;


procedure Familia (v_info:t_inform);
var
key,i:word; p:p_t_familia;
begin
key:=C(v_info);
i:=H(key);
p:=T[i];
while (p<>nil) and (p^.info<>v_info) do
p:=p^.next;
if (p=nil) then begin
writeln(''’Такой фамилии нет''); end

else begin
writeln(T[i]^.info);
writeln(T[i]^.chislo);
end
end;

begin
ReadFam;
familia(''Trofimov'');
readln;
end.

Здравстуйте!Помогите пожалуйста! Нужно написать программу, которая изображает на экране дисплей график функции y=Acos(sin(x)) (A принимает значения:-1; 0.5; 1; 1.5; x:=[-3.2;3.2]).

Что же вы так Борис...Столько времени тянули и не помогли...

Здравствуйте, помогите мне пожалуйста с программой поиска с использованием хеширования. Если можно, то сделать как базу данных. Заранее спасибо!)))

Борис что вы прислали на почту???????

Борис я уточнил условие задачи посмотрите

Борис как скоро вы дадите ответ?извените за наглость.

Борис а можно ли составить программу табулирования двух переменных одновременно? функция таже. если можно напишите с выводом таблицы на экран и в файл

Здраствуйте!
Помогите пожалуйста: надо написать программу для вычисления чисел бернулли.