|
Вопрос # 4 360/ вопрос открыт / |
|
Здравствуйте, эксперты! Есть следующая задача. Дан массив А(6х6). айти и отпечатать количество элементов каждого столбца значения которых не превышает 2.5.
Приложение: Переключить в обычный режим- unit Unit1;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, ExtCtrls, Grids, StdCtrls, XPMan;
-
- type
- TForm1 = class(TForm)
- Button1: TButton;
- Button2: TButton;
- Button3: TButton;
- StringGrid1: TStringGrid;
- Label1: TLabel;
- XPManifest1: TXPManifest;
- StringGrid2: TStringGrid;
- procedure Button2Click(Sender: TObject);
- procedure Button3Click(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
-
- var
- Form1: TForm1;
- a:array[0..5,0..5] of integer;
- i,j:integer;
- k,n:real;
- implementation
-
- {$R *.dfm}
-
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- Randomize;
- for i:=0 to 5 do
- for j:=0 to 5 do
- Begin
- a[i,j]:=random (10);
- StringGrid1.cells[i,j]:=IntTostr(a[i,j]);
- end;
- end;
-
- procedure TForm1.Button2Click(Sender: TObject);
- begin
- if k<=2.5 then
- k:=a[1,1];
- for i:= 0 to 5 do
- for j := 0 to 5 do
- if k<=a[i,j] then
- begin
- k:=a[i,j];
- n:=i;
- end;
- for I := 0 to 5 do
- for j := 0 to 5 do
- if a[i,j]=k then
- n:=n+1;
- for I := 0 to 5 do
- for j := 0 to 5 do
- StringGrid2.Cells [i,0]:= FloatTostr (a[i,0]);
- end;
-
- procedure TForm1.Button3Click(Sender: TObject);
- begin
- close;
- end;
-
- end.
-
 |
Вопрос задал: Коновалов Владимир (статус: Посетитель)
Вопрос отправлен: 23 июня 2010, 09:11
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 23; последнее сообщение — 23 июня 2010, 13:53; участников в обсуждении: 4.
Страницы: [1] [2] [Следующая »]
|
min@y™ (статус: Доктор наук), 23 июня 2010, 09:19 [#2]:
Блин, сколько лет работаю экспертом - всё одно и то же! Ну какого хрена как лаба по матрицам, так сразу TStringGrid? Ну нафига козе баян? Ну проще же все операции делать в памяти, а выводить потом куда угодно!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 23 июня 2010, 09:26 [#3]:
Цитата (Коновалов Владимир):
айти и отпечатать
Печатать на принтер, установленный по умолчанию, или давать пользователю выбрать нужный принтер? 
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Коновалов Владимир (статус: Посетитель), 23 июня 2010, 09:28 [#4]:
Как научили, так и делаем! Отпечатать во второй TStrinGGrid. То есть под каждым столбцом у нас будет сколько элементов не превыщает 2,5.
|
|
DNK (статус: Студент), 23 июня 2010, 09:34 [#5]:
Душевный алгоритм у тебя, т.е. с душком. Для чего столько проходов? Для чего переменные результат которых нигде не используется?
"Digital Networked Knight"
|
|
|
min@y™ (статус: Доктор наук), 23 июня 2010, 09:38 [#6]:
Цитата (Коновалов Владимир):
Как научили, так и делаем!
Таких преподов надо на столбах вешать.
Щас напишу, покури пока.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 23 июня 2010, 10:17 [#8]:
Цитата (Коновалов Владимир):
Спасибо! Жду!
Спасибо - это много, пива достаточно.
Сделал, качай, проверяй: http://slil.ru/29380790
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Коновалов Владимир (статус: Посетитель), 23 июня 2010, 10:27 [#9]:
А можно ещё код программы А то мне как бы самому тож сделать хочетцо
|
|
|
min@y™ (статус: Доктор наук), 23 июня 2010, 10:29 [#10]:
Цитата (Коновалов Владимир):
А можно ещё код программы А то мне как бы самому тож сделать хочетцо
А пиво будет?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 23 июня 2010, 10:34 [#12]:
Цитата (Коновалов Владимир):
По почте пришлю В конверте
Давай. Россия, 390026, г. Рязань, 13-й Ленинский тупик, д. 13, кв. 666. Кузину Ивану Ивановичу.
Не забудь вложить туда конверт с обратным адресом. Я исходник напечатаю и в этом конверте тебе пришлю.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 23 июня 2010, 10:53 [#15]:
Цитата (Коновалов Владимир):
Все я на почту побежал
Комсомолец, сразу видно! Не ищешь лёгких путей... Ну, удачи тебе.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
padonak (статус: Посетитель), 23 июня 2010, 11:36 [#17]:
DNK: вот и я том же... там в процессах чёта непонятное творится, я его заблокировать не могу... на обычную программу не похоже...
|
|
|
min@y™ (статус: Доктор наук), 23 июня 2010, 11:39 [#18]:
Цитата (DNK):
Троян?
Как он называется?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
DNK (статус: Студент), 23 июня 2010, 12:58 [#19]:
Trojan-PWS.Banker5
"Digital Networked Knight"
|
|
|
min@y™ (статус: Доктор наук), 23 июня 2010, 13:33 [#20]:
Цитата (DNK):
Trojan-PWS.Banker5
Ладно, хорош гнать. А то я уж подумал, что сервис slil.ru заражает передаваемые файлы.
Сначала, конечно, я проверил свой ехе-шник. Потом скачал тот, что заслал на slil.ru, сравнил побайтно со своим - всё ок. Ну и наконец, чтобы доказать, что я прав, отправил архив вот сюда. Результаты вот:
Цитата:
Проверка: p4360.rar
Версия антивирусного ядра: 5.0.2.3300
Вирусных записей: 1487736
Размер файла: 191.10 КБ
MD5 файла: 316b04c68cdea1d419e5a4ba3e399cfd
p4360.rar - archive RAR
>p4360.rar/p4360.exe - Ok
p4360.rar - Ok
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Страницы: [1] [2] [Следующая »]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
