program lab5;
uses crt;
label 1;
var x,i,k,err,c,i1:integer;
m,n,g, a:array[1..100] of string;
begin clrscr;
1:write ('Введите из скольки цифр будет состоять число- '); read(x);
if (x<8) or (x>20) then begin writeln('Error!! :)');
goto 1;
end;
clrscr;
for i:=1 to x do begin
write('n[',i,']=');readln(n);
val(n,c,err);
if ( c div 2) = ( c/2) then str(c,m) ;
if ( c div 2) <> ( c/2) then str(c,g) ;
end;
write('m= ');
for i:=1 to x do
write(m);
for i:=1 to x do
write(g);
readln;
readln;
end.
Составить Матрицу [Pascal]
Здраствуйте!...Ни как не могу сотавить матрицу...Задание такое:
сотавить программу вывода на экран по данному числу n типа string матрицу s на s, ( s - количество цифр в числе m), состоящию из нулей и цифр числа m, которые расположены:
В последнем столбце сверху вниз...
сотавить программу вывода на экран по данному числу n типа string матрицу s на s, ( s - количество цифр в числе m), состоящию из нулей и цифр числа m, которые расположены:
В последнем столбце сверху вниз...
Код:
Вот так получилосЬ...сам не много подумал))...и сделал...если что кому надо вот исходник :
Код:
program lab5;
uses crt;
label 1;
var i,k,j:integer;
a:array[1..20] of integer;
b:array[1..20,1..20] of integer;
begin clrscr;
1:write ('Ââåäèòå ÷èñëî - '); read(k);
if (k<=8) or (k>20) then begin
write('Ââåäèòå ÷èñëî îò 9 äî 20');
readln;
readln;
clrscr;
goto 1;
end;
writeln;
for i:=1 to k do begin
write('a[',i,']='); read(a);
end;
writeln;
write('m = ');
writeln;
i:=k;
j:=k;
for i:=1 to k do
if (a div 2)<>(a/2) then begin b[j,k]:=a;
j:=j-1;
end;
for i:=1 to k do
if (a div 2)=(a/2) then begin b[j,k]:=a;
j:=j-1;
end;
writeln;
for i:=1 to k do begin
for j:=1 to k do begin
write (b[i,j]:1,' ');
end;
writeln;
end;
readln;
readln;
end.
uses crt;
label 1;
var i,k,j:integer;
a:array[1..20] of integer;
b:array[1..20,1..20] of integer;
begin clrscr;
1:write ('Ââåäèòå ÷èñëî - '); read(k);
if (k<=8) or (k>20) then begin
write('Ââåäèòå ÷èñëî îò 9 äî 20');
readln;
readln;
clrscr;
goto 1;
end;
writeln;
for i:=1 to k do begin
write('a[',i,']='); read(a);
end;
writeln;
write('m = ');
writeln;
i:=k;
j:=k;
for i:=1 to k do
if (a div 2)<>(a/2) then begin b[j,k]:=a;
j:=j-1;
end;
for i:=1 to k do
if (a div 2)=(a/2) then begin b[j,k]:=a;
j:=j-1;
end;
writeln;
for i:=1 to k do begin
for j:=1 to k do begin
write (b[i,j]:1,' ');
end;
writeln;
end;
readln;
readln;
end.