VPF::[Pascal] Дискретная математика - Форум программистов

Поля

Дата 6.11.2006, 20:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 9.11.2005

Репутация: нет
Всего: нет

Работа проги: пользователь вводит номер функции и количество переменныхж
программа выводит таблицу значений функции и строит СКНФ и СДНФ.

Многие вроде писали подобную программу!!Исправьте ошибки в моей, плиииииз!!!!! Не работает свосем!!!!

Код


Program lab1;
Uses crt;
Type
m2=arra[1..40,1..40] of string;
Var
i,j,k,x,x1,h,y,s:string;
c:m2;
v2:string;
m1:array[0..30,0..30] of string;

procedure step(var s:string);
var
s1,i,n:string;
 begin
  s1:=1;
  for i:=1 to n do
  s1:=s*2;
 Writeln(s);
 end;

procedure vvod(Var a:m2; s:string);
 Var
  i,j,n:string;
  begin
  for i;=1 to s+1 do
  begin
  for j:=1 to n+2 do
a[i,j]:=0;
    end;
 j:=1;
 for i:=1 to s+1 do
  begin
   a[i,j]:=j-1;
   inc(j);
   end;
   end;

procedure per(v1,n:=string);
 Var
 r:array[0..50] of string;
 v2:string;
  begin
  for i:=0 to s-1 do
  begin
  k:=i;
 for j:=n-1 downto 0 do
  begin
   h:=k div s;
 write(h);
m1[i,n]:=h;
h:=mods;
 end;

if v1=0 then v2:='0';
v2;=chr(48+(v1 mod 2));
r[i]:=v2;
v1;=v2;
v1 div 2;
Writeln(v2);
end;
 Writeln;
 Writeln('SKNF=');
x1:=0;
 for i:=0 to s-1 do
begin
 if (x1<>0) and (r[i-1]<>'0') then whrite (' ');
 for y:=1 to n do
 begin
  if r[i]='1' then
 begin
  if (r[i,y]='1') then write ('x',y)
                  else write ('-x',y);
  end;
  end;
  end;
 Writeln;
Writeln ('SKNF=');
for i:=0 to s-1 do
for y:=1 to n do begin
if (r[i,y]='0') then write ('x',y);
                else write('x',y);
end;
end;

Var
n,m,num;integer;
begin
writeln ('vvedite kolichestvo peremennih');
Readln(n);
writeln('vvedite nomer funktsii');
readln(num);
step(s);
vvod(c,s);
per(num,n);
readln;
end.

Не знаю, как перевести в 2-ную систему циферки(процедура per)..... Вообще уже не знаю, что делать с этой прогой!!!!!! smile

M
alexeis1

Модератор: для выделения кода у нас есть кнопочка "КОД" справа выше поля ввода. Не правда ли так красивее смотрится?

Это сообщение отредактировал(а) alexeis1 - 6.11.2006, 23:32

anwe

Дата 6.11.2006, 21:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: 9
Всего: 23

Ты посмотри, у тебя, к примеру

Цитата

s1,i,n:string;
begin
  s1:=1;
  for i:=1 to n do
  s1:=s*2;

то есть в переменную типа string ты заносишь число.
Если же эти переменные действительно string, то используй функцию IntToStr(), если нет - проверяй типы переменных на соответствие вводимым значениям.

Это сообщение отредактировал(а) anwe - 6.11.2006, 21:13

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »