|
Appunti informatica |
|
Visite: 1020 | Gradito: | [ Picolo appunti ] |
Leggi anche appunti:La Gestione del ProcessoreLa Gestione del Processore La gestione del processore č il livello che viene Il problema generale dell'interfaccia software e i livelli iso-osiIl problema generale dell'inteRfaccia software e i livelli ISO-OSI 1. Interfaccia Il dispositivo nodo 'data flow': ARTMNODEIl dispositivo nodo 'data flow': ARTMNODE ASIM č un ambiente che consente |
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: |
|