[Tin học 8] Bài tập viết chương trìng trong Pascal

F

fulful

[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.

Viết chương trìng cho các đề bài sau:
Bài 1: Tính tổnh các số chẵn so sánh với tổng các số lẻ nhập lần lượt tứ bàn phím đến khi gặp số 0
Bài 2: Tính các số nguyên tố x<n sao cho x+1 chia hết cho n (n nhập tứ bàn phím)
Em KT 1 tiết mong mọi người júp đỡ em vs
 
I

informatics

đây là bài 1 còn bài 2 mình vẫn chưa biết cái nguyên lý tìm số nguyên tố cho nên bạn thông cảm nhé!
mà mọi người ơi cho mình xin cái code đó được không :D
USES crt;
VAR
w:ARRAY[1..10000]OF LONGINT;
q,e:LONGINT;
tongchan,tongle:LONGINT;
sosanh:STRING;
BEGIN
clrscr;
q:=0;
REPEAT
q:=q+1;
write('nhap so thu ',q,':');
readln(w[q]);
UNTIL w[q]=0;
FOR e:=1 TO q DO IF w[e] MOD 2 =0 THEN tongchan:=tongchan+w[e] ELSE tongle:=tongle+w[e];
IF tongchan>tongle THEN sosanh:='>' ELSE sosanh:='<';
writeln('tong chan=',tongchan,' ', sosanh,' tongle =',tongle);
readln;
END.
 
V

vitconcatinh_foreverloveyou

ban oi giup minh voi
bai nay cung trong de kiem tra cua minh
nhung bon minh chua hoc lenh repeat....until
hai bai nay co the dung while.....do dc ko
 
I

informatics

vitconcatinh_foreverloveyou said:
ban oi giup minh voi
bai nay cung trong de kiem tra cua minh
nhung bon minh chua hoc lenh repeat....until
hai bai nay co the dung while.....do dc ko
Bấm để xem đầy đủ nội dung ...

có
này nhé!
lần sau nếu bạn lớp 8 mà nhình thấy cái câu lệnh đó thì nhớ chào anh :D :))
vì lớp 11 còn chưa học cái đó
nhưng mà may :d mình học lớp 8 -> tha cho cái tôi vô lễ :))
USES crt;
VAR
w,tongchan,tongle:LONGINT;
sosanh:STRING;
BEGIN
clrscr;
w:=1;
WHILE w<>0 DO
BEGIN
write('nhap so:');
readln(w);
IF w MOD 2 = 0 THEN tongchan:=tongchan+w ELSE tongle:=tongle+w;
END;
IF tongchan>tongle THEN sosanh:='>' ;
IF tongchan<tongle THEN sosanh:='<';
IF tongchan=tongle THEN sosanh:='=';
writeln('tong chan =',tongchan,' ',sosanh,' tongle=',tongle);
readln;
END.
 
S

strikeeagles

informatics said:
có
này nhé!
lần sau nếu bạn lớp 8 mà nhình thấy cái câu lệnh đó thì nhớ chào anh :D :))
vì lớp 11 còn chưa học cái đó
nhưng mà may :d mình học lớp 8 -> tha cho cái tôi vô lễ :))
USES crt;
VAR
w,tongchan,tongle:LONGINT;
sosanh:STRING;
BEGIN
clrscr;
w:=1;
WHILE w<>0 DO
BEGIN
write('nhap so:');
readln(w);
IF w MOD 2 = 0 THEN tongchan:=tongchan+w ELSE tongle:=tongle+w;
END;
IF tongchan>tongle THEN sosanh:='>' ;
IF tongchan<tongle THEN sosanh:='<';
IF tongchan=tongle THEN sosanh:='=';
writeln('tong chan =',tongchan,' ',sosanh,' tongle=',tongle);
readln;
END.
Bấm để xem đầy đủ nội dung ...
=)) thứ 5 này đi thi HS giỏi, nhìn cái bài bạn này, thấy sai rồi


informatics said:
BEGIN
clrscr;
w:=1;
WHILE w<>0 DO
BEGIN
write('nhap so:');
readln(w);
IF w MOD 2 = 0 THEN tongchan:=tongchan+w ELSE tongle:=tongle+w;
END;
Bấm để xem đầy đủ nội dung ...
Vòng lặp vô hạn nè phải không???
Khi w khác 0 thì lặp, trên lại viết w = 1 thì nó lặp cho hết đời nhá :D
Chưa để ý máy cái sau
 
I

informatics

strikeeagles said:
=)) thứ 5 này đi thi HS giỏi, nhìn cái bài bạn này, thấy sai rồi



Vòng lặp vô hạn nè phải không???
Khi w khác 0 thì lặp, trên lại viết w = 1 thì nó lặp cho hết đời nhá :D
Chưa để ý máy cái sau
Bấm để xem đầy đủ nội dung ...

hahaha! đi thi học sinh giỏi mà giám bảo cái vòng lặp đó không kết thúc
nhớ đọc kĩ đầu bài nhé bạn! :))
 
V

vitconcatinh_foreverloveyou

oh thank ban
nhung den luc minh mo trang nay ra thi da lam dc rui
con bai 2 thui
:)
 
I

informatics

cái đề bài 2 này khó hiểu quá! bạn có thể giải thích thêm về yêu cầu của nó được không!
mà cái bài này mình nghĩ là để cho cái bạn cứ nói là đi thi học sinh giỏi làm ấy! :D mình cũng chẳng biết làm cái bài này đâu :p
 
O

ochuotqb

fulful said:
Viết chương trìng cho các đề bài sau:
Bài 2: Tính các số nguyên tố x<n sao cho x+1 chia hết cho n (n nhập tứ bàn phím)
Em KT 1 tiết mong mọi người júp đỡ em vs
Bấm để xem đầy đủ nội dung ...

Cái bài 2 này mình nghĩ là đề sai vì nếu đúng thì chẳng lẽ 1 số nguyên tố nhỏ hơn n là số chia thì không chia hết. . Đáng lẽ là x>n để x+1 chia hết cho n..
 
K

kieuquocdat

Bài 2 dễ mà
begin kieuquocdat;
use crt;
Var i,n:longint;

Function NT(n:longint):boolean;
Var i:longint;
begin
NT:+false;
For i:=2 to TRUNC(sqrt(n)) do
If n mod i=0 then exit;
NT:=n>1;
end;

Begin
clrscr;
write('nhap so n='); Readln(n);
For i:=2 to n do
If NT(i) and (i+1) mod n=0 then write(i);
readln;
end.
 
B

beconngusay

Viết CT giải bài toán cổ sau trăm trâu trăm cỏ, trâu đứng ăn năm, trâu nằm ăn 3,3 ba trâu già ăn một hỏi mỗi loại có mấy con
 
A

anhmun

giúp mình gấp nka
trong cửa hàng có các loại thùng sơn 16,17vaf 21 kg.một người khác cần mua 185kg.Hãy viết chương trình để tính và cho biết cần bán cho người khách đố bao nhiêu mỗi loại dể ko phải bán lẻ thùng nào.
 
H

harry9xsakura

lần sau nếu bạn lớp 8 mà nhình thấy cái câu lệnh đó thì nhớ chào anh
vì lớp 11 còn chưa học cái đó
nhưng mà may :d mình học lớp 8 -> tha cho cái tôi vô lễ
USES crt;
VAR
w,tongchan,tongle:LONGINT;
sosanh:STRING;
BEGIN
clrscr;
w:=1;
WHILE w<>0 DO
BEGIN
write('nhap so:');
readln(w);
IF w MOD 2 = 0 THEN tongchan:=tongchan+w ELSE tongle:=tongle+w;
END;
IF tongchan>tongle THEN sosanh:='>' ;
IF tongchan<tongle THEN sosanh:='<';
IF tongchan=tongle THEN sosanh:='=';
writeln('tong chan =',tongchan,' ',sosanh,' tongle=',tongle);
readln;
 
T

trang.2k

giúp với ạ.
Viết phương trình pascal sử dụng biến mảng để nhập từ bàn phím. các phần tử của 1 dãy số, dộdaifdi n của dãy cũng được nhập từ bàn phím. Tính tích các phần tử trong dãy số đó.
 
You must log in or register to reply here.
Top Bottom