Đang tải... (xem toàn văn)
Pheùp gaùn ñöôïc duøng ñeå gaùn giaù trò cuûa moät bieåu thöùc, moät haèng vaøo moät bieán.. Pheùp gaùn ñöôïc kí hieäu laø :=..[r]
(1)Tiết Thực hành
NHẬP XUẤT DỮ LIỆU PHÉP GÁN
Kiểm tra cũ :
Câu :1
Câu :2
(2)Nêu khái niệm phép gán, cho ví dụ ?
(3)Biểu thức toán học cho ví dụ ? Biểu thức tốn học cho ví dụ ?
(4)Đáp án câu 1:
Đáp án câu 1:
Phép gán dùng để gán giá trị biểu thức, một vào biến
(5)Đáp án câu : Đáp án câu :
Biểu thức (Expression) công thức
tính tốn để có giá trị theo quy tắc tốn học
Ví du minh h a ọ ï: 3 + PI * f ( x) ; f(x) hàm
/ * = ( / ) * = 7.5
(6)Viết chương trình giải
Viết chương trình giải
tốn Một đàn gia súc có n
tốn Một đàn gia súc có n
con Số trâu nhiều số
con Số trâu nhiều số
bò k Hỏi đàn gia
bò k Hỏi đàn gia
súc có trâu ,
súc có trâu ,
bao nhiêu bò với n k
bao nhiêu bò với n k
được nhập từ bàn phím
được nhập từ bàn phím
Xem thuật giải giải Bằng ngôn ngữ Pascal
(7)Sơ đồ
Phương pháp giải Bài toán
Thuật tốn Áp dụng thuật tốn Dùng ngơn ngữ Pascal
Để giải
(8)Nếu gọi số trâu a
Nếu gọi số trâu a
số bị b n = a +b
số bị b n = a +b
pt(1) k = a - b
pt(1) k = a - b
pt(2)
pt(2)
Hay a - b = k Từ suy
Hay a - b = k Từ suy
ra =>
ra => a = (n+k)/2a = (n+k)/2 và b = b =
n – a
n – a a,b,n,k a,b,n,k số nguyên dương
các số nguyên dương
điều kiện toán : n >
điều kiện toán : n >
k biểu thức (n + k)/2
k biểu thức (n + k)/2
cho kết số nguyên
cho kết số nguyên
dương
dương
(9)Program Tinh_gia_suc
Program Tinh_gia_suc;;
Uses crt;Uses crt;
var n,k: Word; {
var n,k: Word; { Khai bao kieu nguyen duongKhai bao kieu nguyen duong}}
a,b: Reala,b: Real
BeginBegin
Clrscr;Clrscr;
Write(' Ban nhap so gia suc co dan n = '); Readln(n);
Write(' Ban nhap so gia suc co dan n = '); Readln(n);
Write(' Ban nhap so trau nhieu hon so bo k = '); readln(k);Write(' Ban nhap so trau nhieu hon so bo k = '); readln(k);
a:=(n+k)/2; a:=(n+k)/2;
{ a nhan gia tri nguyen duong neu a la le chuong trinh bao loi}{ a nhan gia tri nguyen duong neu a la le chuong trinh bao loi}
b:= n-a; b:= n-a;
{ neu b<0 chuong trinh bao loi nhap ta nhap n<k{ neu b<0 chuong trinh bao loi nhap ta nhap n<k}}
Writeln(' Vay so trau la a = ' ,a:8:0,’con’);Writeln(' Vay so trau la a = ' ,a:8:0,’con’);
Write(' so bo se la b = ',b:8:0,’con’);Write(' so bo se la b = ',b:8:0,’con’);
Readln;Readln;