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

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

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

Татьяна Кабакова

4 года назад

14

Написать программу для вычисления дискриминанта d квадратного уравнения ax2 + bx + c = 0. Разработать тесты проверки правильности работы программы для вариантов, когда d>

0, d=0 и d<0.

Информатика

1 ответ:

slavkkin4 года назад

0 0

Выложу решение полного уровнения.

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

2. Расшифруйте слово НУЛТХСЁУГЧЛВ, закодированное с помощью шифра Цезаря.

Dragn1911 [24]

это - Криптография !!!

0 0

3 года назад

Составьте программу вычисления площади трапеции по сумме оснований и высоте Паскаль Помогите пожалуйста

Alisa

Var ab,h,s:real;
begin
write('a+b = '); readln(ab);
write('h = '); readln(h);
s:=ab/2*h;
writeln('S = ',s);
end.

Пример:
a+b = 10
h = 6
S = 30

0 0

4 года назад

При замене жесткого диска данные сотрутся

sayora [7]

Данные сохраняются на старом жестком диске

0 0

3 года назад

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

Помогите решить задачи на Паскаль abс!

Андрей Единов

1)var a:array [1..10] of integer;

i,c:integer;

begin

randomize;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(200);

write(a[i],' ');

if (a[i]>9) and (a[i]<100) then c:=c+1;

end;

writeln;

write('Количество двузначных элементов: ',c);

end.

2)var a:array [1..10] of integer;

i,c,min:integer;

begin

randomize;

min:=200;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(200);

write(a[i],' ');

if a[i]<= min then

begin

min:=a[i];

c:=i;

end;

end;

writeln;

write('Номер последнего минимального элемента: ',c);

end.

3)var a:array [1..10] of integer;

i,c,min:integer;

begin

randomize;

min:=200;

write('Массив: ');

for i:=1 to 10 do

begin

a[i]:=random(200);

write(a[i],' ');

if (a[i]mod 5=0) and (a[i]<min) then min:=a[i];

end;

writeln;

if min<200 then write('Минимальный элемент,кратный 5: ',min) else write('Нету такого элемента.');

end.

0 0

1 год назад

Музыкальный фрагмент был записан в формате стерео (двухканальная запись), оцифрован и сохранён в виде файла без использования сж

ZhenechkaFilinova [17]

Монозапись использует один канал, поэтому объем файла снизится вдвое. Но разрешение, которое вдвое выше исходного, снова увеличит объем файла до прежнего. Частота дискретизации в 1.5 ниже исходной и это в 1.5 раза уменьшит размер файла, т.е. вместо 30 Мбайт получим 30/1.5=<em>20 Мбайт.</em>

<u>Ответ:</u><em>20</em>

0 0

4 года назад