1. Bạn hãy viết chương trình nhập từ bàn phím 3 số thực bất kỳ và kiểm tra xem chúng có phải là số hạng của một cấp số cộng không?
2. hãy lập trình in ra số thứ tự các ngày trong tuần bắt đầu từ ngày đầu tiên là ngày thứ hai, ngày số 2 là ngày thứ 3 đến cuối tuần.
3. viết chương trình nhập 4 số từ bàn phím và kiểm tra xem chúng có tạo thành một cấp số nhân hay một cấp số cộng hay không. Đưa ra thông báo tương ứng.
1 câu: 1GP, 2 câu: 2GP, cứ thế mà tính :)) Nhưng mấy bạn viết mà ko thể copy qua được pascal, phải đánh-cop chép y nguyên qua để kiểm tra, mệt chết. Bạn nào sáng tạo ra cách copy qua pascal hay, tặng GP. Mình ko tiếc GP đâu :))
c1 :uses crt;
var a,b,c:real;
begin
clrscr;
write('Nhap 3 so duong a,b,c = ');readln(a,b,c);
if ((a+b)>c) and ((b+c) >a) and ((c+a)>b)
then writeln('3 so la 3 canh cua tam giac') else writeln('Khong la 3 canh cua tam giac');
readln
end.
var i:integer;
begin
for i:=2 to 7 do writeln('ngay thu ',i);
readln
end.
1)var A: array[1..100] of integer;
d,rt,i, dem: integer;
begin
writeln('Nhap mot so lon hon 0 va nho hon 100');
repeat
write ('Nhap N:');
readln(N)
if (N>=1000) or (N<=0 ) then writeln(’Moi nhap lai !');
until (N>0) and (N<1000);
writeln('Nhap cac gia tri cac so hang co tri tuyet doi khong lon hon 1000');
for i:=1 to n do repeat
write (' a [', i, '] = '); readln (a [i]) ;
if (A[i]>100) or (A[i]<-1000) then write(’Moi nhap lai ');
until (A[i]>-1000) and (A[i]<1000);
d: = A[2] - A[ 1 ] ; dem:=0;
for i:= 2 to n do if A[i] - A[i-l]od then dem:= dem + 1;
if dem >0 then writeln('A khong la cap so cong')
else writeln(’A la cap so cong');
readln,
end.
câu 1 :
program Giaitin_hoc24;
uses crt;
var a,b,c: real;
begin
clrscr;
write(' a, b, c: ');
readln(a, b, c);
if a+b=2c of a+c=2b of b+c=2a then writeln(' khong phai cap so cong. ')
else
begin
writeln(' la cap so cong. ');
end;
readln
end.
câu 3 lm tương tự nhé !
rốt cuộc bn minh có hiểu bt j về viết chương trình pascal không vậy ?không bt đúng sai vẩn tick như bình thường .
câu 1 cách dễ hiểu
var a,b,c,min,max:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
min:=a;
if b<min then min:=b;
if c<min then min:=c;
if ((max-a)=(a-min)) or ((max-b)=(b-min)) or ((max-c)=(c-min)) then writeln('la cap so cong ')
else writeln('ko');
readln;
end.
câu 3) var a,b,c,min,max:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
min:=a;
if b<min then min:=b;
if c<min then min:=c;
if ((max=b*2) and (b=min*2)) or ((max=a*2) and (a=min*2)) or ((max=c*2) and (c=min*2)) then writeln(' la cap so nhan ')
else if ((max-a)=(a-min)) or ((max-b)=(b-min)) or ((max-c)=(c-min)) then writeln('la cap so cong ')
else writeln('ko la gi ca ');
readln;
end.
câu 2)
var i,h:integer;
begin
h:=0;
for i:=2 to 7 do begin h:=h+1; writeln(' Ngay thu ',i,' la ngay: ',h);
end;
writeln(' Ngay chu nhat la ngay :',h+1);
readln;
end.
cách cop:
Ctrl+Shift+I hoặc nhấn chuột phải vào đoạn văn bản cần cop rồi chon Kiểm tra
ở phần <p>..<p> ==$0 nhấn phải chọn Edit as HTML
rồi cop phần trong Edit ra Notepad
chỉnh sửa cho phù hợp rồi Ctrl+S nhập tên+.pas(Đuôi .pas nha)
Mở pascal ra xem kqua
Trương Quang Dũng Tú Nguyễn B (Erik) @Đoàn Gia Khánh @Mysterious Person
ko phải chỉ làm thôi, còn phải sáng tạo cách để mình copy qua pascal đc nữa đó nha =)) GP của mình dễ gì ăn được :))
hơ hơ, t ko làm, chỉ m cách copy qua pascal đc GP hông nek
Cấp số nhân với cấp số cộng là sao ko hiểu giải thích đc k
bảo các bạn ấy gửi tin nhắn cho bạn xong bạn cop về lưu vào notepad xong chuyển thành dữ liệu pascal xong mở và chạy cách của mik dc k
đấy là bài thầy tớ làm cho t chưa sửa nha nhưng thuật toán vẫn thế
ê hỏi cái nếu nhập a=3 b=9 c=6 thì có phải là cấp số cộng k
Bài 3: Do hơi dài nên có đén 2 ảnh (đã kiểm tra vào hoàn toàn chính xác)
[ảnh 1: khai biến ; ảnh 2: phần lệnh]
Copy qua pascal làm gì mất time
Có lẽ là mấy bạn kia chạy luôn chương trình ở pascal rồi chụp màn hình lên
Đúng thì cho GP
Sai coi như làm lại
(Chụp màn hình cả phần chương trình cả phần kiểm tra đúng sai vào)
câu 2 :
program so_thu_tu;
uses crt;
var i:integer;
begin
clrscr;
for i: =2 to 7 do
writeln('ngay thu', i );
writeln('ngày chủ nhật ');
readln
end.
Cách copy qua pascal:
(những ng` tham gia lm bài nên danh máy ra giống Mysterious Person)
B1: Vào nguồn trang (nhấp chuột phải ròi click "View page source")
B2: Lật xuống sẽ thấy bài của vài bn (dánh máy)
B3: Copy từng hàng ở nguồn trang (ko thể copy hết)
B4: Vào pascal và chọn Edit ròi chọn Paste from Windows
B5: Check lại (xem cs Full bài lm chưa)
B6: Alt + F5 ròi Ctrl + F5 kiểm tra bài của các bn là dc