Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.06.2010, 16:05   #1
savraska
Пользователь
 
Регистрация: 18.04.2010
Сообщений: 37
По умолчанию Площадь прямоугольников

ЗАдана лесенка из прямоугольников с постоянной высотой и уменьшающейся длинной. Нарисовать ее,посчитать значение всей площади и отдельных звеньев. Не знаю как посчитать последнее.
Код:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Button2: TButton;
    Label2: TLabel;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
 h=20;
var
  Form1: TForm1;
  x1,y1,x2,y2,k:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
 for k:=1 to 10 do//номер прямоугольника
 begin
 x1:=10*k;
 x2:=40*k;
 y1:=h*k;
 y2:=y1+h;
 image1.canvas.rectangle(x1,y1,x2,y2);//построение лесенки
 end;
 end;

procedure TForm1.Button2Click(Sender: TObject);
var
s,i:integer;
begin
s:=0;

 for k:=1 to 10 do
 begin
 x1:=10*k;
 x2:=40*k;
 s:=s+(x2-x1)*20;
   end;
 edit1.Text:=inttostr(s);

end;

end.

Последний раз редактировалось Stilet; 04.06.2010 в 16:44.
savraska вне форума Ответить с цитированием
Старый 04.06.2010, 16:21   #2
DoDge_VipeR
Форумчанин
 
Аватар для DoDge_VipeR
 
Регистрация: 30.04.2010
Сообщений: 317
По умолчанию

Цитата:
посчитать значение всей площади и отдельных звеньев. Не знаю как посчитать последнее.
(x2-x1)*20 - вот у тебя площадь текущего звена
icq:627719[сто сорок четыре] - помогу с Pascal & Delphi!
DoDge_VipeR вне форума Ответить с цитированием
Старый 04.06.2010, 16:22   #3
savraska
Пользователь
 
Регистрация: 18.04.2010
Сообщений: 37
По умолчанию

ЭТо я понимаю, я хочу вывести площадь каждого прямоугольника,например через запятую
savraska вне форума Ответить с цитированием
Старый 04.06.2010, 16:27   #4
DoDge_VipeR
Форумчанин
 
Аватар для DoDge_VipeR
 
Регистрация: 30.04.2010
Сообщений: 317
По умолчанию

Код:
.....
lbl1.caption:='';
for k:=1 to 10 do
begin
x1:=10*k;
x2:=40*k;
s:=s+(x2-x1)*20;
lbl1.caption:=lbl1.caption+inttostr((x2-x1)*20)+';';// в label у тебя будут площади через ;
end;
edit1.Text:=inttostr(s);
......
icq:627719[сто сорок четыре] - помогу с Pascal & Delphi!

Последний раз редактировалось DoDge_VipeR; 04.06.2010 в 16:39.
DoDge_VipeR вне форума Ответить с цитированием
Старый 04.06.2010, 16:28   #5
savraska
Пользователь
 
Регистрация: 18.04.2010
Сообщений: 37
По умолчанию

Блин,вотя глупая,ведь почти тоже самое было! Поняла где ошибка была! Спасибо большое!!!!!!
savraska вне форума Ответить с цитированием
Старый 04.06.2010, 16:36   #6
savraska
Пользователь
 
Регистрация: 18.04.2010
Сообщений: 37
По умолчанию

У меня выдается дается только одно значение...но не площадь каждого
savraska вне форума Ответить с цитированием
Старый 04.06.2010, 16:38   #7
DoDge_VipeR
Форумчанин
 
Аватар для DoDge_VipeR
 
Регистрация: 30.04.2010
Сообщений: 317
По умолчанию

Еще раз на мой код гляньте я поправил!
icq:627719[сто сорок четыре] - помогу с Pascal & Delphi!
DoDge_VipeR вне форума Ответить с цитированием
Старый 04.06.2010, 16:42   #8
savraska
Пользователь
 
Регистрация: 18.04.2010
Сообщений: 37
По умолчанию

Спасибо,все работает=)Что бы мы женщины делали без вас-мужчин=)
savraska вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Площадь прямоугольника AndrSil Помощь студентам 5 22.04.2010 23:23
C++, площадь окружностей kolesoo Помощь студентам 0 05.11.2009 22:30
Площадь фигур Вор Паскаль, Turbo Pascal, PascalABC.NET 3 18.05.2009 22:44
5 прямоугольников Carbon Помощь студентам 10 08.11.2007 10:08