Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
0 / 0 / 0
Регистрация: 26.05.2015
Сообщений: 7
1

Вывести на экран значения корней и квадратов для каждого элемента массива

26.05.2015, 22:34. Просмотров 2319. Ответов 3
Метки нет (Все метки)


Дан массив, который состоит из 5 целых чисел. Вывести на экран значения корней и квадратов для каждого элемента массива.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.05.2015, 22:34
Ответы с готовыми решениями:

Целочисленный массив. Вывести на экран значения корней и квадратов каждого из элементов массива
Введите с клавиатуры пять целочисленных элементов массива X. Выведите на экран значения корней и...

Выведите на экран значения корней и квадратов каждого из элементов массива
введите с клавиатуры пять целочисленных элемента массива X. выведите на экран значения корней и...

Выведите на экран значения корней и квадратов каждого из элементов массива
1.Введите с клавиатуры пять целочисленных элементов массива X. Выведите на экран значения корней и...

Массив. Выведите на экран значения корней и квадратов каждого из элементов массива
Вот программа:Введите с клавиатуры пять целочисленных элементов массива X. Выведите на экран...

3
Эксперт Pascal/Delphi
2359 / 1278 / 1484
Регистрация: 29.08.2014
Сообщений: 4,602
27.05.2015, 06:02 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
const
  n=5;
var
  a:array[1..n] of integer;
  i:integer;
begin
  write('BBeguTe MaccuB:');
  for i:=1 to n do read(a[i]);
  writeln('No':4,'A':10,'sqrt(A)':10,'A*A':10);
  for i:=1 to n do begin
    write(i:4,a[i]:10);
    if a[i]<0 then writeln('undefined':10,a[i]*a[i]:10)
    else writeln(sqrt(a[i]):10:6,a[i]*a[i]:10);
  end;
  readln;
end.
1
Эксперт Pascal/Delphi
6554 / 4412 / 4713
Регистрация: 05.06.2014
Сообщений: 21,681
27.05.2015, 18:01 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
{Дан массив, который состоит из 5 целых чисел. Вывести на экран значения
корней и квадратов для каждого элемента массива.}
var
  a:array [1..5] of integer;
  i:integer;
begin
  randomize; 
  for i:=1 to 5 do
    begin
      a[i]:=random(100)+1;
      writeln(a[i]:8,sqrt(a[i]):8:2,sqr(a[i]):8);
    end;
  readln;
end.
0
0 / 0 / 0
Регистрация: 26.05.2015
Сообщений: 7
27.05.2015, 18:03  [ТС] 4
Спасибо большое.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.05.2015, 18:03

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Выведите на экран значения квадратов и квадратных корней каж¬дого элемента массива
Выведите на экран значения квадратов и квадратных корней каж¬дого элемента массива. Добавлено...

Массив значения корней и квадратов каждого из элементов массива
Введите с клавиатуры в массив Х пять целочисленных значений. Введите их в одну строку через...

Вывод на экран значений корней и квадратов каждого из элементов массива
Введите с клавиатуры пять целочисленных элементов массива X. Выведите на экран значения корней и...

Для каждого массива вывести индексы тех элементов, значения которых больше значения последующего элемента
Привет, помогите пожалуйста с лабораторной. Уже кое-что сделано 1)Для каждого массива вывести...

Как для каждого значения одного массива вывести все значения второго массива?
Как для каждого значения одного массива вывести все значения второго массива? Есть два массива:...

Вывести на экран квадрат каждого элемента массива, если массив равен 15
Помогите пожалуйста. вывести на экран квадрат каждого элемента массива если массив равен 15


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.