|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.01.2009, 13:06 | #1 |
Пользователь
Регистрация: 15.01.2009
Сообщений: 16
|
Помогите проверить задачю.
unit Unit1;
interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Button1: TButton; Button2: TButton; StringGrid1: TStringGrid; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; N:integer; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); Var i:integer; begin N:=StrToInt(Edit1.Text); StringGrid1.Col Count:=N+1; StringGrid1.Cells[0,0]:='A[i]'; end; procedure TForm1.Button2Click(Sender: TObject); Var A:array[0..50]of real; S:real; f,i:integer; begin N:=StrToInt(Edit1.Text); for i:=1 to N do A[i]:=StrToFloat(StringGrid1.Cells[i,0]); f:=0; for i:=1 to N do if (A[i]=0) and (f=0) then l:=1; f:=1; S:=0; for i:=1 to N do S:=S+A[i]; Edit2.Text:=FloatToStr(S); end; end. |
17.01.2009, 15:23 | #2 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Интересно как можно проверить задачЮ, если неизвестно, что программа должна делать?
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите решить задачю на билдере. | StriKer111 | Помощь студентам | 2 | 27.10.2008 13:11 |
ПОМОГИТЕ ПРОВЕРИТЬ ЗАДАЧКУ НА ПАСКАЛЕ!Матрица,2-Х мерный массив! | vdv08 | Помощь студентам | 6 | 23.09.2008 13:13 |
народ нужно решить задачю! | finch | Помощь студентам | 1 | 21.06.2007 20:34 |
Решите задачю....применение строк... | El_Bint0 | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 12.12.2006 20:15 |