как вот это прочитать правильно с файла
вот первые две цывры могу прочитать первая цыфра идет для того чтобы узнать сколько в строчке будет цыфр врорая для того чтобы длину определить на следущий строчке идет первые три цыфры которые надо сравнивать с остальными как мне это все хорошо прочитать все цыфры
3 6
7 4 4
1 8 2
5 5 5
3 2 1
7 4 5
1 1 7
6 3 2
Покажи как читаешь то..
program staciakampis;
var n,b,i,c,a,d,z: integer;
pradDuom,
rezult: text;
begin
assign (pradDuom, 'duom.TXT');
assign (rezult, 'rez.TXT');
reset (pradDuom);
rewrite (rezult);
read (pradDuom, n,c);
b:=0 ;
read(pradduom,b,d,z);
writeln(b,' ',d,' ',z);
for i := 1 to c*n do
begin
read (pradDuom, a);
write(a,' ');
end;
Readln;
end.
А чего не нравится то? Вроде всё и читаешь, только вот файлы в конце программы надо закрывать:
close(pradDuom);
close(rezult);
for j := 1 to c do
begin
for i := 1 to n do
begin
read (pradDuom,a);
write(a,' ');
end;
writeln;
end;
b:=0;
а это там b:=0; до другого случая забыл убрать
вот как ты сказал так и написал кажется так но выбивает плахой формат цифр
program staciakampis;
var n,b,i,c,a,d,z: integer;
pradDuom,
rezult: text;
begin
assign (pradDuom, 'duom.TXT');
assign (rezult, 'rez.TXT');
reset (pradDuom);
rewrite (rezult);
read (pradDuom, n,c);
for i := 1 to c do
begin
for i := 1 to n do
begin
read (pradDuom,a);
write(a,' ');
end;
writeln;
end;
close(pradDuom);
close(rezult);
readln;
end.
Внимательнее прочти мой предыдущий пост.
program staciakampis;
type mas= array [1..100] of integer;
var n,i,c,j: integer;
pradDuom,rezult: text;
a,b:mas;
procedure sort( var m:mas; s:integer);
var k:integer;
begin
for i:= 1 to s - 1 do
for j:= i+1 to s do
if a[i]> a[j] then
begin
k:=m[i];
m[i]:=m[j];
m[j]:=k;
end;
end;
begin
assign (pradDuom, 'duom.TXT');
assign (rezult, 'rez.TXT');
reset (pradDuom);
rewrite (rezult);
read (pradDuom, n,c);
{for i:=1 to n do begin
read(pradduom,b[i]);
if i = 3 then
begin
sort(b,n);
for i:=1 to n do
writeln(b[i]);
end;
end; }
for j := 1 to c do
begin
for i := 1 to n do
begin
read (pradDuom,a[i] );
if i=3 then
begin
sort(a,n);
for i:=1 to n do
writeln(a[i]);
end;
end;
writeln;
end;
close(pradDuom);
close(rezult);
Readln;
end.
for j := 1 to c do
begin
for i := 1 to n do {<-- вот тут счетчик цикла - i}
begin
read (pradDuom,a[i] );
if i=3 then
begin
sort(a,n);
for i:=1 to n do {<-- и здесь во вложенном цикле тоже используешь счетчик i - так делать не надо }
writeln(a[i]);
end;
end;
writeln;
end;
for j := 1 to c do
begin
for i := 1 to n do
begin
read (pradDuom,a[j,i] );
writeln(a[j,i]);
end;
writeln;
end;
sort(a,c,n);
получилось там чют чють но я признаюсь что у меня небыло двоичного массива некогда
program staciakampis;
type mas= array [1..100,1..100] of integer;
var n,i,c,j,z,k: integer;
pradDuom,rezult: text;
a:mas;
begin
assign (pradDuom, 'duom.TXT');
assign (rezult, 'rez.TXT');
reset (pradDuom);
rewrite (rezult);
read (pradDuom, n,c);
c:=c+1 ;
for j := 1 to c do
begin
for i := 1 to n do
begin
read (pradDuom,a[j,i] );
end;
end;
for j:=1 to c do
for i:= 1 to n do
for z:=i+1 to n do
if a[j,i]>a[j,z] then
begin
k:=a[j,i];
a[j,i]:=a[j,z];
a[j,z]:=k;
{writeln(a[j,i]:9);
writeln(a[j,z]); }
end;
for j:=1 to c do
for i:=1 to n do
writeln(a[j,i]);
close(pradDuom);
close(rezult);
Readln;
end.
вот написал но ошибка есть неправильно выводит пока что на экран цифры должно выводит только те цифры которые меньши и равны этим цифрам 4,4,7 и если в массиве втором цифры 1,2,8 то они не должны выводится
program staciakampis;
type mas = array [1..100,1..100] of integer;
var n,i,c,j,z,k,d,m: integer;
pradDuom,rezult: text;
a:mas;
begin
assign (pradDuom, 'duom.TXT');
assign (rezult, 'rez.TXT');
reset (pradDuom);
rewrite (rezult);
read (pradDuom, n,c);
c:=c+1 ;
for j := 1 to c do
begin
for i := 1 to n do
begin
read (pradDuom,a[j,i] );
end;
end;
for j:=1 to c do
for i:= 1 to n do
for z:=i+1 to n do
if a[j,i]>a[j,z] then
begin
k:=a[j,i];
a[j,i]:=a[j,z];
a[j,z]:=k;
{writeln(a[j,i]:9);
writeln(a[j,z]); }
end;
d:=0;
m:=0;
for j:=2 to c do
for i:=1 to n do
{ ****************** ошибка в if***********}
if a[1,i] >= a[j,i] then
{d:=d+1; }
{writeln(d);}
writeln(a[1,i],'>=',a[j,i]);
{writeln(a[j,i]>=a[j,i]);}
{ end;
end; }
close(pradDuom);
close(rezult);
Readln;
end.
условия такие первая цифра это длина страки ну сколько цифр будет второе число это сколько столбцов будет потом первые три цифры это куба цифры остольные цифры это кубы тоже. В первый куб вместится все остальные кубы и их можно по разному переворачивать.
3 6
7 4 4
1 8 2
5 5 5
3 2 1
7 4 5
1 1 7
6 3 2
сперва я их всех записал в двойной массив потом упорядочил по возрастанию так
4 4 7
1 2 8
5 5 5
1 2 3
4 5 7
1 1 7
2 3 6
потом вот сравнивать неполучается так
4>=1
4>=2
7>=8
и если хоть одна цифра больше то этот ненадо писать массив
4>=5
4>=5
7>=5
и этот тоже самое
4>=1
4>=2
7>=8
а вот этот уже надо написать потомучто все правильно
а у меня выводит так
4>=1
4>=2
7>=5
4>=1
4>=2
7>=3
вот неправильно выводит
maksimla, не в обиду тебе будь сказано, я просто не понимаю, что ты пишешь. Я честно пытался понять условие, но так и не понял. Извини, но твой уровень владения русским языком представляет большую проблему. Я не упрекаю, я просто констатирую факт.
Что там у тебя за "куба" такие, что тебе с ними нужно делать - я так и не врубился. Извиняй.