3 года назад

Помогите написать программный код для решения квадратного уравнения в Паскале с блок схемой

1 ответ:

0 0

Составьте рассказ от имени земледельца, как прошёл его день. Включите в рассказ описание одежды земледельца, его дома, обеда, работы на поле (например, пахоты.)Пожалуйста

Читайте также

При каких значениях чисел (x; y) высказывание (X * Y > 0) ᴧ (Y – X > 0) V (X + Y < 0) Принимает ЛОЖНОЕ значение? □(3; 5

arno-

Ответ: -1; 2.______________
________________________________

0 0

1 год назад

Написать программу вычисления значения выражений на паскале а) а=1,7×(4,9-7,23:4,8)+3,4 б)b=1,2314+8,85⁵ в)с=0,00354/(347+526,71

Xion [454]

===== PascalABC.NET =====

begin

var a := 1.7 * (4.9 - 7.23 / 4.8) + 3.4;

var b := 1.2314 + 8.85 ** 5;

var c := 0.00354 / (347 + 526.71) * 0.21;

PrintLn(a, b, c)

end.

Результаты:

9.169375 54290.7953553125 8.50854402490529E-07

0 0

1 год назад

Как записать программу в VBA которой в блоке ввода данных будет вводиться фамилия и имя , а блоке вывода фраза " Приветствую Фам

tweenki

Var
fam,name,otch:string;
begin
write('Введите фамилию -> ');
readln(fam);
write('Введите имя -> ');
readln(name);
write('Введите отчество -> ');
readln(otch);
writeln('Ваше Фамилия И. О. = ',fam,' ',name[1],'.',otch[1],'.');
readln;
end.

0 0

1 год назад

Логическое выражение 7<x<20 определяет принадлежность точки x интервалу (7;20):При x=16 значение этого выражения ложь или

ната 13 [1.7K]

Правда, так как 16>7 и 16<20

0 0

4 года назад

задать двухмерный массив рандомно

Almaz Gumerov

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
end.

Пример
Количество строк и столбцов в массиве: 7 8
*** Исходный массив [7,8] ***
88 9 -44 13 81 97 -65 -20
16 -37 -33 -34 -69 -64 12 -58
-36 -80 -99 61 -59 -86 -18 83
-77 -1 85 -41 -49 -12 43 84
-64 32 36 -85 -18 -42 49 -6
71 -13 28 33 55 -94 12 13
5 -10 -5 -27 23 -37 -48 74
--------------------------------

0 0

4 года назад