Школьные Знания.com
Какой у тебя вопрос?
10 - 11 классыИнформатика 8+4 б
Дан массив вещественных чисел:
Все элементы с нечетными номерами заменить на их квадратный корень
Отметить нарушение РРПП 01.04.2013
ответы и объяснения
Проверенный ответ
Tlalok
Tlalok Почетный грамотей
var
a:array[1..100] of real;
i, n:integer;
begin
write('Введите количество элементов '); readln(n);
for i := 1 to n do
begin
write('a[', i ,'] = ');
readln(a[i]);
end;
writeln;
writeln('Исходный массив:');
for i := 1 to n do
begin
write(a[i], ' ');
if i mod 2 = 1 then
a[i] := sqrt(a[i]);
end;
writeln;
writeln;
writeln('Преобразованный массив:');
for i := 1 to n do
write(a[i]:0:2, ' ');
writeln;
end.
program uravnenie;
var
a, b, c: integer;
D, x1, x2: Real;
begin
writeln('Р Е Ш Е Н И Е К В А Д Р А Т Н О Г О У Р А В Н Е Н И Я');
writeln('ax^2 + bx + c = 0');
writeln('Введите коэффициент a');readln(a);
if (a <> 0) then begin
writeln('Введите коэффициент b');readln(b);
writeln('Введите коэффициент c');readln(c);
D := sqr(b) - 4 * a * c;
if (D > 0) then
begin
x1 := (-b - sqrt(D)) / (2 * a);
x2 := (-b + sqrt(D)) / (2 * a);
writeln('x1 = ', x1 : 5 : 4);
writeln('x2 = ', x2 : 5 : 4);
end
else if (D = 0) then
begin
x1 := -b / (2 * a);
writeln('x = ', x1 : 5 : 4);
end
else
writeln('Данное уравнение не имеет корней')
end
else
writeln('Данное уравнение не является квадратным')
end.
