Решение задачи с помощью процедуры

@biotsar · Регистрация: 20.10.2010

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

С помощью процедуры решить следующую задачу: Дана матрица размера 7х10. Вывести номер её последней строки, содержащего только положительные элементы. Если таких строк нет, то вывести 0.

@Puporev · 14.04.2012, 14:29

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
procedure TForm1.Button1Click(Sender: TObject);
const m=7;
      n=10;
var a:array[1..m,1..n] of integer;
    i,j,ip:integer;
    f:boolean;
begin
randomize;
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=m;
for i:=1 to m do
for j:=1 to n do
 begin
  a[i,j]:=-5+random(30);
  StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);
 end; 
ip:=0;
i:=m;
while(i>=1)and(ip=0) do
 begin
  j:=1;
  f:=true;
  while(j<=n)and f do
  if a[i,j]<=0 then f:=false
  else j:=j+1;
  if f then ip:=i
  else i:=i-1;
 end;
if ip=0 then Edit1.Text:='Строки с только положительными элементами нет'
else Edit1.Text:='Последняя строка с только положительными элементами '+IntToStr(ip);  
end;

Новые блоги и статьи Все статьи Все блоги /
RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit) stackOverflow 18.04.2025 Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .	Типы в TypeScript run.dev 18.04.2025 TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .	Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core stackOverflow 18.04.2025 Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .	Коммуникация в реальном времени с SignalR в C# на примере создания чата UnmanagedCoder 17.04.2025 Современный веб стремительно эволюционирует от статичных страниц к динамичным приложениям, где пользователи ожидают мгновенной реакции на свои действия. Представим, что вы отправляете сообщение. . .	Реализация CQRS с MediatR на C# .NET stackOverflow 17.04.2025 Современная разработка программного обеспечения постоянно ищет пути повышения эффективности организации кода. Архитектурные паттерны появляются, эволюционируют, и те, что проявляют свою. . .
Verilog и интеллектуальная собственность - "глазами" обученной LM модели. Hrethgir 17.04.2025 В сети встречаются участники, заявляющие что код на Verilog ни о чём не говорит. Но вот патентная практика на самом деле показывает обратное ими утверждаемому. То-есть код на Verilog включают в. . .	Свап-файл дополнительно к разделу (если вдруг не хватает или не создан) jigi33 17.04.2025 ПОДКЛЮЧЕНИЕ ДОПОЛНИТЕЛЬНОГО SWAP ПРОСТРАНСТВА, Т. О. , РАСШИРЕНИЕ ЕГО РАЗМЕРА В Linux можно использовать как раздел подкачки (swap), так и файл подкачки (swap-файл). Чтобы создать swap-файл вместо. . .	Указатели в Swift: Небезопасные, буферные, необработанные и управляемые указатели mobDevWorks 16.04.2025 Указатели относятся к наиболее сложным и мощным инструментам языка Swift. В своей сути указатель — это переменная, которая хранит адрес участка памяти, где расположены данные, а не сами данные. . . .	Жизненный цикл HTTP-запросов в ASP.NET Core MVC UnmanagedCoder 16.04.2025 Разработка веб-приложений на ASP. NET MVC часто выглядит как простой процесс: получили запрос, обработали его в контроллере, отрендерили представление и отправили ответ пользователю. Однако за этой. . .	Введение в Django: Создаём приложение портфолио py-thonny 16.04.2025 Django – один из самых мощных веб-фреймворков на Python, который позволяет быстро создавать сложные веб-приложения. В отличие от других фреймворков, Django предоставляет богатый набор встроенных. . .

@biotsar 0 / 0 / 0 Регистрация: 20.10.2010 Сообщений: 23

	Решение задачи с помощью процедуры 13.04.2012, 17:20. Показов 1313. Ответов 1 Метки нет (Все метки) С помощью процедуры решить следующую задачу: Дана матрица размера 7х10. Вывести номер её последней строки, содержащего только положительные элементы. Если таких строк нет, то вывести 0. 0

Опции темы