В линейном массиве целых чисел на i-е мест вставить элемент равный корню квадратному из суммы квадратов двух указанных с клавиатуры элементов. Записать в
5-9 класс
|
паскале исправьте ошибки пожалуйста.
program zadacha;
var a:array [1..100] of integer;
i,n,b,c:integer;
s: real;
begin
write('кол. элементов');
readln(n);
write('элементы массива');
for i:=1 to n do
readln(a[i]);
write('b=');
readln(b);
write('c=');
readln(c);
s:=sqrt(c)+sqrt(b);
n:=n+1;
for i:=n downto n+1 do
a[i]:=a[i-1];
a[n]:=s;- вот не правильно
for i:=1 to n do
write(a[i]:6)
end.
Попробуй так, если в массиве толжен присутствовать корень, то он должен быть типа real)
program zadacha;
var a:array [1..100] of real;
i,n,b,c:integer;
s:real;
begin
write('êîë. ýëåìåíòîâ');
readln(n);
write('ýëåìåíòû ìàññèâà');
for i:=1 to n do
readln(a[i]);
write('b=');
readln(b);
write('c=');
readln(c);
s:=sqrt(c*c+b*b);
n:=n+1;
for i:=n downto n+1 do
a[i]:=a[i-1];
a[n]:=s;
for i:=1 to n do
writeln(a[i]:2:3);
readln;
end.
Комментарий удален
Другие вопросы из категории
человека вводится с клавиатуры
дцать-угольник с заданной длинной стороны и заливается случайным цветом.
У пользователя запрашивается количество фигурок.
На холст выводится указанное количество фигурок-треугольников, причем вненарисованного многоугольника фигурки, рисуются синим цветом, многоугольник серым.
1. Написать программу, в которой пользователь задает три стороны треугольника и которая выводит слово true, если треугольник равносторонний, и false, если не равносторонний.
2. Написать программу, в которой пользователь задает три стороны треугольника и которая выводит слово true, если треугольник равнобедренный, и false, если не равнобедренный.
Читайте также
В линейном массиве целых чисел b(40) заменить первые 10 элементов по формуле: b[i]=b[i]*3
«итог. сумма».
Задание 2.
Переменной Х присвоить значение 7. Переменной Р присвоить значение, равное квадрату Х. Вывести значения переменных Х и Р (через запятую). Значение Х увеличить на Х. Переменной Р присвоить значение, равное корню квадратному из Х. Вывести значения переменных Х и Р (через запятую).DIKTANT 2
Задание 1.
Значение переменной Х присвоить в программе. При неотрицательном значении Х переменной У присвоить значение, равное корню квадратному из Х. В противном случае, переменной У присвоить значение, равное квадрату Х. Вывести на экран значение Х и значение У.Задание 2.
Двум произвольным переменным присвоить произвольным образом соответственно 2 числа. Двум другим переменным присвоить значения, равные тангенсам двух предыдущих переменных. Вывести на экран значения всех переменных, а так же сумму значений двух последних переменных. помогите сделать пожэлементов массива.
3)задан массив из 9 целых чисел.Вывести на экран чётные элементы
2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива.
3. Массив из 5 целых чисел вводится с клавиатуры в строку. Найти сумму элементов массива, стоящих на чётных позициях. Вывести исходный массив и полученную сумму.
4. Массив из 40 целых чисел из промежутка [10,90] задается с помощью генератора случайных чисел. Найти сумму элементов массива, кратных n . Вывести исходный массив и полученную сумму.
Помогите кто в чем может.