Một số chương trình pascal khó

Bạn đang xem: Top 13+ Bài Tập Lập Trình Pascal Nâng Cao

Thông tin và kiến thức về chủ đề bài tập lập trình pascal nâng cao hay nhất do Truyền hình cáp sông thu chọn lọc và tổng hợp cùng với các chủ đề liên quan khác.

... cùng phương, chéo nhau nếu hai vec tơ đó không cùng phương.3. Một số bài toán về tính khoảng cách Bài toán 1: Tính khoảng cách h từ một điểm M đến đường thẳng d đi qua điểm M0 và có vtcp ur.Cách ... cùng phương , 't t⇒Bước 3: Phương trình đường thẳng d là AB Bài tập: 1. Viết phương trình chính tắc và phương trình tham số nếu có của các đường thẳng sauđây:a. Đi qua điểm M[2;0;-1] và ... tham số t và t’].Bước 3: A,B,C thẳng hàng ,AB AC⇒uuur uuur cùng phương. Giải hệ phương trình, 0AB AC = uuur uuurTìm được t và t’.Bước 4: Đường thẳng AB là đường thẳng d. Bài toán...

ngobaochauvodich said:

Bài giải tham khảo
uses crt;
type vitri=array[1..3] of integer;
so=array[1..9] of string;
var s,dem,i:integer;
Vt:vitri;
doc:so;
procedure docso[n:integer];
begin
doc[1]:='mot'; doc[2]:='hai'; doc[3]:='ba'; doc[4]:='bon';
doc[5]:='nam'; doc[6]:='sau'; doc[7]:='bay'; doc[8]:='tam'; doc[9]:='chin';
write[doc[n]];
end;
begin
clrscr;
repeat
write['Nhap so can doc '];readln[s];
until [s>=100] and [s ',n,' la: ',tong]; readln END.

Bài 10: In tổng các chữ số của một số

Nhập n bất kỳ sau đó in ra tổng các chữ số của n.

Lời giải:

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

Bài 11: Kiểm tra số nguyên tố

Nhập vào một số n bất kỳ và kiểm tra xem n có phải là số nguyên tố không.

Code mẫu:

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: ',a-b];
 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.

0

Bài 12: Kiểm tra số hoàn hảo

Nhập 1 số nguyên dương n và kiểm tra xem n có phải là số hoàn hảo không.

Lời giải:

Số hoàn hảo là số có tổng các ước [ngoại trừ nó] bằng chính nó. Ví dụ, số 6 có các ước là 1, 2, 3; số 28, 496 cũng là các số hoàn hảo.

Code mẫu:

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: ',a-b];
 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.

1

Bài 13: Kiểm tra số chính phương

Nhập một số nguyên dương n bất kỳ và kiểm tra xem n có phải là số chính phương không.

Code mẫu:

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: ',a-b];
 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.

2

Bài 14: Đếm nguyên âm, số trong một chuỗi

Nhập vào một chuỗi ký tự và kiểm tra xem chuỗi có bao nhiêu nguyên âm, bao nhiêu số?

Code mẫu:

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: ',a-b];
 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.

3

Bài 15: Kiểm tra 3 số có là độ dài cạnh tam giác không

Nhập 3 số a, b, c bất kỳ. Kiểm tra xem 3 số có thể là độ dài 3 cạnh của một tam giác hay không và thông báo ra màn hình.

Code mẫu:

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: ',a-b];
 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.

4

Bài 16: Đếm các số theo điều kiện và tính tổng

Nhập số N bất kỳ. Đếm các số lớn hơn 10 và nhỏ hơn 20 rồi tính tổng của chúng. Sau đó, đưa ra màn hình "So cac so >10 va