Tin học lớp 8

Nguyễn Cao Phúc Hải

Học sinh
Thành viên
1 Tháng tám 2017
131
49
46
20
Thừa Thiên Huế
[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Câu 1: Thực hiện đầy đủ các bước giải bài toán máy tính đối với bài toán sau:
a) Viết chương trình nhập vào số nguyên và thông báo số đó là dương hay âm
b) Viết chương trình nhập vào số nguyên và thông báo số đó là số chẵn hay lẻ
c) Giải phương trình bậc nhất dạng tổng quát bx+c=0
d) Viết chương trình hoán đổi giá trị hai số guyên x và y
Câu 2: Hãy xác định bài toán và mô tả thuật toán để giải bài toán
a) Tìm giá trị lớn nhất của dãy số A cho trước
b) Tìm giá trị nhỏ nhất của dãy số A cho trước
c) Tính tổng của dãy số A cho trước
c) Tính Tổng của dãy số A cho trước
d) Tính tích của dãy số A cho trước
Câu 3; Hãy nêu ý nghĩa của các lệnh sau
a) Write('Toi la hoc sinh lop 8')
b) Readln(x);
c) Delay(5000);
d) Var: integer;
e) X:=x+1;
f) Write('ban la hoc sinh lop?');
g)Readln(lop);
h) Write('hay nhap nam sinh cua ban')
i) Readln(NS)


mọi người giúp với ạ
đang cần gấp ạ
Xin cám ơn:r2
 
9 Tháng mười một 2017
51
13
36
An Giang
Câu 1
a) Viết chương trình nhập vào số nguyên và thông báo số đó là dương hay âm
var a: integer
begin
write('Hay nhap gia tri cho a'); readln(a);
if a>0 then writeln('a la so nguyen duong');
if a<=0 then writeln('a la so nguyen am');
end.
b) Viết chương trình nhập vào số nguyên và thông báo số đó là số chẵn hay lẻ
var a: integer
begin
write('Hay nhap so nguyen a'); readln(a);
If a mod 2=0 then writeln('a la so chan') else writeln('a la so le');
end.
c) Giải phương trình bậc nhất dạng tổng quát bx+c=0 (bài này mình tham khảo trên mạng nhé :v)
uses crt;
var b, c: integer;
begin
write('Hay nhap gia tri cho b va c'); readln(b,c);
if (b=0) and (c<>0) then writeln('phuong trinh vo nghiem');
if (b=0) and (c=0) then writeln('phuong trinh co vo so nghiem');
if (b<>0) and (c<>0) then writeln('phuong trinh co nghiem la x=',(-b)/a)
x:=(-b)/a;
writeln('Vay phuong trinh co nghiem la',x);
end.
d) Viết chương trình hoán đổi giá trị hai số guyên x và y
var x,y: integer;
begin
writeln('HAy nhap gia tri cho hai so x,y); readln(x,y);
x:=x+y;
y:=x-y;
x:=x-y;
writeln('gia tri cua x sau khi hoan doi',x);
writeln('gia tri cua y sau khi hoan doi',y);
end.
câu 3
a) Write('Toi la hoc sinh lop 8'): Thông báo câu "Toi la hoc sinh lop 8"
b) Readln(x); Nhập giá trị cho biến nhớ x
c) Delay(5000); Dừng màn hình trong khoảng 5 giây
d) Var: integer; khai báo biếnthuộc kiểu dữ liệu số nguyên
e) X:=x+1; Tăng giá trị của biến nhớ x lên 1 đơn vị, kết quả gán trở lại biến x
f) Write('ban la hoc sinh lop?'); :Thông báo câu "ban la hoc sinh lop?"
g)Readln(lop); Nhập giá trị cho biến nhớ lop
h) Write('hay nhap nam sinh cua ban') Thông báo câu "hay nhap nam sinh cua ban"
i) Readln(NS) : Nhập giá trị cho biến nhớ NS
câu 2 bác nào biết làm giúp với :v
 
Top Bottom