 |
Pascal2007.MyForum.ro
Acesta este un forum pentru cei care dau bacul la informatica - Varianta Pascal - Inregistreaza-te ca de nu o sa-ti para rau!!!
|
|
|
| Subiectul anterior :: Subiectul urmator |
| Autor |
Mesaj |
LoveKey
Administrator
Data inscrierii: 27/Feb/2007
Mesaje: 37
Localitate: Tg-Jiu
|
 Trimis: 01/03/2007 18:55 Titlul subiectului: Varianta 1 |
 |
|
III - 1
program matriceunudoi;
type mat=array[1..23,1..23] of byte;
var i,j,n:byte;
a:mat;
begin
write('n=');readln(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=2;
for i:=1 to n do begin
a[i,i]:=1;
a[i,n-i+1]:=1;
end;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j], ' ');
writeln; writeln;
end;
end.
_________________
Orice e posibil prin vointa! |
|
| Sus |
|
 |
LoveKey
Administrator
Data inscrierii: 27/Feb/2007
Mesaje: 37
Localitate: Tg-Jiu
|
| Trimis: 02/03/2007 10:38 Titlul subiectului: |
|
|
III - 2
program palindrom;
var n,s,p:longint;
procedure sub(Var a,b:longint);
begin
b:=b*10+a mod 10;
a:=a div 10;
end;
begin
writeln;
write('n=');readln(n);
s:=0;
p:=n;
while p<>0 do
sub(p,s);
if s=n then write('Da')
else write('Nu');
end.
_________________
Orice e posibil prin vointa! |
|
| Sus |
|
|
LoveKey
Administrator
Data inscrierii: 27/Feb/2007
Mesaje: 37
Localitate: Tg-Jiu
|
| Trimis: 02/03/2007 11:20 Titlul subiectului: |
|
|
III - 3
program fistext;
Var s:string;
f:text;
Begin
writeln;
write('Scrie sirul string=');readln(s);
assign(f,'Bac.txt'); rewrite(f);
while length(s)<>0 do begin
writeln(f,s);
delete(s,length(s),1);
end;
close(f);
end.
_________________
Orice e posibil prin vointa! |
|
| Sus |
|
|
LoveKey
Administrator
Data inscrierii: 27/Feb/2007
Mesaje: 37
Localitate: Tg-Jiu
|
| Trimis: 06/03/2007 19:44 Titlul subiectului: Re: Varianta 1 |
|
|
| LoveKey a scris: | III - 1
program matriceunudoi;
type mat=array[1..23,1..23] of byte;
var i,j,n:byte;
a:mat;
begin
write('n=');readln(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=2;
for i:=1 to n do begin
a[i,i]:=1;
a[i,n-i+1]:=1;
end;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j], ' ');
writeln; writeln;
end;
end. |
Programul nu este suficient de eficace asa ca l-am modificat! 
program matriceunudoi;
type mat=array[1..23,1..23] of byte;
var i,j,n:byte;
a:mat;
begin
write('n=');readln(n);
for i:=1 to n do
for j:=1 to n do
if (i=j) or (j=n-i+1) then a[i,j]:=1
else a[i,j]:=2;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j], ' ');
writeln; writeln;
end;
end.
_________________
Orice e posibil prin vointa! |
|
| Sus |
|
|
|
|
Nu puteti crea un subiect nou in acest forum
Nu puteti raspunde in subiectele acestui forum
Nu puteti modifica mesajele proprii din acest forum
Nu puteti sterge mesajele proprii din acest forum
Nu puteti vota in chestionarele din acest forum
|
|
