если ты хоть немного разбираешься в пк, то читай, иначе относи к мастеру.
проблема имеет несколько источников:
1) оперативная память, её контакты могли окислиться и из-за этого она не даёт работать компьютеру. попробуй достать её( перед этим обязательно вытащи провод из источника ! )
и осмотреть контакты, если это так и там имеется что-то подгоревшее или не такого цвета как все, то пройдись ластиком, но не сильно.
2) сбой в работе bios, есть круглая батарейка в материнской плате, осторожно вытащи её на пять минут и вставь обратно. попробуй перезагрузить конденсаторы. для этого в компьютере без питания нажми кнопку включения, потом попробуй включить компьютер.
3) сгорела видеокарта или материнская плата.
самый печальный исход, замена комплектующих.
(я написал далеко не все, но это самые распространённые источники проблемы)
Объяснение:
procedure squares();
var
a1, b1, a2, b2: real; //Переменные для катетов
s1, s2: real; //Переменные для площадей
mess: string;
begin
{Начальные значения}
write('Input a1: ');
readln(a1);
write('Input b1: ');
readln(b1);
writeln();
write('Input a2: ');
readln(a2);
write('Input b2: ');
readln(b2);
writeln();
// Вычисление площадей
s1 := 0.5 * a1 *b1;
s2 := 0.5 * a2 *b2;
// Вывод в консоль
if (s1 > s2) then mess:= 'The area of the 1st triangle is greater than the area of the 2nd one.'
else
if (s1 = s2) then mess:= 'Areas are equal'
else mess:= 'The area of the 2nd triangle is greater than the area of the 1st one.';
writeln('s1 = ', s1:8:2);
writeln('s2 = ', s2:8:2);
writeln(mess);
readln(); // удерживаем консоль
end;
procedure exampleFun();
var
x, y: real;
begin
{Начальные значения}
write('Input x: ');
readln(x);
writeln();
// Вычисление функции y
if (x < -5) then y := x
else
if (x < 3) then y := -x * x
else y := x * x * x;
// Вывод в консоль
writeln('y = ', y:8:2);
readln(); // удерживаем консоль
end;
begin
squares(); //Вызов 1-й процедуры
exampleFun(); //Вызов 2-й процедуры
end.