Информатика, опубликовано 16.04.2019 08:00
Напишите программу для pascal к уравнению ax^2+bx+c=0
Ответ оставил: Гость
Program kv; var a,b,c,x1,x2,x,d: real; begin write ('input a b c => '); readln (a,b,c); if a = 0 then if b = 0 then begin writeln ('the equation is not compatible'); readln; halt end else begin x : =-c / b; writeln ('root x=' ,x: 8: 2); readln; halt end else begin d : =sqr (b) - 4 * a * c; if d< 0 then begin writeln ('the equation has no real roots'); readln; halt end else begin x: =-b /( 2 * a ); if d = 0 then begin writeln ('roots are equal x1=x2=', x: 8: 2); readln; halt end; x2: = sqrt (d)/(2*a); x1: = x2 + x; x2: = x - x2; writeln('roots: x1=',x1: 8: 2, ' x2= ',x2: 8: 2) endend; readln; end.
Ответ оставил: Гость
function ReadInteger(prompt: string): integer;
Выводит приглашение к вводу и возвращает значение типа integer, введенное с клавиатуры
function ArrRandom(n: integer := 10; a: integer := 0; b: integer := 100): array of integer;
Возвращает массив размера n, заполненный случайными целыми значениями
function Println(delim: string := ): sequence of T;
Выводит последовательность на экран, используя delim в качестве разделителя, и переходит на новую строку.
procedure Assert(cond: boolean; sourceFile: string := '; line: integer := 0);
Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется
Выводит приглашение к вводу и возвращает значение типа integer, введенное с клавиатуры
function ArrRandom(n: integer := 10; a: integer := 0; b: integer := 100): array of integer;
Возвращает массив размера n, заполненный случайными целыми значениями
function Println(delim: string := ): sequence of T;
Выводит последовательность на экран, используя delim в качестве разделителя, и переходит на новую строку.
procedure Assert(cond: boolean; sourceFile: string := '; line: integer := 0);
Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01