М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ksushaybff
ksushaybff
19.08.2021 04:45 •  Информатика

Найти ошибку ( в паскале выдает false) - это программа по решению квадратного уравнения program math; var a,b,c,x,x1,x2,d: real; begin readln(a,b,c); if a=0 then if b=0 then if c=0 then writeln('x-любое число') else writeln('корней нет') else writeln ('x=',x = -c/b) else if b=0 then if c=0 then writeln(x=0)else if (-c/a< 0) then writeln ('корней нет')else writeln(x=sqrt(-c/a)) else if c=0 then writeln (x1=0, x2=-b/a) else d: = b*b-4*a*c ; if (d< 0) then writeln ('корней нет') else if (d=0) then writeln (x=-b/(2*a)) else writeln (x1=(-b+sqrt(d))/2*a, x2=(-b-sqrt(d))/ 2*a) end.

👇
Ответ:
din46
din46
19.08.2021
{предлагаю немного другой алгоритм решения}
Program Math;
var
x1,x2,d,e,f, a, b, c: real;
begin
writeln('Решение квадратного уравнения(ax^2+bx+c=0).');
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
d:=sqr(b)-4*a*c;
writeln('вы ввели:');
writeln('a=',a:6:2);
writeln('b=' ,b:6:2);
writeln('c=',c:6:2);
writeln(' Дискриминант: D=b*b-4*a*c=',d:6:2);
if (d>0)
then begin
e:= (-b/(2*a));
f:= (sqrt(d)/(2*a));
writeln('D>= 0, значит корни действительные: ');
writeln('x1= ',(e-f):6:2);
writeln('x2= ',(e+f):6:2);
end;
if (d=0) then writeln('D=0, значит уравнение имеет 1 корень: x1= ',-b/2*a:6:2);
if (d<0) then writeln(' D<0, корней нет ');
end.
Найти ошибку ( в паскале выдает false) - это программа по решению квадратного уравнения program math
4,4(57 оценок)
Ответ:
СэмТV
СэмТV
19.08.2021
ответ в прикрепленном файле
4,8(7 оценок)
Открыть все ответы
Ответ:
maina342
maina342
19.08.2021
Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.
4,6(58 оценок)
Ответ:
ыооп
ыооп
19.08.2021

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

#include "stdafx.h"

#include "stdio.h"

#include <time.h>

#include <stdlib.h>

class vector

{

private:

int* m;

int size;

public :

vector(int n = 0);

vector(const vector &vector2);

~vector();

};

vector::vector( int n )

{

if (n < 0) n = 0;

size = n;

m = new int[n];

if(!m)

printf("Error");

else

m = NULL;

}

vector::vector(const vector &vector2)

{

size = vector2.size;

m = new int [size];

for(int i = 0; i<size;i++)

m[i] = vector2.m[i];

printf("kopia stvorena !");

}

vector::~vector()

{

delete[] m;

}

vector(int *m, int size)

{

srand(time(NULL))

if(!m)

printf("error")

else

for(int i = 0; i < size; i++)

m[i] = rand()% 99;

}

int main()

{

vector v1(45),

system("pause");

return 0;

}

Объяснение:

4,5(84 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ