Modelul(ideal, material) este un sistem material sau ideal, logico-matematic
cu ajutorul căruia pot fistudiate, prin analogie, proprietăţile şi operaţiile
efectuate asupra sistemului iniţial, care, în general, este mai complex.
Modelul matematic reprezintă descrierea unui proces sau a unui fenomen cu
ajutorul noţiunilor matematice.
Etapele rezolvării problemei la calculator:
Analiza problemei. Elaborarea modelului matematic al problemei
Elaborarea algoritmului. Scrierea programului. Testarea programului.
program Produs;
const nmax=100;
type Matrice= array [1..nmax, 1..nmax] of real;
var V:Matrice; j,i,n,m:integer; p:real;
begin
Write('n='); readln(n);
Write('m='); readln(m);
Writeln('Dati componentle tabloului:');
for i:=1 to n do
for j:=1 to m do readln(V[i,j]);
p:=1;
for i:=1 to n do
for j:=1 to m do p:=p*V[i,j];
Writeln('Produsul tuturor componentelor este ',p);
end.
Program Înlocuirea_lui_a;
var s:string; l:integer;
begin
Writeln('Introdu sirul'); readln(s);
for l:=1 to (length(s)) do
if s[l]='a' then s[l]:='b';
writeln('Sirul obtinut este: ',s);
end.
program Vocale;
var n,l:integer; s:string;
begin
Writeln('Introdu sirul de caratere'); readln(s);
for l:=1 to (length(s)) do
if ((s[l]='A') or (s[l]='a') or (s[l]='E') or (s[l]='e') or (s[l]='I') or (s[l]='i')
or (s[l]='O') or (s[l]='o') or (s[l]='U') or (s[l]='u')) then n:=n+1;
Writeln('In sirul de caractere sunt ',n,' vocale');
end.
function Div(a,b:integer):integer;
begin
while a<>b do
if a>b then a:=a-b
else b:=b-a;
Div:=a;
end;
Program ex5a;
var a,b,c,delta,X,Y:real;
Procedure Ecuatie(a1,b1,c1:real; var delta1,X1,Y1:real);
begin
delta:=sqr(b1)-4*a1*c1;
if delta<0 then Writeln('Ecuatia n-are solutii reale');
if delta=0 then Writeln('Solutia ecuatiei este ',(-1*b1)/(2*a1));
if delta>0 then
begin
X1:=(-1*b1+sqrt(delta1))/(2*a1);
Y1:=(-1*b1-sqrt(delta1))/(2*a1);
Writeln('Solutiile ecuatiei sunt ',X1,' si ',Y1);
end;
end;
begin
Writeln('Introduceti a, b si c'); readln(a,b,c);
Ecuatie(a,b,c,delta,X,Y);
end.
Program ex5b;
var s:string; l:integer; x:char;
Procedure Sir(s1:string; l1:integer; x1:char);
begin
for l1:=1 to (length(s1)) do
if s1[l1]=x then s1[l1]:=' ';
writeln('Sirul obtinut este: ',s1);
end;
begin
Writeln('Introdu sirul'); readln(s);
Writeln('Introdu caracterul care va fi radiat'); readln(x);
Sir(s,l,x);
end.
Program ex5d;
Type
Litere='A'..'z';
Multime=set of Litere;
var s:string; l,n:integer; V:Multime;
Procedure Vocale(s1:string; l1,n1:integer);
begin
for l1:=1 to (length(s1)) do
if s1[l1] in V then n1:=n1+1;;
writeln('In sirul dat sunt ',n1,' vocale');
end;
begin
V:=['a','A','e','E','i','I','o','O','U','u'];
Writeln('Introdu sirul'); readln(s);
Vocale(s,l,n);
end.
Program ex5d;
Type
Litere='A'..'z';
Multime=set of Litere;
var s:string; l,n:integer; V:Multime;
Function Vocale(s1:string; l1,n1:integer):integer;
begin
for l1:=1 to (length(s1)) do
if s1[l1] in V then n1:=n1+1;;
writeln('In sirul dat sunt ',n1,' vocale');
end;
begin
V:=['a','A','e','E','i','I','o','O','U','u'];
Writeln('Introdu sirul'); readln(s);
Vocale(s,l,n);
end.