Chuong trình sau thực hiện việc nhập từ bàn phím hai số nguyên dương M và N(M<N),tính và đưa ra màn hình tổng các số chia hết cho 3 hoặc chia hết cho 5 trong phạm vi từ M đến N.
Các anh viết bài giảng ra giùm em.bài này ông thầy nói ra thi đó.
Chuong trình sau thực hiện việc nhập từ bàn phím hai số nguyên dương M và N(M<N),tính và đưa ra màn hình tổng các số chia hết cho 3 hoặc chia hết cho 5 trong phạm vi từ M đến N.
Các anh viết bài giảng ra giùm em.bài này ông thầy nói ra thi đó.
Bài này quá dễ rồi còn gì:
khai báo 4 biến : sum, n,m, i : integer;
Sum:=0;
nhap vao n,m;
if m>=n báo lỗi.
else
for i:=m to n do
if (i mod 3=0) or (i mod 5=0)
sum:=sum+i;
readln (sum);
Bạn viết lại chương trình là OK
Code:Var i, m,n,S:integer; Begin Repeat write('Nhap vao m,n:'); Readln(m,n) until m<n; S:=0; For i:=m to n do if (i mod 3=0) or (i mod 5=0) then S:=S+i; Write('Tong la:',S); Readln End.
các bác ơi có bác nào biết sử dụng unit viết chương trình không?em tính viết chương trình hình học phẳng(các chương trình con là chu vi hình chữ nhật, chu vi hình tròn, chu vi tam giác, diện tích hình chữ nhật, diện tích hình tròn, diện tích hình tam giác) bác nào giúp được em thì vào chỉ cho em với nhé.thật sự em hok hỉu gì về nó hết mà phải làm bài thi giữa kì.bác nào giúp em giải quyết với.cảm ơn các bác nhé!!!
em có một bài tập như thế này:
tạo unit tính diện tích hình chữ nhật, diện tích hình tròn , diện tích hình thang , chu vi hình chữ nhật, chu vi đường tròn
em đã viết như thế này mong mọi người coi giùm em và chĩ chỗ sai cho em nhé
UNIT hinh_hoc_phang;
INTERFACE
function dtcn(a,b:real):real;
function dttr (a :real):real;
function dtt (a,b,h :real):real;
function cvcn(a,b :real):real;
function cvtr (a :real):real;
IMPLEMATION
function dtcn(a,b:real):real;
begin
write('nhap so do chieu dai:a= ');readln(a);
write('nhap so do chieu rong :b= ');readln(b);
writeln('dien tich hinh chu nhat la: ', a*b:10:2);
readln;
end;
function dtt(a,b:real):real;
begin
write('nhap so do day be:a= ');readln(a);
write('nhap so do day lon :b= ');readln(b);
write('nhap so do chieu cao :h= ');readln(h);
writeln('dien tich hinh thang la: ', (a+b)/2*h:10:2);
readln;
end;
function dttr(a:real):real;
begin
write('nhap ban kinh duong tron:a= ');readln(a);
writeln('dien tich duong tron la: ', a*a*3.14:10:2);
readln;
end;
function cvcn(a,b:real):real;
begin
write('nhap so do chieu dai:a= ');readln(a);
write('nhap so do chieu rong :b= ');readln(b);
writeln('chu vi hinh chu nhat la: ', (a+b)*2:10:2);
readln;
end;
function dttr(a:real):real;
begin
write('nhap ban kinh duong tron:a= ');readln(a);
writeln('chu vi duong tron la: ', a*2*3.14:10:2);
readln;
end;
END.
có chỗ nào sai chỉ cho mình với nha
Mình chưa hiểu rõ mục đích unit này của bạn là gì.
Nếu khai báo của bạn là đúng
INTERFACE
function dtcn(a,b:real):real;
function dttr (a :real):real;
function dtt (a,b,h :real):real;
function cvcn(a,b :real):real;
function cvtr (a :real):real;
IMPLEMATION
thì unit của bạn chỉ đơn giản thế này:
UNIT hinh_hoc_phang;
INTERFACE
function dtcn(a,b:real):real;
function dttr (a :real):real;
function dtt (a,b,h :real):real;
function cvcn(a,b :real):real;
function cvtr (a :real):real;
IMPLEMATION
function dtcn(a,b:real):real;
begin
dtcn:=a*b;
end;
function dtt(a,b,h:real):real;
begin
dtt:=(a+b)/2*h;
end;
function dttr(a:real):real;
begin
dttr:=a*a*3.14;
end;
function cvcn(a,b:real):real;
begin
cvcn:=(a+b)*2;
end;
function dttr(a:real):real;
begin
dttr:=a*2*3.14;
end;
END.
mình cũng hok hiểu lắm về đề bài
nhưng thầy giáo mình yêu cầu như thế mà mình lại hok biết gì hết.trên diễn đàn mình ai biết thì chỉ cho mình với nhá.cảm ơn bạn vivi0001 nha. ý mình là viết chương trình để tính mấy diện tích với chu vi đó đó
minh chua hoc qua pascal. nhung ma minh thay thuat toan ban ghi nhu the la ok roi. con phan code thi ban hoc chac biet HjHJ
1) Function mà vứt mấy phần đọc biến vào à :|, tham số vứt đi đâu :|
2) Function ko thấy trả về kq :|
3) Unit cơ bản gồm
HếtPHP Code:
Unit <tên_unit>;
Interface <khai báo các hằng, biến, ct con trong unit>
Uses .....
Type .....
Label .....
Const .....
Var .....
Procedure.....
Function SHCN(a,b:Real):Real;
Implementation <thực thi>
<Bên trên chỉ khai báo tên, giờ mới code đầy đủ>
Function SHCN(a,b:Real):Real;
Begin
SHCN:=a*b;
End;
.....
END.
Bookmarks