 |
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 |
LaRebelle
Amator de rezolvari gratuite
Data inscrierii: 02/Mar/2007
Mesaje: 7
|
 Trimis: 02/03/2007 16:49 Titlul subiectului: Varianta 2 |
 |
|
Subiectul III
1. Type matrice=array[1..23,1..23]of integer;
var a :matrice;
n,i,j:integer;
begin
write(‘n=’);read(n);
for i:=1 to n do
for j:=1 to n do
begin
if (i<j) and (i+j<n+1) then a[i,j]:=1; {conditia ca elementul a[i,j] sa fie deasupra diag principale si deasupra diag. secundare}
if (i<j>n+1) then a[i,j]:=2; {conditia ca elementul a[i,j] sa fie deasupra diag principale si sub diag. secundara}
if (i>j) and (i+j>n+1) then a[i,j]:=1; {conditia ca elementul a[i,j] sa fie sub diag principala si sub diag. secundara}
if (i>j) and (i+j<n+1) then a[i,j]:=2; {conditia ca elementul a[i,j] sa fie sub diag principala si deasupra diag secundare}
end;
for i:=1 to n do {afisare}
begin
for j:=1 to n do
write (a[i,j],’ ‘);
writeln;
end;
end.
b)
{toate numerele cu k cifre se gasesc in intervalul 10^(k-1) si (10^k)-1
impartim acest interval la a, si alegem doar pe cele care sunt intregi .Pentru asta trebuie sa calculam capetele intervalului... }
var n,k,p:integer;
begin
write(‘a,k=’);read(a,k);
p:=1;
for i:=1 to k-1 do
p:=p*10;{astfel calculam capatul intervalului 10^(k-1) si il retinem in variabila p}
writeln(nr(p/a,(p*10-1)/a));
readln;
end.
3. var s:string;
k,i :integer;
f:text;
begin
assign(f,'bac.txt');rewrite(f);
write('s=');read(s);
k:=length(s);
write(f,s[k]);
writeln(f);
repeat
for i:=k-1 to length(s) do
write(f,s[i]);
dec(k);
writeln(f);
until k=1;
close(f)
end.
Ultima modificare efectuata LaRebelle la 02/03/2007 21:27, modificat de 2 ori in total |
|
| Sus |
|
 |
LoveKey
Administrator
Data inscrierii: 27/Feb/2007
Mesaje: 37
Localitate: Tg-Jiu
|
| Trimis: 02/03/2007 17:29 Titlul subiectului: |
|
|
III - 1
Ti s-au strecurat cateva scapari!
Type matrice=array[1..23,1..23]of integer;
var a :matrice;
n,i,j:integer;
begin
write('n=');read(n);
for i:=1 to n do
for j:=1 to n do
begin
if (i<j) and (i+j<n+1) then a[i,j]:=1;
if ((i<j)and(j>n+1)) then a[i,j]:=2; ------------------------(pe linia asta)
if (i>j) and (i+j>n+1) then a[i,j]:=1;
if (i>j) and (i+j<n+1) then a[i,j]:=2;
end;
for i:=1 to n do begin
for j:=1 to n do
write (a[i,j],' ');
writeln; writeln; --------------------- ( si aici trebuia doi de writeln )
end;
end.
III -2 Nu e buna vezi ce are! Vezi ca am dat si eu o rezolvare mai jos.
III - 3 Vezi ca am dat si eu o rezolvare mai jos! Mai bunisoara! 
_________________
Orice e posibil prin vointa!
Ultima modificare efectuata LoveKey la 06/03/2007 20:45, modificat de 3 ori in total |
|
| Sus |
|
|
LoveKey
Administrator
Data inscrierii: 27/Feb/2007
Mesaje: 37
Localitate: Tg-Jiu
|
| Trimis: 02/03/2007 17:39 Titlul subiectului: |
|
|
Pe cele mai complicate incearca sa le explici ! Cum ar fi III -2
_________________
Orice e posibil prin vointa! |
|
| Sus |
|
|
LaRebelle
Amator de rezolvari gratuite
Data inscrierii: 02/Mar/2007
Mesaje: 7
|
| Trimis: 02/03/2007 22:13 Titlul subiectului: |
|
|
| wtf... modific, corectez si dupa ceva vreme dispar bucatele din textul postat anterior... |
|
| Sus |
|
|
LoveKey
Administrator
Data inscrierii: 27/Feb/2007
Mesaje: 37
Localitate: Tg-Jiu
|
| Trimis: 03/03/2007 13:39 Titlul subiectului: |
|
|
LaRebelle incearca sa faci postari variate pentru fiecare problema! Poate asa va merge mai bine!
_________________
Orice e posibil prin vointa! |
|
| Sus |
|
|
LoveKey
Administrator
Data inscrierii: 27/Feb/2007
Mesaje: 37
Localitate: Tg-Jiu
|
| Trimis: 06/03/2007 20:27 Titlul subiectului: Re: Varianta 2 |
|
|
| LaRebelle a scris: | Subiectul III
b)
{toate numerele cu k cifre se gasesc in intervalul 10^(k-1) si (10^k)-1
impartim acest interval la a, si alegem doar pe cele care sunt intregi .Pentru asta trebuie sa calculam capetele intervalului... }
var n,k,p:integer;
begin
write(‘a,k=’);read(a,k);
p:=1;
for i:=1 to k-1 do
p:=p*10;{astfel calculam capatul intervalului 10^(k-1) si il retinem in variabila p}
writeln(nr(p/a,(p*10-1)/a));
readln;
end.
|
III-2
program sec;
Var i,b,a:longint;
y,x:real;
k:byte;
function nr(a,b:real):integer;
begin
if a<=b then
if trunc(a)=a then nr:=trunc(b)-trunc(a)+1
else nr:=trunc(b)-trunc(a)
else if trunc(b)=b then nr:=trunc(a)-trunc(b)+1
else nr:=trunc(a)-trunc(b);
end;
begin
write('a='); readln(a);
write('k='); readln(k);
b:=9999;
for i:= 5 to k do b:=b*10+9;
x:=b/a;
b:=b mod 10+1;
y:=b/a;
writeln(nr(y,x));
end.
Daca are cineva nevoie de explicatii sa intrebe voi reveni curand!
_________________
Orice e posibil prin vointa!
Ultima modificare efectuata de catre LoveKey la 06/03/2007 20:46, modificat de 1 data in total |
|
| Sus |
|
|
LoveKey
Administrator
Data inscrierii: 27/Feb/2007
Mesaje: 37
Localitate: Tg-Jiu
|
| Trimis: 06/03/2007 20:43 Titlul subiectului: Re: Varianta 2 |
|
|
| LaRebelle a scris: | Subiectul III
3. var s:string;
k,i :integer;
f:text;
begin
assign(f,'bac.txt');rewrite(f);
write('s=');read(s);
k:=length(s);
write(f,s[k]);
writeln(f);
repeat
for i:=k-1 to length(s) do
write(f,s[i]);
dec(k);
writeln(f);
until k=1;
close(f)
end. |
Cred ca e cam ingrasat programul tau. Uite varianta mea:
III-3
program p3;
Var c,s:string;
i:byte;
g:text;
begin
write('s=');readln(s);
assign(g,'bac.txt'); rewrite(g);
c:='';
for i:=length(s) downto 1 do begin
c:=s[i]+c;
writeln(g,c);
end;
close(g);
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
|
|
