phongvo.blog

SỐ CHÍNH PHƯƠNG (PASCAL) Số chính phương là số  mà nó là căn bậc 2 của một số nguyên nào đó. ví dụ: 4,9,16,25,.... là các số chính phương;  có nhiều cách để xác định một số có phải là số có phải số chính phương hay không; cách đơn giản nhất  ta dùng lệnh if (sqr (round(sqrt(A))))=A then write('A la so chinh phuong')                                              else  write('A khong la so chinh phuong'); Ghi chú: sqrt : hàm tính căn bậc 2 sqr: hàm tính bình phương round: hàm làm tròn số - Cách khác' if frac(sqrt(A))=0 then  write('A la so chinh phuong')                                              else  write('A khong la so chinh phuong');

Bài tập 16/3/2016 (Đề thi cấp huyện lớp 8 năm 2014-2015) bài 1;Viết chương trình nhập vào từ bàn phím một dãy số nguyên cho đến khi gặp số 0. hãy in ra màn hình a. Tổng các số dương b. Trung bình cộng các số âm bài 2:Viết chương trình cho phép nhập số nguyên dương N rồi thực hiện a. cho biết N có phải là lũy thừa ba của một số hay không b. Viết N dưới dạng một lũy thừa với số mũ là số tự nhiên của 5, viết không nếu N không phải là lũy thừa của 5 c. Tìm số dư khi N mũ n chia cho 7 bài 3. Viết chương trình nhập từ bàn phím dãy số thực co N phần tử (1<N<100). hãy in ra màn hình a. dãy số ban đầu đã nhập b. dãy số đã sắp xếp lại. biết sắp xếp các phần tử theo nguyên tắc sau: a1 đổi chỗ cho an, a2 đổi chỗ cho an-1,....

VÒNG LẶP KHÔNG XÁC ĐỊNH  WHILE..DO; REPEAT .. UNTIL - Vòng lặp While..do While <điều kiện > Do  <câu lệnh>; Câu lệnh sau do được thực hiện khi điều kiện được thỏa mãn (điều kiện =true); vòng lặp kết thúc khi điều kiện không thỏa (điều kiện =false) - Vòng lặp Repeat .. until; Repeat <câu lệnh>; Until <điều kiện>; Lặp lại câu lệnh cho đến khi nào  thỏa mãn điều kiện  (điều kiện =true) thì dừng lại;  Bài tập: Nhập vào một số nguyên A thỏa mãn (0<A<100), Tính tổng các số nguyên từ 1 đến A (S=1+2+...+A). Vận dụng câu lệnh While .. do uses crt; var A,I:  Integer; S:longint; begin          a:=0;          while not ((a>0) and (a<100)) do          begin          write('Nhap gia tri cua A:'); read(A);           end;          s:=0...

CÂU LỆNH LẶP FOR..DO (PASCAL) Có hai dạng sau: - Dạng tiến FOR <biến đếm>:=<giá trị Min> TO <giá trị Max> DO S; - Dạng lùi FOR <biến đếm>:=<giá trị Max> DOWNTO <giá trị Min> DO S; Câu lệnh lặp For .. do lặp lại câu lệnh S  n lần (n=giá trị Max-giá trị min+1);  Sau  Do là một câu lệnh đơn (1 câu lệnh) hoặc  nhiều câu lệnh (được đặt trong cặp từ khóa Begin ... End;) Bài tập: Viết chương trình nhập vào số nguyên N từ bàn phím. Hãy tính và in ra màn hình tổng, tích của các số chẵn từ 1 đến N.   USES CRT; VAR S,N,I:INTEGER; P:LONGINT; BEGIN CLRSCR; WRITE('NHAP SO n:'); READ(n); S:=0; FOR I:=1 TO N DO BEGIN IF I MOD 2 =0 THEN S:=S+I; END; WRITE('TONG CUA SO CHAN LA:',S); WRITELN; P:=1; FOR I:=1 TO n DO BEGIN IF I MOD 2 =0 THEN P:=P*I; END; WRITE('TICH CUA DAY SO CHAN LA:',P); READKEY; END.

CÂU LỆNH IF..THEN (PASCAL) cú pháp:   IF <điều kiện> Then <Câu lệnh 1>                                         Else <Câu lệnh 2> Trong đó <điều kiện > thường là các phép so sánh gồm có (=, <>, >, <, <=,>=), có thể sử dụng nhiều điều kiện trong một câu lệnh  bằng các phép AND (và), OR (hoặc), NOT, XOR Bài tập: Viết chương trình giải phương trình bậc 1 : AX+B=0 Gợi ý:   A:=0; b:=0; 0X+0=0 có vô số nghiệm A:=0; b:<>0; 0X+b=0 vô nghiệm A<>0; vd 2x+3=0; x=-3/2; có 1 nghiem x=-b/a If a=0 then If b=0 then write(‘ pt co vo so nghiem’) else write(‘pt vo gnhiem’) Else write(‘nghiem x=’, -b/a); Chương trình: program phuong_trinh; uses crt; var a,b,x:real; begin clrscr; write('nhap gia tri cua a: '); readln(a); write('nhap gia tri cua b: '); readln(b); if a=0 then if b=0 then write('pt co vo so nghiem') else write('pt...

·         Thuật toán tìm UCLN của 2 số nguyên dương: Cho 2 số nguyên dương m, n. Tìm UCLN(m,n) Học sinh thường dùng một trong 2 thuật toán Thuật toán 1: Sử dụng phép trừ liên tục cho đến khi 2 số bằng nhau:                      + Nhập m, n                      + While m<>n do                              If m>n then m:=m-n                              Else n:=n-m;                ...

BÀI TẬP PASCAL VỀ  BIẾN MẢNG Bài tập mảng: (su dung procedure) - Nhập số phần tử mảng - Nhập giá trị cho mảng - In ra màn hình các giá trị của mảng - Tính tổng các giá trị của mảng - Tìm các số nguyên tố, số chính phương có trong mảng - Tìm số lớn nhất, nhỏ nhất - sắp xếp tăng dần, giảm dần - Cho 1 số có giá trị K, tìm tất cả các vị trí trong mảng có giá trị K - Thêm một phần tử vào cuối mảng - Xóa một phần tử khỏi mảng ......... uses crt; var n,p,s,max,min,d,j,i,k,c:integer; A:array[1..100] of integer; {-------ham tinh so nguyen to------} function snt( a:integer):boolean; var j:integer; uoc:integer; begin uoc:=0; for j:= 1 to a do if a mod j =0 then uoc:=uoc+1; if uoc=2 then snt:=true else snt:=false; end; procedure nhapsophantu; begin write('nhap so phan tu cua mang:'); read(n); {nhap day so cho mang} for i:= 1 to n do begin write('nhap phan tu thu ',i, ':'); read(a[i]); end; end; procedure xuat; begin {Xuat day so...

HÀM KIỂM TRA MỘT SỐ CÓ PHẢI LÀ SỐ NGUYÊN TỐ HAY KHÔNG TRONG PASCAL (Cách đơn giản, dễ hiểu nhất) function snt( a:integer):boolean; var j:integer; uoc:integer; begin uoc:=0; for j:= 1 to a do if a mod j =0 then uoc:=uoc+1; if uoc=2 then snt:=true else snt:=false; end; {Cách khác} Function snt(x:Integer):boolean; var i:integer; begin snt:=x>1; for i:=2 to X-1 do if x mod i =0 then snt:=false end; Một số bài toán liên quan đến số nguyên tố + Số nguyên tố rút gọn: số nguyên tố rút gọn của một số n chính là tổng các ước nguyên tố của n    s:=0;    for i:=1 to N do if( n mod i=0)  and snt(i) then s:=s+i;    write('so nguyen to rut gon cua N la:',s); + Số nguyên tố họ hàng: Là số nguyên tố, đồng thời tổng của nó với 4 cũng là một số nguyên tố   for i:=1 ton N do   If snt(i) and snt(i+4) then write(i, ' '); + Số song tố: Là số nguyên tố mà tổng các chữ số của nó cũng là một số nguyên tố; if ...

KIỂM TRA GIÁ TRỊ NHẬP VÀO BIẾN TRONG LẬP TRÌNH PASCAL *CHECK THE VALUE OF ENTRY INTO THE PROGRAMMING PASCAL* {doan lenh kiem tra gia tri nhap vao bang cau lenh while .. do} n:=0; while not ((n>0) and (n<100)) do begin write('nhap N:'); read(N); end; {doan lenh kiem tra gia tri nhap vao bang cau lenh repeat .. until} Repeat begin write('nhap N:'); read(N); end; until  (n>0) and (n<100);

Buổi ôn thi cuối cùng! Sau hơn 2 tháng  dạy bồi dưỡng, hôm nay 21/04/2016 là buổi dạy ôn thi tin học trẻ cấp huyện lần cuối cùng của năm học 2015-2016. sau hôm nay các em sẽ đi thi, các em hồi hộp, thầy chờ mong kết quả. chúc các em thi tốt nha!