Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
2 / 2 / 0
Регистрация: 07.10.2010
Сообщений: 43
1

Каждый элемент, больший 10, заменить на его квадратный корень.

20.12.2010, 15:33. Показов 1152. Ответов 2
Метки нет (Все метки)

Дан массив вещественных чисел.
а) Каждый элемент, больший 10, заменить на его квадратный корень.
6) Все элементы массива с четными номерами заменить на их абсолютную величину.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.12.2010, 15:33
Ответы с готовыми решениями:

Каждый элемент, больший 10, заменить на его квадратный корень
дан массив вещественных чисел.Каждый элемент, больший 10, заменить на его квадратный корень.

Каждый элемент массива, больший 10, заменить на его квадратный корень
Дан массив вещественных чисел.Каждый элемент,больший 10,заменить на его квадратный корень.

Каждый элемент массива, больший 10, заменить на его квадратный корень
Дан массив вещественных чисел.Каждый элемент,больший 10,заменить на его квадратный корень.

Каждый элемент массива, больший 10, заменить на его квадратный корень
Дан массив вещественных чисел. Каждый элемент,больший 10,заменить на его квадратный корень.

2
2 / 2 / 0
Регистрация: 07.10.2010
Сообщений: 43
24.12.2010, 11:25  [ТС] 2
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}




procedure TForm1.Button1Click(Sender: TObject);
var
a:array [1..5] of integer;
i:integer;
max:integer;
e:integer;
begin
max:=10;
for i:=0 to 4 do
begin
a[i]:=strtoint(memo1.Lines[i]);
if a[i]>max then
memo1.Lines[i]:=floattostr(sqr(a[i]));
end;
edit1.Text:=inttostr(a[i]);

end;
end.



там ошибку выдает что за проблема?
0
151 / 149 / 44
Регистрация: 09.02.2010
Сообщений: 407
24.12.2010, 11:42 3
Pascal
1
2
3
4
5
6
a:array [1..5] of integer; // или тут массив от 0 до 4 обьяви, то есть array of [0..4] of integer;
...
begin
...
for i:=0 to 4 do // или беги по i от 1 до 5 
begin
А вообще, неплохо бы ошибки сюда выкладвывать, что пишет то?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2010, 11:42

Дан массив вещественных чисел.Каждый элемент больше 10 заменить на его квадратный корень.
Помогите новичку с недельным опытом=) Дан массив вещественных чисел.Каждый элемент больше 10...

Заменить каждый элемент массива на квадратный корень данного элемента
Заменить каждый элемент массива на корень квадратный данного элемента. (если можно, укажите весь...

Дан массив. Каждый его элемент, больший 4, заменить на его квадрат
дан массив. каждый его элемент,больший 4, заменить на его квадрат помогите пожалуйста

Дан массив. Каждый его элемент, больший 4, заменить на его квадрат
дан массив. каждый его элемент,больший 4, заменить на его квадрат


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

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

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