Synthesis of Pascal exercises has prizes, from easy to difficult
Pascal is a fairly old language, in fact it is no longer in common use as before. Compared to modern scripting languages, Pascal is quite lengthy, highly abstract and the code is quite similar to the C programming language. Most C programs can be translated to Pascal but only changed change syntax but not change structure. Which C is one of the very popular programming languages, thus grasping Pascal you will approach C better. It also forces you to always think about data types, which will help new developers learn a great habit when coding.
And because there is not much commercial value, Pascal is used primarily for introductory programming or for Pascal lovers to explore. If you like programming, just learning but not "absorbing" Pascal can try Python.
Below is a summary of some basic to complex Pascal exercises that TipsMake.com has gathered, hoping your learning will be a little easier.
- Download Pascal and install Pascal on Windows
- Who invented the Pascal programming language?
The Pascal exercise has a prize
- Lesson 1: Print even numbers on the screen
- Lesson 2: Calculate, print the total, effect, area and trade of 2 numbers
- Lesson 3: Check to see if the triangle is balanced and square
- Lesson 4: Solving quadratic equations
- Lesson 5: Check the parity, element, perfect
- Lesson 6: The n-level calculation of a number
- Lesson 7: The total number of digits of a number
- Lesson 8: Reverse 2 numbers
- Lesson 9: Print multiples 3 and 5
- Lesson 10: Print the sum of the digits of a number
- Lesson 11: Check primes
- Lesson 12: Check the perfect number
- Lesson 13: Check the main number
- Lesson 14: Count vowels and numbers in a string
- Lesson 15: Check if 3 numbers are the length of the triangle
- Lesson 16: Count numbers by condition and sum
- Lesson 17: Find the maximum value of 4 numbers
- Lesson 18: See what day of the week is
- Lesson 19: Print report card
- Lesson 20: Enter 2 real numbers and calculate the calculation as required
Lesson 1: Print even numbers on the screen
Write a program to enter a number of N positive integers and print the screen of even numbers from 0 to N, so that each number takes 4 positions and 1 line has 15 numbers.
The answer:
uses crt; {khai bao' thu vien crt} var n,i,dem:integer; BEGIN clrscr;{ cau lenh xoa man hinh}; write('Nhap n: ');readln(n); dem:=0; for i:=1 to n do begin if i mod 2=0 then begin write(i:4); dem:=dem+1; end; if dem=15 then begin dem:=0; writeln;{in duoc 15 so thi xuong dong}; end; end; readln END.
Lesson 2: Calculate, print the total, effect, area and trade of 2 numbers
Enter 2 positive integers a and b. Later:
- Calculate and print the screen of the total, effect, trade and the greatest common of the two numbers.
- Calculate the sum of the positive divisors of | a + b |
The answer:
uses crt; var a,b,tg,i,tong:integer; function tinh(x,y:integer):integer; begin tg:= x mod y; if tg=0 then tinh:=y else tinh:=tinh(y,tg); end; BEGIN clrscr; write('Nhap a: ');readln(a); write('Nhap b: ');readln(b); tong:=1; for i:=2 to abs(a+b) do if (abs(a+b) mod i =0) then tong:=tong+i; writeln('Tong 2 so la: ',a+b); writeln('Hieu 2 so la: ',ab); writeln('Tich 2 so la: ',a*b); writeln('Thuong 2 so la: ',a/b:0:4); writeln('UCLN 2 so la: ',tinh(a,b)); writeln('Tong cac uoc cua ',a+b,' la: ',tong); readln END.
Lesson 3: Check to see if the triangle is balanced and square
Write a program to enter the lengths of the sides of the triangle and then calculate the circumference, area, 3 high paths of the triangle. Check if the triangle is an isosceles triangle or a right triangle.
The answer:
uses crt; var a,b,c,cv,dt,p:real; BEGIN clrscr; write('Nhap do dai canh a: ');readln(a); write('Nhap do dai canh b: ');readln(b); write('Nhap do dai canh c: ');readln(c); cv:=a+b+c; p:=(a+b+c)/2; dt:=sqrt(p*(pa)*(pb)*(pc)); writeln('Chu vi tam giac la: ',cv:0:4); writeln('Dien tich tam giac la: ',dt:0:4); writeln('Duong cao canh thu 1 la: ',dt*2/a:0:4); writeln('Duong cao canh thu 2 la: ',dt*2/b:0:4); writeln('Duong cao canh thu 3 la: ',dt*2/c:0:4); if (a=b) or (a=c) or(b=c) then writeln('Tam giac can'); if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=b*b+a*a)then writeln('Tam giac vuong'); readln END.
Lesson 4: Solving quadratic equations
Write a program to solve quadratic equations.
The answer:
uses crt; var a,b,c,x1,x2,d:real; BEGIN clrscr; write('Nhap a: ');readln(a); write('Nhap b: ');readln(b); write('Nhap c: ');readln(c); d:=b*b-4*a*c; if d>0 then begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); writeln('2 nghiem PT la: ',x1:0:2,' va: ',x2:0:2); end else if d=0 then begin x1:=(-b)/(2*a); writeln('PT co nghiem kep la: ',x1:0:2); end else writeln('PT vo nghiem'); readln END.
Lesson 5: Check the parity, element, perfect
Enter 1 4-digit integer:
- Check parity
- Check if it is a prime number
- Check if the number is perfect
The answer:
uses crt; var n,i:integer;ok:boolean; BEGIN clrscr; write('Nhap n: ');readln(n); if n mod 2=0 then writeln('So ',n,' la so chan') else writeln('So ',n,' la so le'); if n
It is possible to replace the loop 'for i: = 2 to trunc (sqrt (n)) do' by the command while.do.when we do not need to turn ok anymore.
Lesson 6: The n-level calculation of a number
Enter 2 numbers n, a. Calculate the square root of a:
The answer:
uses crt; var n:integer;a,s:real; BEGIN clrscr; write('Nhap a: ');readln(a); repeat write('Nhap n: ');readln(n); until (n>0); if (n mod 2=0) and (a>=0) then begin s:=exp(1/n*ln(a)); writeln('Ket qua la: ',s:0:4); end else if (n mod 2<>0) then begin s:=exp(1/n*ln(abs(a))); writeln('Ket qua la: ',s:0:4); end else writeln('Khong xac dinh'); readln END.
Lesson 7: The total number of digits of a number
Enter any 3-digit number and then sum the digits of that number.
The answer:
uses crt; var a:integer;tong:byte; BEGIN clrscr; write('Nhap 1 so co 3 chu so: ');readln(a); tong:= a mod 10; a:=a div 10; tong:=tong+a mod 10; a:=a div 10; tong:=tong+a mod 10; writeln('Tong cac chu so do la: ',tong); readln END.
Lesson 8: Reverse 2 numbers
Enter 2 integers a, b, permutate 2 numbers when a> b.
The answer:
uses crt; var a,b,tg:integer; BEGIN clrscr; write('Nhap a: ');readln(a); write('Nhap b: ');readln(b); if a>b then begin tg:=a; a:=b; b:=tg; end; writeln(a,' ',b); readln END.
Lesson 9: Print multiples 3 and 5
Enter a positive integer n, print the sum of positive integers from 1 to n which is a multiple of 3 or 5.
The answer:
uses crt; var n,tong,i:integer; BEGIN clrscr; write('Nhap so nguyen duong n: ');readln(n); tong:=0; for i:=1 to n do if (i mod 3=0) or (i mod 5=0) then tong:=tong+i; writeln('Tong cac so chia het cho 3 hoac 5 tu 0--> ',n,' la: ',tong); readln END.
Lesson 10: Print the sum of the digits of a number
Enter any n then print the sum of the digits of n.
The answer:
uses crt; var n,m:longint;tong:byte; BEGIN clrscr; write('Nhap n: ');readln(n); tong:=0;m:=n; while m>0 do begin tong:=tong+m mod 10; m:=m div 10; end; writeln('Tong cac chu so cua ',n,' la: ',tong); readln END
Lesson 11: Check primes
Enter any number n and check if n is a prime number.
Sample code:
uses crt; var n,i:integer; BEGIN clrscr; write('Nhap so nguyen duong n: '); readln(n); if n0)) do i:=i+1; if i>trunc(sqrt(n)) then writeln(n,' la so nguyen to') else writeln(n,' khong la so nguyen to'); end; readln END.
Lesson 12: Check the perfect number
Enter a positive integer n and check if n is the perfect number.
The answer:
The perfect number is the number that has the sum of the divisors (except it) by itself. For example, number 6 has divisors of 1, 2, 3; No. 28, 496 are also perfect numbers.
Sample code:
uses crt; var n:longint;tong,i:integer; BEGIN clrscr; write('Nhap so nguyen duong n: ');readln(n); tong:=0; for i:=1 to n div 2 do if n mod i=0 then tong:=tong+i; if tong=n then writeln(n,' la so hoan hao') else writeln(n,'khong la so hoan hao'); readln END.
Lesson 13: Check the main number
Enter any positive integer n and check if n is the main number.
Sample code:
uses crt; var n:longint; BEGIN clrscr; write('Nhap so nguyen duong n: ');readln(n); if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong') else writeln(n,' khong la so chinh phuong'); readln END.
Lesson 14: Count vowels and numbers in a string
Enter a string and check how many vowels there are, how many numbers?
Sample code:
uses crt; var s:string;dem1,dem2,i:byte; BEGIN clrscr; write('Nhap 1 chuoi: ');readln(s); dem1:=0;dem2:=0; for i:=1 to length(s) do begin if s[i] in ['a','e','i','o','u','y','A','E','I','O','U','Y'] then dem1:=dem1+1; if s[i] in ['0','1','2','3','4','5','6','7','8','9'] then dem2:=dem2+1; end; writeln('Trong chuoi ',s,' co ',dem1,' nguyen am va co ',dem2,' ki tu so'); readln END.
Lesson 15: Check if 3 numbers are the length of the triangle
Enter any 3 numbers a, b, c. Check if 3 numbers can be the length of 3 sides of a triangle and notify the screen.
Sample code:
Var a, b, c: Real; BEGIN Writeln ('Nhap do dai 3 canh cua tam giac:'); Write ('a ='); Readln (a); Write ('b ='); Readln (b); Write ('c ='); Readln (c); If (a + b > c) and (b + c > a) and (c + a > b) and (a > 0) and (b > 0) and (c > 0) Then Writeln ('Thoa man: Day la 3 canh cua mot tam giac') Else Writeln ('Khong thoa man!'); Readln; END.
Lesson 16: Count numbers by condition and sum
Enter any N number. Count numbers greater than 10 and less than 20 and calculate their sum. Then, bring up the screen "So the compared> 10 and
Sample code:
Var Tong, So: Real; I, N, Dem: Integer; BEGIN Write ('Ban muon nhap bao nhieu so: '); Readln (N); Tong:= 0; Dem:= 0; For I:= 1 To N Do Begin Write ('So = '); Readln (So); If (So > 10) and (So < 20) Then Begin Tong:= Tong + So; Dem:= Dem + 1; End; End; Writeln ('So cac so >10 va
Lesson 17: Find the maximum value of 4 numbers
Enter 4 numbers a, b, c, d. Find their maximum value and assign that value to the variable Max.
Sample code:
Var Max, a, b, c, d: Real; BEGIN Writeln ('Nhap gia tri cua 4 so: '); Write ('a = ') ; Readln (a); Write ('b = ') ; Readln (b); Write ('c = ') ; Readln (c); Write ('d = ') ; Readln (d); Max:= a; If Max < b Then Max:= b; If Max < c Then Max:= c; If Max < d Then Max:= d; Writeln ('Gia tri lon nhat la: ', Max); Readln; END.
Lesson 18: See what day of the week is
Read the date and year, then write down the screen which day of the week.
Sample code:
Var Thu, Ngay, Thang: Byte; Nam: Integer; BEGIN Write ('Doc Ngay Thang Nam: '); Readln ( Ngay, Thang, Nam ); Nam:= 1900 + (Nam mod 1900); If Thang < 3 Then Begin Thang:= Thang + 12; Nam:= Nam - 1; End; Thu:= Abs (Ngay + Thang * 2 + (Thang + 1) * 3 div 5 + Nam + Nam div 4) mod 7; Case Thu Of 0: Writeln ('Chu Nhat'); 1: Writeln ('Thu Hai'); 2: Writeln ('Thu Ba'); 3: Writeln ('Thu Tu'); 4: Writeln ('Thu Nam'); 5: Writeln ('Thu Sau'); 6: Writeln ('Thu Bay'); End; Readln; END.
Lesson 19: Print report card
Write a program: Enter your identification number, enter grades, and math. Print to the screen as:
Report card:
Identification number:
Text:
Math scores:
Foreign language scores:
Total score:
You have matriculated: If Total score> = 20.
You do not enroll: If Total score <20.
Uses Crt; Var SBD: Integer; Van, Toan, Anh, Tongdiem: Real; BEGIN Clrscr; Write ('So bao danh: '); Readln(SBD); Write ('Diem toan: '); Readln(Toan); Write ('Diem ngoai ngu: '); Readln(Anh); Write ('Diem van: '); Readln (Van); Tongdiem:= Toan + Van + Anh; Clrscr; Writeln ('Phieu Bao Diem ') ; Writeln ('So bao danh : ', SBD); Writeln ('Diem van : ', Van); Writeln ('Diem toan : ', Toan); Writeln ('Diem ngoai ngu : ', Anh) ; Writeln ('Tong diem : ', Tongdiem); If Tongdiem >= 15 Then Writeln(' Ban da trung tuyen '); Else Writeln(' Ban khong trung tuyen '); Readln; END.
Lesson 20: Enter 2 real numbers and calculate the calculation as required
Write a program to enter two real numbers. Then ask the calculation you want to perform and print the result of that calculation.
If it is "+", print two numbers on the screen.
If it is "-", print two numbers on the screen.
If it is "/", print two numbers on the screen.
If it is "*", print two numbers on the screen.
Sample code:
Uses Crt; Var a, b, kq: Real; Pt: Char; BEGIN Clrscr; Write ('a ='); Readln(a); Write ('b ='); Readln(b); Write ('Phep tinh thuc hien la (+ - * /): '); Readln(Pt); If Pt = '+' Then kq := a + b; If Pt = '-' Then kq := a - b; If Pt = '*' Then kq := a * b; If Pt = '/' Then kq := a / b; Write (a, pt, b, '=', kq); Readln; END.
This list of exercises will be updated, save it to make new posts.
See more:
- C ++ exercises have solutions (sample code)
- Basic Java exercises, with sample decoding
- More than 100 Python exercises have solutions (sample code)
You should read it
- How to write curves in Photoshop
- Learn about the Write Zero method
- Why write neat and organized HTML?
- How to enable / disable Disk Write Caching in Windows 10
- What is JD? What does JD mean?
- Top 7 electronic lesson planning software
- The best apps that support writing and writing notes on Android
- 7 ways to fix, fix 'Write Protection' error on USB
- Learn to write email like a real CEO
- MS PowerPoint - Lesson 5: Create a manual presentation slide
- Activate the 'Write Protection' mode of USB on Windows 10
- Instructions for writing bank checks