Решить , построив таблицу истинности: компьютер вышел из строя (нет изображения на экране монитора), однако неизвестно какое устройство не работает (монитор, видеокарта или оперативная память

во - первых рассмотрим простые высказывания:

 

м - монитор неисправен

в - видеокарта неисправна

о - оперативная память неисправна

 

во вторых: запишем на языке логики возможные предположения: (m v b) --> o и m --> b

пусть  f(м,в,о) =  (m v b) --> o и m --> b

составляем таблицу истинности:

м     в     о     m --> b      

0       0     0         1

1       0     1         1

0       0     0         1

1       1     1         0

0       0     0         1

0       1     1         0

1       1     0         0

1       1     1         1

1       0     0         0

1       0     0         0

0       1     1         1

1       1     0         1

0       1     1           0

1       1     1           1

0       0     1           0

1       1     0           1

1       1     0           1

1       0     1           1                

анализ таблицы показывает, что сложное высказывание истинно во всех случаях, когда м – истинно, т.е. вероятнее всего  неисправен именно монитор.

// pascalabc.net 3.0, сборка 1144 от 16.01.2016 type   point=record   x,y: real   end; function getpoint(c: char): point; begin   writeln('введите координаты точки ',c,': ');   read(result.x,result.y) end; function line(a,b: point): real; begin   result: =sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)) end; function sqtriangle(pa,pb,pc: point): real; begin   var a: =line(pb,pc);   var b: =line(pa,pc);   var c: =line(pa,pb);   if (a+b> c) and (a+c> b) and (b+c> a) then begin       var p: =(a+b+c)/2;       result: =sqrt(p*(p-a)*(p-b)*(p-c))       end   else result: =0 end; begin   var a: =getpoint('a');   var b: =getpoint('b');   var c: =getpoint('c');   writeln('площадь треугольника равна ',sqtriangle(a,b,c)) end. тестовое решение: введите координаты точки a: -5 3.18 введите координаты точки b: 1.45 6.2 введите координаты точки c: 6 -5.93 площадь треугольника равна 45.98975

Const   nn=20; var   d: array[1..nn,1..nn] of integer;   zr,zc: array[1..nn] of boolean; { строки и столбцы }   n,m,i,j,nr,nc: integer; begin   write('укажите n и m: '); read(n,m);   randomize;   writeln('и с х о д н ы й    м а с с и в');   nr: =0; nc: =0;   for i: =1 to n do zr[i]: =false;   for j: =1 to m do zc[j]: =false;   for i: =1 to n do begin       for j: =1 to m do begin           d[i,j]: =random(21)-10;           write(d[i,j]: 4);           if d[i,j]=0 then begin zr[i]: =true; zc[j]: =true end;           end;       writeln       end;   for i: =1 to n do       if zr[i] then           for j: =1 to m do d[i,j]: =0;   for j: =1 to m do       if zc[j] then           for i: =1 to n do d[i,j]: =0;   writeln('м а с с и в - р е з у л ь т а т');   for i: =1 to n do begin       for j: =1 to m do write(d[i,j]: 4);       writeln       end end. пример укажите n и m: 7 12 и с х о д н ы й    м а с с и в   -10    8  -4  -3  -8    9    1  -6    4  -6    5  -1   -8  -2  -8  -7  -3  -1    4    4    5  -1    7  -6     8  -5    8  -1  -8    9    8  -4  -6  -2    0    4     7  -4    8  -9    3    2    9    3    3    6    9    4     9  -3    8    8  -4    9    7    2 -10  -8  -1    8   -10  -8  -8    6  -4  -2  -6    4    8  -1  -3  -9     2    2  -9  -7    0  -6    2  -9  -4  -6    0    5 м а с с и в - р е з у л ь т а т   -10    8  -4  -3    0    9    1  -6    4  -6    0  -1   -8  -2  -8  -7    0  -1    4    4    5  -1    0  -6     0    0    0    0    0    0    0    0    0    0    0    0     7  -4    8  -9    0    2    9    3    3    6    0    4     9  -3    8    8    0    9    7    2 -10  -8    0    8   -10  -8  -8    6    0  -2  -6    4    8  -1    0  -9     0    0    0    0    0    0    0    0    0    0    0    0