Массивы

@Ларисик · Регистрация: 10.06.2010

Author24 — интернет-сервис помощи студентам

Помогите решить, завтра зачет((

@Igor8 · 10.06.2010, 23:19

2 задача

Delphi

var
  Form1: TForm1;
  R:array of real;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var n,i:integer;
begin
  n:=2;
  SetLength(R,n);
  for i:=0 to Length(R)-1 do
    begin
      ListBox1.Items.Add('S='+floattostr(3.14*sqr(r[i]))+' при R='+floattostr(r[i]));
    end;
end;

Добавлено через 13 минут
1 задача

Delphi

var
  Form1: TForm1;
  R:array of real;
 
  implementation
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
var n,i:integer;
C:real;
begin
  C:=0;
  n:=6;
  SetLength(R,n);
  for i:=0 to ((Length(R) div 2)-1) do
    begin
     C:=C+r[i];
    end;
  ListBox1.Items.Add('C='+floattostr(C));
  C:=0;
   for i:=(Length(R) div 2) to (Length(R)-1) do
    begin
     C:=C+r[i];
    end;
  ListBox1.Items.Add('D='+floattostr(C));
end;

@Ларисик · 10.06.2010, 23:20 **[ТС]**

А мне надо в консоль апликейшен (console Application) Очень буду благодарна)

@Igor8 · 10.06.2010, 23:33

1 задача

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 var R:array of real;
 n,i:integer;
C:real;
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
 
begin
 
   C:=0;
  n:=6;
  SetLength(R,n);
  for i:=0 to ((Length(R) div 2)-1) do
    begin
     C:=C+r[i];
    end;
  writeln('C='+floattostr(C));
  C:=0;
   for i:=(Length(R) div 2) to (Length(R)-1) do
    begin
     C:=C+r[i];
    end;
  writeln('D='+floattostr(C));
 
 
end;
 
end.

Добавлено через 2 минуты
2 задача

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 var R:array of real;
n,i:integer;
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
 
begin
 
   n:=2;
  SetLength(R,n);
  for i:=0 to Length(R)-1 do
    begin
      writeln('S='+floattostr(3.14*sqr(r[i]))+' при R='+floattostr(r[i]));
    end;
 
   
end;
 
end.

@Ларисик · 10.06.2010, 23:40 **[ТС]**

Я конечно глупая, но не настолько, вставила текст в дельфи, он во первых задержку экрана не делает( надо readln вставить было), ответ не выходит, ты мне ток какой то скелет написал, все время результат равен 0(( Помогите с нормальным решением.

@Igor8 · 10.06.2010, 23:42

Дак сама заполни массив. Я же не знаю какие у тебя цифры.
Например
R[0]:=1; и т.д.

@Ларисик · 10.06.2010, 23:45 **[ТС]**

Сообщение от Igor8

Дак сама заполни массив. Я же не знаю какие у тебя цифры.
Например
R[0]:=1; и т.д.

Так диапазон не задан у меня((

@RAZOR3 · 11.06.2010, 00:03

заполни Random-ом
for i:=0 to n do
R[i]:=Random(100);

@Ларисик · 11.06.2010, 00:09 **[ТС]**

это в обеих так вписать? вписываю все равно 0 выходит(

@RAZOR3 · 11.06.2010, 00:13

ну например для 2-ой

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  R:array of real;
  n,i:integer;
 
 
begin
  n:=10;
  SetLength(R,n);
  for i:=0 to n do
  R[i]:=Random(100);
  for i:=0 to Length(R)-1 do
    begin
      Writeln('S='+floattostr(3.14*sqr(r[i]))+' при R='+floattostr(r[i]));
    end;
    Readln;
end.

@Ларисик · 11.06.2010, 00:24 **[ТС]**

а почему у него было n=2, а у тебя n=10?

@RAZOR3 · 11.06.2010, 00:28

n - это размер массива, а я выбрал десять чтоб нагляднее было)

@Ларисик · 11.06.2010, 00:32 **[ТС]**

Сообщение от RAZOR3

Writeln('S='+floattostr(3.14*sqr(r[i]))+' при R='+floattostr(r[i]));
[/DELPHI]

А можно как то по другому записать? вытащить из скобок лишние и чтобы было так: writeln('s=',r=')??
А остальное вписать вне скобок?

@RAZOR3 · 11.06.2010, 00:38

Сообщение от Ларисик

writeln('s=',r=')

нет так нельзя, но можно например вот так:

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  R:array of real;
  n,i:integer;
  r1,r2: string;
 
begin
  n:=10;
  SetLength(R,n);
  for i:=0 to n do
  R[i]:=Random(100);
  for i:=0 to Length(R)-1 do
    begin
      r1:=floattostr(3.14*sqr(r[i]));
      r2:=floattostr(r[i]);
      Writeln('S='+r1+' при R='+r2);
    end;
    Readln;
end.

@Ларисик · 11.06.2010, 00:41 **[ТС]**

floattostr- а это что значет? просто в первый раз вижу)

@Negor · 11.06.2010, 00:43

FloatToStr - преобразование числа с плавающей строкой в ассив символов. Проще говоря - чтоб число можно было вывести на экран.
Хинт: Если команда неизвестна - поставь на неё курсор и нажми ctrl+f1

@Ларисик · 11.06.2010, 00:50 **[ТС]**

со 2-ой я вроде разобралась, а вот как первую нормально сделать?

@RAZOR3 · 11.06.2010, 01:01

вот держи:

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
 
var
 R:array of real;
 n,i:integer;
 C:real;
 C1,D1: string;
 
begin
   C:=0;
  n:=6;
  SetLength(R,n);
  for i:=0 to n do
  R[i]:=Random(100);
  for i:=0 to ((Length(R) div 2)-1) do
    begin
     C:=C+r[i];
    end;
    C1:=floattostr(C);
  writeln('C='+C1);
  C:=0;
   for i:=(Length(R) div 2) to (Length(R)-1) do
    begin
     C:=C+r[i];
    end;
    D1:=floattostr(C);
  writeln('D='+D1);
  Readln;
end.

@Negor · 11.06.2010, 01:03

такое подойдёт?

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 var R:array of real;
 n,i:integer;
C:real;
 
begin
  { TODO -oUser -cConsole Main : Insert code here }
 
begin
  C:=0;
  n:=6;
  SetLength(R,n);
  randomize;
  for i:=0 to Length(R)-1 do
    begin
 
      r[i]:=random(10)+1;
      writeln('R['+IntToStr(i)+']='+floattostr(r[i]));
    end;
  for i:=0 to ((Length(R) div 2)-1) do
    begin
     C:=C+r[i];
    end;
  writeln('C='+floattostr(C));
  C:=0;
   for i:=(Length(R) div 2) to (Length(R)-1) do
    begin
     C:=C+r[i];
    end;
  writeln('D='+floattostr(C));
  readln;
end;
 
end.

@RAZOR3 26 / 26 / 10 Регистрация: 24.08.2009 Сообщений: 71
	11.06.2010, 00:28	12
	n - это размер массива, а я выбрал десять чтоб нагляднее было) 0

@Ларисик 0 / 0 / 0 Регистрация: 10.06.2010 Сообщений: 9
	11.06.2010, 00:41 [ТС]	15
	floattostr- а это что значет? просто в первый раз вижу) 0

@Negor 57 / 56 / 10 Регистрация: 29.03.2010 Сообщений: 289
	11.06.2010, 00:43	16
	FloatToStr - преобразование числа с плавающей строкой в ассив символов. Проще говоря - чтоб число можно было вывести на экран. Хинт: Если команда неизвестна - поставь на неё курсор и нажми ctrl+f1 1

@Ларисик 0 / 0 / 0 Регистрация: 10.06.2010 Сообщений: 9
	11.06.2010, 00:50 [ТС]	17
	со 2-ой я вроде разобралась, а вот как первую нормально сделать? 0

@Ларисик 0 / 0 / 0 Регистрация: 10.06.2010 Сообщений: 9
		1
	Массивы 10.06.2010, 22:29. Показов 926. Ответов 18 Метки нет (Все метки) Помогите решить, завтра зачет(( 0

@Ларисик 0 / 0 / 0 Регистрация: 10.06.2010 Сообщений: 9
	10.06.2010, 23:20 [ТС]	3
	А мне надо в консоль апликейшен (console Application) Очень буду благодарна) 0

@Ларисик 0 / 0 / 0 Регистрация: 10.06.2010 Сообщений: 9
	10.06.2010, 23:40 [ТС]	5
	Я конечно глупая, но не настолько, вставила текст в дельфи, он во первых задержку экрана не делает( надо readln вставить было), ответ не выходит, ты мне ток какой то скелет написал, все время результат равен 0(( Помогите с нормальным решением. 0

@Igor8 38 / 38 / 20 Регистрация: 20.05.2010 Сообщений: 111
	10.06.2010, 23:42	6
	Дак сама заполни массив. Я же не знаю какие у тебя цифры. Например R[0]:=1; и т.д. 0

@Ларисик 0 / 0 / 0 Регистрация: 10.06.2010 Сообщений: 9
	10.06.2010, 23:45 [ТС]	7
	Сообщение от Igor8 Дак сама заполни массив. Я же не знаю какие у тебя цифры. Например R[0]:=1; и т.д. Так диапазон не задан у меня(( 0

@RAZOR3 26 / 26 / 10 Регистрация: 24.08.2009 Сообщений: 71
	11.06.2010, 00:03	8
	заполни Random-ом for i:=0 to n do R[i]:=Random(100); 0

@Ларисик 0 / 0 / 0 Регистрация: 10.06.2010 Сообщений: 9
	11.06.2010, 00:09 [ТС]	9
	это в обеих так вписать? вписываю все равно 0 выходит( 0

@Ларисик 0 / 0 / 0 Регистрация: 10.06.2010 Сообщений: 9
	11.06.2010, 00:24 [ТС]	11
	а почему у него было n=2, а у тебя n=10? 0

@Ларисик 0 / 0 / 0 Регистрация: 10.06.2010 Сообщений: 9
	11.06.2010, 00:32 [ТС]	13
	Сообщение от RAZOR3 Writeln('S='+floattostr(3.14*sqr(r[i]))+' при R='+floattostr(r[i])); [/DELPHI] А можно как то по другому записать? вытащить из скобок лишние и чтобы было так: writeln('s=',r=')?? А остальное вписать вне скобок? 0