Задать вопрос!

Задать вопрос!

Все категории

4 года назад

5

Ax^2 + bx + c = 0.Решите пожалуйста его в паскале.Только можно без этих строк writeln('x1 = ', x1:2:2); writeln('x2 = ', x2:2:2)

; мы их еще не проходили)

Информатика

1 ответ:

Галина Менделеева4 года назад

0 0

Ответ в прикрепленном файле

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

16. Составить алгоритм и написать решение задачи на Паскале: Вычислить формулу с фотографии, где х - произвольное число, введенн

Кристина Критинина

Формула
y=(2x-17√(x-7))/|3x-12|
Программа
Program y
var x, y: real
BEGIN
write ('Vvedite x');
readln (x);
y=(2*x-17*sqrt(x-7))/abs(3*x-12);
writeln ("y = ", y);
END.

0 0

1 год назад

Прочитать ещё 2 ответа

Используя операции div и mod найти сумму цифр случайного трехзначного числа. На экран должно быть выведено само число и сумма ци

Борис Маркович [1]

Тебе в помощь способ Paskal

0 0

4 года назад

Черепашке был дан для исполнения следующий алгоритм: Повтори 360 [Вперёд 30 Направо 60]. Какая фигура появится на экране? 1) пр

Рпк

Получится правильный шестиугольник — фигура с 360° : 60° = 6 углами и углом 180° - 60° = 120°.

(Повтори 360 [...] — повторяет 360 раз то, что в скобках, потом в цикле чертит линию длиной 30 и потом поворачивает на 60°).

0 0

4 года назад

Составьте программу запроса с клавиатуры 2-х чисел, нахождения частного от деления большего числа на меньшее и печати частного и

STOP [6]

Var a,b:integer;
begin
read(a,b);
if a > b then writeln(a/b, a)
else writeln(b/a, b);
end.

0 0

4 года назад

Вводиться файл из натуральных чисел. Требуется отсортировать числа в файле в порядке возрастания.

Кирилл 1 [7]

<em><u>Замечание:</u></em> данные в файле должны быть записаны по одному числу в строке.

const
m=100; { максимальное количество чисел в файле }
var
f:Text;
i,j,n,k:integer;
a:array[1..m] of integer;
begin
{ читаем данные из файла в массив }
Assign(f,'SuperFile.txt'); Reset(f);
i:=0;
while not Eof(f) do begin Inc(i); Readln(f,a[i]) end;
Close(f);
n:=i;
{ сортируем массив по возрастанию методом пузырька }
for i := 1 to n-1 do
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin k := a[j]; a[j] := a[j+1]; a[j+1] := k end;
{ заполняем файл из массива }
Rewrite(f);
for i:=1 to n do Writeln(f,a[i],' ');
Close(f)
end.

0 0

4 года назад