diff --git a/babak/best_wishes.pas b/babak/best_wishes.pas new file mode 100644 index 0000000..05e7a1c --- /dev/null +++ b/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. \ No newline at end of file diff --git a/babak/calculator b/babak/calculator new file mode 100644 index 0000000..5e1ce76 --- /dev/null +++ b/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. \ No newline at end of file diff --git a/babak/diffmaxmin.pas b/babak/diffmaxmin.pas new file mode 100644 index 0000000..d57df9f --- /dev/null +++ b/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 (XY) 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. \ No newline at end of file diff --git a/babak/leastnumber.pas b/babak/leastnumber.pas new file mode 100644 index 0000000..41e7463 --- /dev/null +++ b/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 (X0 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. \ No newline at end of file diff --git a/babak/prog11.pas b/babak/prog11.pas new file mode 100644 index 0000000..1a11783 --- /dev/null +++ b/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. \ No newline at end of file diff --git a/babak/prog2.pas b/babak/prog2.pas new file mode 100644 index 0000000..8a0236c --- /dev/null +++ b/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. \ No newline at end of file diff --git a/babak/prog4 b/babak/prog4 new file mode 100644 index 0000000..883dab1 --- /dev/null +++ b/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. \ No newline at end of file diff --git a/babak/prog5 b/babak/prog5 new file mode 100644 index 0000000..74f5737 --- /dev/null +++ b/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. \ No newline at end of file diff --git a/babak/prog6 b/babak/prog6 new file mode 100644 index 0000000..2f66516 --- /dev/null +++ b/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. \ No newline at end of file diff --git a/babak/prog7 b/babak/prog7 new file mode 100644 index 0000000..16a56ce --- /dev/null +++ b/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. \ No newline at end of file diff --git a/babak/prog8 b/babak/prog8 new file mode 100644 index 0000000..7f4807f --- /dev/null +++ b/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. \ No newline at end of file diff --git a/babak/prog9 b/babak/prog9 new file mode 100644 index 0000000..791ca77 --- /dev/null +++ b/babak/prog9 @@ -0,0 +1,26 @@ +program prog9; +var +h: integer; +m: integer; +Begin +writeln('Enter the time'); +readln(h,m); +if (m<=58) then + begin + m:= m+1; + end +else + begin + m:=0; + if h<=22 then + begin + h:=h+1; + end + else + begin + h:=0; + end; + end; +writeln(h,' ', m); + readln(); +end. \ No newline at end of file diff --git a/babak/prog9.pas b/babak/prog9.pas new file mode 100644 index 0000000..791ca77 --- /dev/null +++ b/babak/prog9.pas @@ -0,0 +1,26 @@ +program prog9; +var +h: integer; +m: integer; +Begin +writeln('Enter the time'); +readln(h,m); +if (m<=58) then + begin + m:= m+1; + end +else + begin + m:=0; + if h<=22 then + begin + h:=h+1; + end + else + begin + h:=0; + end; + end; +writeln(h,' ', m); + readln(); +end. \ No newline at end of file diff --git a/babak/quater b/babak/quater new file mode 100644 index 0000000..b196960 --- /dev/null +++ b/babak/quater @@ -0,0 +1,20 @@ +program quater; +var +month: integer; +Begin +writeln('Enter month'); +readln(month); +case month of + 1,2,3: + writeln ('The first quater'); + 4,5,6: + writeln ('The second quater'); + 7,8,9: + writeln ('The third quater'); + 10,11,12: + writeln ('The fourth quater') +else + writeln ('Invalid month'); +end; +readln(); +end. \ No newline at end of file diff --git a/babak/task5_2.pas b/babak/task5_2.pas new file mode 100644 index 0000000..f902adf --- /dev/null +++ b/babak/task5_2.pas @@ -0,0 +1,23 @@ +program task5_2; +var +i:integer; +n:integer; +a:longInt; +b:longInt; +c:longInt; +begin + writeln ('Enter n'); + readln (n); + a:=1; + writeln (a,' '); + b:=1; + writeln(b,' '); + for i:=3 to n do + begin + writeln (a+b, ' '); + c:=b; + b:=a+b; + a:=c; + end; + readln (); +end. \ No newline at end of file diff --git a/babak/task5_4_1.pas b/babak/task5_4_1.pas new file mode 100644 index 0000000..82d72a2 --- /dev/null +++ b/babak/task5_4_1.pas @@ -0,0 +1,30 @@ +program task5_4_1; +var +a:integer; +sum:integer; +count:integer; +max:integer; +min:integer; +avr:real; +begin + count:=0; + writeln ('Enter number'); + repeat + count:=count+1; + readln (a); + if count = 1 then + max:=a; + min:=a; + if a >max then + max:=a; + if a < min then + min:=a; + sum := 0; + sum := sum+a; + avr:=sum/count; + until a=0; + writeln ('Min value is ', min); + writeln ('Max value is ', max); + writeln ('Average value is ', avr:0:2); + readln(); +end. \ No newline at end of file diff --git a/babak/task5_5.pas b/babak/task5_5.pas new file mode 100644 index 0000000..02fe401 --- /dev/null +++ b/babak/task5_5.pas @@ -0,0 +1,22 @@ +program task5_5; +var + a: integer; + c: integer; +begin + randomize; + a := random(100); + writeln('Enter number: '); + readln(c); + while a <> c do begin + writeln('Enter number: '); + readln(c); + if c > a then + writeln('<') + else + if c < a then + writeln('>') + else + writeln('You win'); + end; +readln(); +end. \ No newline at end of file diff --git a/babak/task6_2.pas b/babak/task6_2.pas new file mode 100644 index 0000000..2d696e5 --- /dev/null +++ b/babak/task6_2.pas @@ -0,0 +1,18 @@ +program task6_2; +uses crt; +var +i:integer; +n:integer; +sum:integer; +begin + randomize; + sum:=0; + for i:=1 to 30 do + begin + n:= random (50)+1; + sum:=sum+n; + writeln(n); + end; + writeln ('Sum is ', sum); + readln(); +end. \ No newline at end of file diff --git a/babak/task6_2a.pas b/babak/task6_2a.pas new file mode 100644 index 0000000..56eae76 --- /dev/null +++ b/babak/task6_2a.pas @@ -0,0 +1,17 @@ +program task6_2a; +uses crt; +var +i:integer; +n:integer; +sum:integer; +begin + randomize; + sum:=0; + for i:=1 to 30 do + begin + n:= random (50)+1; + sum:=sum+n; + writeln(n, 'Sum:',sum); + end; + readln(); +end. \ No newline at end of file diff --git a/babak/task6_4.pas b/babak/task6_4.pas new file mode 100644 index 0000000..d63c26c --- /dev/null +++ b/babak/task6_4.pas @@ -0,0 +1,13 @@ +program task6_4; +uses crt; +var i,j,k: integer; +begin +for i:=1 to 10 do begin +for j:=1 to 10 do begin +k:=j*i; +writeln(i, '*', j, '=',k); +end; +writeln; +end; +readln(); +end. \ No newline at end of file diff --git a/babak/task_4_3.pas b/babak/task_4_3.pas new file mode 100644 index 0000000..c5fda66 --- /dev/null +++ b/babak/task_4_3.pas @@ -0,0 +1,27 @@ +program task_4_3; +uses crt; + var + i:integer; + k:integer; + n:integer; + indent:string; + begin + k:=2; + n:=4; + indent:=''; + for i:=1 to 20 do + begin + if (i mod 2)= 0 then + begin + textcolor (k); + end + else + begin + textcolor (n); + end; + 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); + readln(); + end. \ No newline at end of file diff --git a/babak/task_4_4.pas b/babak/task_4_4.pas new file mode 100644 index 0000000..77b5657 --- /dev/null +++ b/babak/task_4_4.pas @@ -0,0 +1,20 @@ +program task_4_4; +uses crt; + var + i:integer; + k:integer; + indent:string; + begin + indent:=''; + for i:=1 to 20 do + begin + for k:=1 to 3 do + begin + textcolor (i); + writeln(indent,i,' Nadia,you are kind, honest and purposeful person. You will be able to achive all your goals'); + indent:=indent+ ' '; + Delay (500); + end; + end; + readln(); + end. \ No newline at end of file diff --git a/babak/tile.pas b/babak/tile.pas new file mode 100644 index 0000000..c321db0 --- /dev/null +++ b/babak/tile.pas @@ -0,0 +1,19 @@ +program tile; +var +N:integer; + +Begin +writeln('Enter the number of tiles'); +readln(N); +if (N mod 2)=0 then + begin + writeln ('black ',N div 2); + writeln ('white ',N div 2); + end +else + begin + writeln ('black ',N div 2+1); + writeln ('white ', N div 2); + end; +readln(); +end. \ No newline at end of file