TEMA: TIPURI SIMPLE DE DATE
1. Scrieţi un program care va declanşa o eroare de depăşire în timpul compilării textului programului.
2. Scrieţi un program care va declanşa o eroare de execuţie în timpul execuţiei programului.
3. Scrieţi un program care va citi de la tastatură un caracter şi va afişa caracterul citit şi numărul lui de ordine.
4. Scrieţi un program care va afişa tabelul de valori pentru operaţia logică “AND”.
5. Scrieţi un program care va determina câtul şi restul împărţirii numerelor întregi a şi b.
6. Scrieţi un program în care va fi definit un tip enumerare şi va fi calculat numărul de ordine a valorilor acestui tip.
7. Scrieţi un program în care se va defini un tip subdomeniu format numai din numere de două cifre. De la tastatură se vor citi 2 numere şi se va calcula suma şi produsul lor.
8. Scrieţi un program care va calcula suma cifrelor unui număr întreg, pozitiv format din 3 cifre.
9. Scrieţi un program care va calcula produsul cifrelor unui număr întreg, pozitiv format din 2 cifre.
10. Scrieţi un program PASCAL care va citi 2 numere reale x şi y şi va afişa pe ecran TRUE daca x>y şi FALSE în caz contrar.

nota
Unele programe aveţi scrise în manual la tema respectivă: rămîne să citiţi atent şi să vă pregătiţi de lucrare.

Exercitiul 5

Program P1994
var a, b, c : integer;
begin
writeln('Operatii cu nr. intregi a, b:');
readln(a, b);
writeln('a=', a);
writeln('b=', b);
c:=a mod b; writeln('a mod b=', c);
c:= a div b ; writeln('a div b=', c);
end.

a)de calculat:
24/(3*4)-24/3/4+24/3*4+25div6+25mod7=24/12-2+32+4+4=2-2+32+8=40
b)de scris modalitatea de schimbare a doua valori a si b. a=10 si b=15 ,ca a sa fie 15 si b sa fie 10.
Program;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
a:=b-a;
b:=b-a;
a:=b+a;
end.

De scris un program necesar pentru a calcula suma cifrelor a numarului m din 3 cifre.

Program P3;
var m, n, p, i : integer;
begin
writeln('Introduceti numarul intreg m');
readln(m);
n:=m mod 10;
writeln('m mod 10=', n);
p:=m div 10;
writeln('m div 10=', p);
n:=p mod 10;
writeln('p mod 10=', n);
p:=p div 10;
writeln ('p div 10=', p);
i:=n+n+p;
writeln('n+n+p=', i);
readln;
end.

sa se creeze un program care sa calculeze suma aniste numere

Dacă dorești raspuns la probleme te inregistrezi pe pagina: http://liceupopesti.ucoz.com/forum/

aici iti răspund numai la prima problemă:
1) de la tastatura se citeste un numar intreg n.
Elaborati un program pascal care va afisa tablita inmultirii a acestui numar de la 1 pina la 10;

Program produs;
var n,i:integer;
Begin
write(' n = '); readln(n);
for i:=1 to n do
writeln(n,' * ',i,' = ',i*n);
readln;
end.