BG Development


  Reply to this topicStart new topicStart Poll

> Курсова работа Паскал, Мисля че е логическа грешка
Абонирай се за темата | Изпрати адреса на темата на приятел | Принтирай темата
Mickey13
Публикувано на: 15-11-2017, 22:24
Quote Post



Име:
Група: Потребител
Ранг: Новопостъпил

Мнения: 2
Регистриран на: 15.11.17
Ето за какво става на въпрос:
Да се намерят разликите между най - голямата и най - малката стойност в отделните стълбове на двумерен масив от реални числа с m реда и n стълба.
Задачата съм я направил, но точно накрая мисля, че има логическа грешка. Би трябвало да ми извежда разликата за всеки един стълб, но проблемът е там, че извежда една и съща стойност за всеки стълб.

CODE
program kursova;
const n=3;m=3;
var mas : array[1..n, 1..m] of real;
   i, j: byte;
   max, min, raz : real;
begin
  for i:= 1 to n do
     for j:= 1 to m do
        begin
           write('Enter mas[',i,',',j,']>=');
           readln(mas[i,j])
        end;
  for i:= 1 to n do
     begin
       min:=mas[i,1];
      for j:=2 to m do
        if mas[i,j]<min then min := mas[i,j];


     end;
begin
       max:=mas[i,1];
      for j:=2 to m do

        end;
     raz:=max-min;
for i:=1 to n do
writeln('raz','==>',raz:0:2);
readln;
end.


Това мнение е било редактирано от Mickey13 на 15-11-2017, 22:27
PMEmail Poster
Top
alphasoftwarebg
Публикувано на: 16-11-2017, 08:52
Quote Post



Име:
Група: Потребител
Ранг: Редовен член

Мнения: 575
Регистриран на: 23.12.12
CODE
program kursova;
const
 n=3;
 m=3;
var
 mas : array[1..n, 1..m] of real;
 i, j: byte;
 max, min, raz : real;
 
begin
 for i:= 1 to n do
   for j:= 1 to m do
   begin
     Write('Enter mas[',i,',',j,']>=');
     ReadLn(mas[i,j])
   end;
 for i:= 1 to n do
 begin
   min:=mas[i,1];
   max:=mas[i,1];
   for j:=2 to m do
   begin
     if mas[i,j]<min then min := mas[i,j];
     if mas[i,j]>max then max := mas[i,j];
   end;
   raz:=max-min;
   WriteLn('raz[',i,']==>',raz:0:2);
 end;
 ReadLn;
end.


--------------------
zzz.bg - клиент/сървър за базата данни "ЗЗЗ база"
zzz.bg/zzzbase-micro - микро база данни за вграждане "ЗЗЗ база - микро" - без транзакции
zzz.bg/zzzbase-mini - мини база данни за вграждане "ЗЗЗ база - мини" - с транзакции
PMEmail PosterUsers Website
Top
Mickey13
Публикувано на: 16-11-2017, 10:59
Quote Post



Име:
Група: Потребител
Ранг: Новопостъпил

Мнения: 2
Регистриран на: 15.11.17
QUOTE (alphasoftwarebg @ 16-11-2017, 08:52)
CODE
program kursova;
const
 n=3;
 m=3;
var
 mas : array[1..n, 1..m] of real;
 i, j: byte;
 max, min, raz : real;
 
begin
 for i:= 1 to n do
   for j:= 1 to m do
   begin
     Write('Enter mas[',i,',',j,']>=');
     ReadLn(mas[i,j])
   end;
 for i:= 1 to n do
 begin
   min:=mas[i,1];
   max:=mas[i,1];
   for j:=2 to m do
   begin
     if mas[i,j]<min then min := mas[i,j];
     if mas[i,j]>max then max := mas[i,j];
   end;
   raz:=max-min;
   WriteLn('raz[',i,']==>',raz:0:2);
 end;
 ReadLn;
end.

Много благодаря!
PMEmail Poster
Top
zet98
Публикувано на: 29-11-2017, 10:58
Quote Post



Име: зет
Група: Потребител
Ранг: Новопостъпил

Мнения: 1
Регистриран на: 29.11.17
И аз имам подобна курсова но се търси номера на първия стълб, в който всички елементи имат стойност нула.
program kursova;
type
masiv=array[1..20, 1..20] of integer;
var
z:masiv;
m,n,i,j:integer;
v:integer;
begin
write ('Въведи броя редове: '); readln(m);
write ('Въведи броя стълбове: ') readln(n);

for i:=1 to m do
for j:=1 to n do begin
write ('елемент[',i,' , ',j,'] = ');
readln (z[i,j]);
end;
end;
for i:=1 to m do
begin
.................................
ето до къде съм стигнал
PMEmail Poster
Top
0 потребители преглеждат тази тема в момента (0 гости, 0 анонимни потребители)
Потребители, преглеждащи темата в момента:
« Предишна тема | Delphi/Pascal | Следваща тема »

Topic Options Reply to this topicStart new topicStart Poll

 


Powered by Invision Power Board(U) v1.3.1 Final © 2003  IPS, Inc.
Copyright © 2003-2019 | BG Development | All Rights Reserved
RSS 2.0