Sunt 12 programe de la şcoală care ne-a dat proful, unele nu sunt rezolvate, dacă cineva ştie voi fi mulţumit.
Programul 1Se consideră 3 numere întregi distincte, să se scrie un program care determină numărul maximal.
Program p1;var a,b,c:integer;beginwriteln('Dati 3 numere intregi;');write('a='); readln(a);write('b='); readln(b);write('c='); readln(c);if (a>b) and (a>c) then writeln ('Numarul maximal este a');if (b>a) and (b>c) then writeln ('Numarul maximal este b');if (c>b) and (c>b) then writeln ('Numarul maximal este c');readlnend.
***
Programul 2Se consideră 3 numere întregi distincte, să se scrie un program care determină numărul minimal.
Program p2;var x,y,z,w,min:integer;write('x='); readln(x);write('y='); readln(y);write('z='); readln(z);write('w='); readln(w);if(x<y) and (x<z) and (x<w) then min:=x;if(y<x) and (y<z) and (y<w) then min:=y;if(z<x) and (z<y) and (z<w) then min:=z;if(w<x) and (w<y) and (w<z) then min:=w;writeln('min=',min);readlnend.
***
Programul 3Se consideră 3 numere întregi distincte, să se scrie un program care le aranjează în ordine crescătoare.
***
Programul 4Se dau 3 numere întregi a,b,c. Să se verifice dacă există un triunghi, în caz afirmativ să se determine tipul triunghiului: echilateral,isoscel,scalen.
Program p4;var a,b,c:integer;beginwriteln('Dati 3 numere intregi:');write('a='); readln(a);write('b='); readln(b);write('c='); readln(c);if (a+c>c) or (a+c>b) or (b+c>a) thenif ((a=b)and(a<>c)) or ((b=c)and(b<>a)) or ((a=c)and(a<>b)) then writeln ('se poate forma un triunghi isoscel');if (a=b) and (a=c) then writeln ('se poate forma un triunghi echilateral');if (a<>c) and (a<>c) and (b<>c) then writeln ('se poate forma un triunghi scalen');readlnend.
***
Proramul 5Să se calculeze valoare funcţiei: f(x)={ x2, x<-5 ; x3, x>=2; x+1,-5<=x<2;}
Program p5;var a,b:real;beginwriteln('Dati numarul a:');write('a='); readln(a);if a<-5 then b:sqr(a);if (a>=-5)and(a<2) then b:=a+1;if a>2 then b:=sqr(a)*a;writeln('b=', b:5:2);readlnend.
***
Programul 6
***
Programul 7De la tastarură se citesc nr de ordine al zilei săptămînei, să se scrie un program care să afişeze denumirea zilei.
Program p7;var a:integer; c:char;beginwrite ('a='); readln(a);case a of1:writeln('Luni');2.writeln('Marti');3.writeln('Miercuri');4.writeln('Joi');5.writeln('Vineri');6.writeln('Simbata');7.writeln('Duminica');else writeln('Asa zi nu exista');end;readlnend.
***
Programul 8De la tastatură se citeşte nota de la 1 pîn la 10, să se afişeze aprecierea: 1...4 rău, 5...6 suficient, 7...8 bine, 9...10 excelent.
Program p8;var a:integer;beginwrite('a='); readln(a);case a of1..4:writeln('nota rea');5..6:writeln('nota suficienta');7..8:writeln('nota buna');9..10:writeln('nota excelenta');else writeln('asa nota nu exista');end;readlnend.
***
Programul 9Să se scrie un program care citeşte de la tastatură un nr întreg n, n(după modul)<10000.
Program p9;var n:integer;beginwriteln('n='); readln(n);writeln ('Afiseaya numarul de cifre ale lui n');case n of-9..9:writeln('Numarul contine o cifra');-99..99:writeln('Numarul contine doua cifre');-999..999:writeln('Numarul contine trei cifre');-9999..9999:writeln('Numarul contine patru cifre');end;readlnend.
***
Programul 10Dintre nr întregi date a,b,cd să se selecteze:1.Maximul 2, nr mai mic ca nr maxim.2.Minimul 2, nr mai mare ca nr minim.
***
Programul 11Se dau nr întregi a,b,c,d să se afişeze nr în ordine: 1. Crescătoare, 2.Descrescătoare.
***
Programul 12Se dă nr Natural n, să se determine ultima cifră a nr 7 la puterea n.
Program p12;var n:integer;beginwriteln('Introduceti valoarea numarul');write('n='); readln(n);if n mod 4=1 then writeln ('ultima cifra e 7');if n mod 4=2 then writeln ('ultima cifra e 9');if n mod 4=3 then writeln ('ultima cifra e 3');if n mod 4=0 then writeln ('ultima cifra e 1');readlnend.
