Calculator

babak/best_wishes.pas

@@ -0,0 +1,24 @@
+program 4.1;
+uses CRT;
+	var
+	i:integer;
+	indent:string;
+		begin
+		indent:='';
+			for i:=1 to 20 do
+			begin
+			textcolor(i);
+			if i=16 then
+			begin
+			textcolor (i-12);
+			writeln(indent,i,' Nadia,you are kind, honest and purposeful person. You will be able to achive all your goals');
+			end
+			else 
+			begin
+			writeln(indent,i,' Nadia,you are kind, honest and purposeful person. You will be able to achive all your goals');
+			end;
+			indent:=indent+ ' ';
+			Delay (500);
+			end;
+		readln();
+		end.	

babak/calculator

@@ -0,0 +1,57 @@
+program 3.1.2;
+	var
+		operation: integer;
+		a: integer;
+		b: integer;
+			begin
+				writeln('Avalible operations');
+				writeln('1:a+b');
+				writeln('2:a-b');
+				writeln('3:a*b');
+				writeln('4:a div b');
+				writeln('5:a mod b');
+				writeln('6:a ^ 2');
+				writeln ('Enter operation number');
+				readln(operation);
+			case operation of
+			 	1:
+			 	 	begin 
+			 	 	writeln ('Enter operands');
+					readln (a,b);
+					writeln ('Result is ',a+b);
+					end;
+			 	2:
+			 	 	begin 
+			 	 	writeln ('Enter operands');
+					readln (a,b);
+					writeln ('Result is ',a-b);
+					end;
+				3:
+					begin 
+			 	 	writeln ('Enter operands');
+					readln (a,b);
+					writeln ('Result is ',a*b);
+					end;
+			 	4:
+			 	 	begin 
+			 	 	writeln ('Enter operands');
+					readln (a,b);
+					writeln ('Result is ',a div b);
+					end;
+			 	5:
+			 	 	begin 
+			 	 	writeln ('Enter operands');
+					readln (a,b);
+					writeln ('Result is ',a mod b);
+					end;
+			 	6:
+			 	 	begin 
+			 	 	writeln ('Enter operand');
+					readln (a);
+					writeln ('Result is ',a *a);
+					end;
+			else
+				writeln ('Invalid month');
+			end;
+		readln();
+end.

babak/diffmaxmin.pas

@@ -0,0 +1,35 @@
+program diffmaxmin;
+var
+X: integer;
+Y: integer;
+Z: integer;
+M: integer;
+L: integer;
+D: integer;
+Begin
+writeln('Enter  tree numbers');
+readln(X,Y,Z);
+ if (X<Y) then
+ 	if (X<Z) then
+	 	L:=X
+	else 
+		L:=Z
+else
+ 	if (Y<Z) then
+		L:=Y
+ 	else
+ 		L:=Z;
+if (X>Y) then
+ 	if (X>Z) then
+	 	M:=X
+	else 
+		M:=Z
+else
+ 	if (Y>Z) then
+		M:=Y
+ 	else
+ 		M:=Z;
+D:=M-L;	
+writeln (D); 
+ readln();
+end.

babak/leastnumber.pas

@@ -0,0 +1,21 @@
+program leastnumber;
+var
+X: integer;
+Y: integer;
+Z: integer;
+Begin
+writeln('Enter  tree numbers');
+readln(X,Y,Z);
+ if (X<Y) then
+ 	if (X<Z) then
+	 	writeln (X, '- the least')
+	else 
+		writeln (Z, '-the least')
+else
+ 	if (Y<Z) then
+		writeln(Y, '- the least')
+ 	else
+ 		writeln (Z, '- the least');
+if 
+ readln();
+end.

babak/prog10.pas

@@ -0,0 +1,30 @@
+program prog10;
+var
+year: integer;
+Begin
+writeln('Enter year');
+readln(year);
+if (year mod 4)=0 then
+ 	begin
+ 	if (year mod 100)<>0 then
+ 		begin
+ 		writeln ('leap-year');
+ 		end
+ 	else
+		begin
+		if (year mod 400)=0 then
+			begin
+			writeln ('leap-year');
+			end
+		else
+			begin
+			writeln ('not leap-year');
+			end;
+		end;
+	end		
+else
+	begin
+	writeln ('not leap-year');
+	end;
+readln();
+end.

babak/prog11.pas

@@ -0,0 +1,28 @@
+program prog11;
+var
+month: integer;
+date: integer;
+Begin
+writeln('Enter month and date');
+readln(month,date);
+if (month>12) or (date>7) then
+	begin
+		writeln ('wrong data');
+	end
+else
+	if (month = 7) then
+ 	begin
+  	if (date <=5) then
+ 	writeln ('10:00')
+ 	else
+ 	writeln ('off');
+ 	end
+	else
+	begin
+	if (date <=5) then
+ 	writeln ('07:00')
+ 	else
+ 	writeln ('10:00');
+	end;
+readln();
+end.

babak/prog2.pas

@@ -0,0 +1,27 @@
+program prog2;
+var 
+  a:integer;
+  b:integer;
+  K:integer;
+  L:integer;
+  N:integer;
+  M:real;
+  O:integer;
+  P:integer;
+Begin
+writeln('Enter two numbers');
+readln (a,b);
+K:=a+b;
+writeln('a + b=',K);
+L:=a-b;
+writeln('a-b=',L);
+N:=a*b;
+writeln('a*b=',N);
+M:=a/b;
+writeln('a/b=',M:0:1);
+O:=a div b;
+writeln('a div b=',O);
+P:= a mod b;
+writeln('a mod b=',P);	
+readln();
+end.

babak/prog4

@@ -0,0 +1,35 @@
+program prog4;
+var 
+  date: integer;
+  month: integer;
+Begin
+writeln('Enter date and month');
+readln( date, month);
+	Begin
+		if (month > 2) and (month < 11) and (date < 31) then
+			begin
+			writeln (date+1 , month);	
+			end
+			else 
+			begin
+			writeln (date=1, month+1);
+			end;
+		if (month=2) and (date<28) then
+		 	begin
+		 	writeln (date+1, month);	
+		 	end
+			else 
+			begin
+			writeln (date=1, month+1);
+			end;
+		if (month =2) and (date >28) then 
+			begin
+			writeln('wrong date');
+			end;
+		if (month > 2) and (month < 11) and (date > 31) then
+			begin
+			writeln ('wrong date')
+			end;
+	end;
+readln();
+end.

babak/prog5

@@ -0,0 +1,40 @@
+program prog5;
+var 
+ month : integer;
+ year : integer;
+Begin
+writeln('Enter month and year');
+readln(month, year);
+	if (month=1) or (month=3) or (month=5)or (month=7)or (month=8)or (month=10)or (month=12) then
+		begin
+		writeln ('on this month 31 days');
+		end;
+	if (month= 4) or (month=6)or (month=9)or (month=11) then 
+		begin
+		writeln ('on this month 30 days');	
+		end;
+	if (month=2) then
+		if (year mod 4)=0 then
+ 		begin
+ 		if (year mod 100)<>0 then
+ 			begin
+ 			writeln ('29');
+ 			end
+ 		else
+			begin
+			if (year mod 400)=0 then
+				begin
+				writeln ('29');
+				end
+			else
+				begin
+				writeln ('28');
+				end;
+			end;
+		end		
+	else
+	begin
+	writeln ('you put wrong month');	
+	end;
+	readln();
+end.

babak/prog6

@@ -0,0 +1,16 @@
+program prog6;
+var
+A: integer;
+Begin
+writeln('Enter number');
+readln(A);
+ if (A mod 2)=0 then
+	writeln ('even')
+else 
+	writeln ('uneven');
+ if (A mod 10)=0 then 
+ 	writeln ('round')
+ else 
+ 	writeln ('not round');
+readln();
+end.

babak/prog7

@@ -0,0 +1,16 @@
+program prog7;
+var
+A: integer;
+Begin
+writeln('Enter your age');
+readln(A);
+ if (A<0) then
+ 	writeln ('in the plans');
+  if (A>=0) and (A<=18) then
+	writeln ('young');
+ if (A>18) and (A<=49) then
+	writeln('young and beautiful');
+ if (A>49) then
+ 	writeln ('old');
+readln();
+end.

babak/prog8

@@ -0,0 +1,20 @@
+program prog8;
+var
+X: integer;
+Y: integer;
+Z: integer;
+Begin
+writeln('Enter  tree numbers');
+readln(X,Y,Z);
+ if (X>Y) then
+ 	if (X>Z) then
+	 	writeln (X, '- the biggest')
+	else 
+		writeln (Z, '-the biggest')
+else
+ 	if (Y>Z) then
+		writeln(Y, '- the biggest')
+ 	else
+ 		writeln (Z, '- the biggest');
+ readln();
+end.