BG Development Форуми -> Задача Паскал.

BG Development · За реклама · За контакти

Помощ

Търсене

Потребители

Календар

Правила

Здравей! ( Включване | Регистриране )

BG Development Форуми -> Програмиране -> Delphi/Pascal

Страници: (2) 1 [2] ( Първото ново мнение )

Задача Паскал.

Абонирай се за темата | Изпрати адреса на темата на приятел | Принтирай темата

darksider1530	Публикувано на: 12-11-2016, 09:32
Име: Група: Потребител Ранг: Новопостъпил Мнения: 9 Регистриран на: 07.11.16	то това е условието на задачата n реда н стълба.

miron	Публикувано на: 12-11-2016, 13:09
Име: Мирослав Николов Група: Потребител Ранг: Старо куче Мнения: 748 Регистриран на: 26.04.05	Защо тогава караш потребителя да въведе и броя стълбове? И защо след като ги е въвел, проверката я правиш върху матрица 30*30?

darksider1530

Публикувано на: 13-11-2016, 14:52

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

Мнения: 9
Регистриран на: 07.11.16

CODE

program zadacha49;
var n: integer;
var masiv : array [1..30 , 1..30] of integer;
i,j:integer;
var f:boolean;
begin
write ('Vavedete broi na redove (1-30): ');
readln(n);
writeln ('Vavezhdane na matrica...');
for i:=1 to n do begin
for j:=1 to n do begin
write(i, ' ',j,' ');
readln (masiv [i,j]);
end;
end;
for i:=1 to n do
begin
f:=true;
end;
for i:= 1 to n do begin
if((masiv[i,j-1]-masiv[i,j-2])<>(masiv[i,j]-masiv[i,j-1])) then
f:=false;
if f then
writeln('Red ',i ,'e aritmetichna progresiya');
end;
readln;
end.

хора оправих я.

miron	Публикувано на: 13-11-2016, 17:54
Име: Мирослав Николов Група: Потребител Ранг: Старо куче Мнения: 748 Регистриран на: 26.04.05	Като гледам, че j не се променя в проверката, се съмнявам да си я оправил.

darksider1530

Публикувано на: 13-11-2016, 21:14

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

Мнения: 9
Регистриран на: 07.11.16

CODE

program zadacha49;
var n: integer;
var masiv : array [1..30 , 1..30] of integer;
i,j:integer;
var f:boolean;
begin
write ('Vavedete broi na redove (1-30): ');
readln(n);
writeln ('Vavezhdane na matrica...');
for i:=1 to n do begin
for j:=1 to n do begin
write(i, ' ',j,' ');
readln (masiv [i,j]);
end;
end;
for i:=1 to n do
begin
f:=false;
end;
for i:= 1 to n do begin
if((masiv[i,j-1]-masiv[i,j-2])=(masiv[i,j]-masiv[i,j-1])) then
f:=true;
if f then
writeln('Red ',i ,'e aritmetichna progresiya');
end;
readln;
end.

така вече работи и за редове 2 4 6

miron	Публикувано на: 14-11-2016, 07:51
Име: Мирослав Николов Група: Потребител Ранг: Старо куче Мнения: 748 Регистриран на: 26.04.05	А с 8, 2, 4, 6 работи ли правилно?

darksider1530	Публикувано на: 23-11-2016, 16:59
Име: Група: Потребител Ранг: Новопостъпил Мнения: 9 Регистриран на: 07.11.16	програмата не бачка

miron

Публикувано на: 23-11-2016, 17:47

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

Мнения: 748
Регистриран на: 26.04.05

QUOTE (darksider1530 @ 23-11-2016, 16:59)

програмата не бачка

ами направи я да бачка, трябва да добавиш един for за j при проверката.

0 потребители преглеждат тази тема в момента (0 гости, 0 анонимни потребители)

Потребители, преглеждащи темата в момента:

« Предишна тема | Delphi/Pascal | Следваща тема »

Страници: (2) 1 [2]

BG Development Форуми -> Програмиране -> Delphi/Pascal