 |
|
| Appunti informatica |
|
|
|
| Appunti informatica |
|
| Visite: 1170 | Gradito: |   [ Picolo appunti ] |
Leggi anche appunti:Tesina di maturitą di: Che cos'č eBayTesina di maturitą di: Che cos'č eBay eBay č una societą che vende Programmazione e controlloPROGRAMMAZIONE E CONTROLLO concetto d'azienda L'azienda č un sistema Il futuro - DVDIl futuro - DVD Il DVD rappresenta probabilmente l'unica vera novitą nel |
 |
 |
PROGRAMMA CHE METTE IN ORDINE UN VETTORE
Program uno;
uses crt;
const n=10;
var a:array[1..n]of integer;
I, j, aux:integer;
begin
clrscr;
randomize;
writeln('vettore casuale');
for i:=1 to n do
a[i]:=random(100);
for i:=1 to n do
writeln(a[i]);
for I:=1 to n-1 do
begin
for j:=I+1 to n do
if a[I]>a[j] then
begin
aux:=a[j];
a[j]:=a[I];
a[I]:=aux;
end;
end;
writeln('vettore ordinato');
for i:=1 to n do
writeln(a[I]);
readln;
end.
PROGRAMMA CHE METTE IN ORDINE LE PAROLE
Program due;
uses crt;
const n=10;
var a:array[1..n]of string;
I, j:integer;
aux:string;
begin
clrscr;
randomize;
writeln('vettore casuale');
for i:=1 to n do
begin
writeln('parola',i);
readln(a[i]);
end;
for I:=1 to n-1 do
begin
for j:=I+1 to n do
if a[I]>a[j] then
begin
aux:=a[j];
a[j]:=a[I];
a[I]:=aux;
end;
end;
writeln('vettore ordinato');
for i:=1 to n do
writeln(a[I]);
readln;
end.
PROGRAMMA CHE FA LA SOMMA DI MATRICI
program tre;
uses crt;
var m,a,s:array[1..10,1..10]of integer;
i,j :integer;
begin
clrscr;
randomize;
writeln('matrice 1');
for i:=1 ta 10 do
begin
for j:=1 to 10 do
begin
m[i,j] :=random(100);
write(m[i,j] :4);
end;
writeln;
end;
writeln('matrice 2');
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j] :=random(100)
write(a[i,j] :4);
end;
writeln;
end;
write1n('matrice somma');
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
s[I,j]:=m[I,j]+a[I,j];
write(s[i,j] :4);
end;
writeln;
end;
readln;
end.
PROGRAMMA CHE DATO UN NUMERO P DA TUTTI QUELLI MINORI
program quattro;
uses crt;
var m:array[l. .10,1. .10]of integer;
i, j , p, max, rmax, cmax: integer;
begin
clrscr;
randomize;
writeln ('dammi il numero');
readln(p);
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
m[i,j] :=random(100);
write(m[i,j] :4);
end;
writeln;
end;
for i:=1 to 10 do
begin
for j:=1 to 10 do
if m[i,j]<p then
begin max:=m[i,j]
rmax:=i;
cmax:=j;
writeln ('il numero ',max);
writeln ('riga', rmax);
writeln ('colonna', cmax);
end;
end;
readln;
end.
|
| Appunti su: |
|