0 / 0 / 0
Регистрация: 14.06.2012
Сообщений: 7
1

Дан массив. Составить программу расчета квадратного корня из любого элемента массива

14.06.2012, 20:09. Показов 7144. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
4) Дан массив. Составить программу расчета квадратного корня из любого элемента массива.

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

Дан двумерный массив. составить программу вывода на экран любого элемента второй строки массива.
помогите Добавлено через 55 секунд 1. Дан двумерный массив. составить программу вывода на...

Расчет квадратного корня из любого элемента массива
Дан массив. Составить программу: а)расчета квадратного корня из любого элемента массива;...

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

Составить схему алгоритма и программу определения корня квадратного значений элементов массива
Составить схему алгоритма и программу определения корня квадратного значений элементов массива D и...

1
59 / 59 / 52
Регистрация: 19.11.2010
Сообщений: 218
15.06.2012, 11:22 2
Лучший ответ Сообщение было отмечено mokko как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Program SSS;
Uses crt;
 
Type
  Mtr=array [1..50] of integer;
 
Procedure GetMas(Var A:Mtr; N:integer);
Var i:integer;
begin
    for i:=1 to N do
    begin
      Write('A[',i,']= ');
      Read(A[i]);
    end;
end;
 
Procedure SHowMas(A:Mtr; N:integer);
Var i:integer;
begin
  for i:=1 to N do
    Write(A[i]:5,' ');
end;
 
Function VerySimple(A:Mtr; i:integer):integer;
begin
  Result:=Sqr(A[i]);
end;
 
Var X:Mtr;
    N,K:integer;
Begin
   repeat
     Write('Ââåäèòå N ');
     ReadLn(N);
   until N > 0;
   GetMas(X,N);
   WriteLn('Ìàññèâ X: ');
   SHowMas(X,N);
   WriteLn;
   repeat
     Write('Ââåäèòå íîìåð ýëåìåíòà ìàññèâà ');
     ReadLn(K);
   until (K > 0) and (K<=N);
   Writeln('Îòâåò: ',VerySimple(X,K));
end.
1
15.06.2012, 11:22
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.06.2012, 11:22
Помогаю со студенческими работами здесь

Составить программу расчета суммы двух любых элементов главной диагонали квадратного массива
Составить программу расчета суммы двух любых элементов главной диагонали квадратного массива.

Дан массив А из 10 элементов. Составить программу для нахождения минимального элемента массива и его индекса
Дан массив А из 10 элементов. Составить программу для нахождения минимального элемента массива и...

Составить программу вывода на экран любого элемента массива по его индексу
11.13. Составить программу вывода на экран любого элемента массива по его индексу.

Составить программу вычисления значения квадратного корня из числа
2. Скласти програму обчислення значення квадратного кореня з числа а&gt;0 з точністю ,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru