ilyatamurov
?>

Составить блок-схему. program h7; const n=15; p=3.14; var x: array [0..n] of integer; y: array [0..n] of real; i, h, k: integer; a, s, max, min, t: real; f: text; begin randomize; k: =0; s: =0; for i: =0 to n do begin x[i]: =trunc(15*random); end; for i: = 0 to n do write(x[i]); for i: =0 to n do if (x[i]< 1) then y[i]: =0.5*(2+sqr(sin(x[i]-p/+exp(x[i]) else if(x[i]> =1) and (x[i]< =10) then y[i]: =4*exp(0.62*ln(*sqrt(2*x[i])+1 else if (x[i]> 10) then y[i]: =5*exp(-x[i])+2*sqr(ln(x[i])); for i: = 0 to n do write (y[i]: 5: 1); for i: = 0 to n do s: =s+y[i]; a: =s/i; max: =y[0]; min: =y[0]; for i: = 0 to n do; if y[i]/0.3> a then begin if y[i]> max then begin max: =y[i]; h: =i; end else if y[i]

Информатика

Ответы

gresovanatalya

например такая блок схема для всего кода

arina2403423

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

uses crt;

Var A, B, C, D, X, X1, X2 : Real;

Begin

Writeln ('Введите коэффициенты уравнения (A, B, C) ');

readln(a,b,c);

If A=0 Then

  If B=0 Then

             If C=0 Then Writeln('X - любое число')

                 Else Writeln('Корней нет! ')

       Else

       Begin

       X:=-C/B;

       Writeln('X=',X:8:3);

       End

  Else

  Begin

  D:=B*B-4*A*C;

  If D<0 Then Writeln ('Корней нет! ')

     Else

     Begin

     X1:=(-B+SQRT(D))/2/A;

     X2:=(-B-SQRT(D))/2/A;

     Writeln ('X1=', X1:8:3, ' X2=',X2:8:3);

     End;

  End;

End.

Объяснение:

Это код для решения квадратных уавнений

kovalenko262
Верные: скомпилировать программу на c++ для некоторой архитектуры x можно только на компьютере с архитектурой x.для запуска программы, код которой был написан на интерпретируемом языке, на компьютере должен быть установлен интерпретатор этого языка.код программы, написанный на языке, который компилируется в байт код виртуальной машины, достаточно скомпилировать однажды, чтобы программу можно было запускать на любой платформе, где есть соответствующая виртуальная машина.код программы, написанный на интерпретируемом языке, можно без предварительной компиляции запустить на любой платформе, где есть интерпретатор этого языка.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Составить блок-схему. program h7; const n=15; p=3.14; var x: array [0..n] of integer; y: array [0..n] of real; i, h, k: integer; a, s, max, min, t: real; f: text; begin randomize; k: =0; s: =0; for i: =0 to n do begin x[i]: =trunc(15*random); end; for i: = 0 to n do write(x[i]); for i: =0 to n do if (x[i]< 1) then y[i]: =0.5*(2+sqr(sin(x[i]-p/+exp(x[i]) else if(x[i]> =1) and (x[i]< =10) then y[i]: =4*exp(0.62*ln(*sqrt(2*x[i])+1 else if (x[i]> 10) then y[i]: =5*exp(-x[i])+2*sqr(ln(x[i])); for i: = 0 to n do write (y[i]: 5: 1); for i: = 0 to n do s: =s+y[i]; a: =s/i; max: =y[0]; min: =y[0]; for i: = 0 to n do; if y[i]/0.3> a then begin if y[i]> max then begin max: =y[i]; h: =i; end else if y[i]
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

saltikovaPavlenko
Varvara
Карапетян
VladimirovichKazakova1202
ksankaaleks611
ziyaevak
gip5362
Vladimirovich351
kettikis
ilukianienko458
ielienakozlova696
nash-crimea2019
kim-1971
Алина Ракитин1730
TatiyanaBe20135263
▲