Tin học Viết chương trình

[yeulen]

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

Em học ngu tin học nhờ các anh chị giải giúp em bài này,điểm của em rất kém nếu không qua nổi kỳ thi này em sẽ ở lại lớp mất.

Bài 1:Giả sử kích thước của tam giác đã ghi trong tệp tamgiac.dat.Hãy viết chương trình tính diện tích tam giác theo công thức hê rông.Trong đó p=(a=b=c)/2 với độ dài các cạnh được đọc từ tệp trên ghi kết quả tính được vào tệp.

Công thức he rông

Bài 2:hãy viết chương trình tìm max min của 4 con số nguyên a,b,c,d có sử dụng 2 chương trình con (thủ tục nhập hàm mã min của 2 số)

Bài 3:hãy viết chương trình tính TLT=a^m+b^n+c^p+d^q với a,m,b,n,c,p,d,q là số nguyên được nhập từ bà phím.

Bài 4: hãy viết chương trình tìm ước chung lớn nhất của bốn số nguyên a b c d có sử dụng một thủ tục nhập 1 hàm tìm UCLN 2 số

Bài 5:Giả sử các độ dài cạnh hình chữ nhật đã ghi trong tệp input.txt hãy viết chương trình mở tệp dữ liệu input.txt để đọc kích thước các hình chữ nhật .Hãy tính chu vi và diện tích các hình chữ nhật với kích thước đọc được, ghi kết quả vào tệp output.txt

 

[megamanxza]

Bài 1 em không biết làm vì em mới lớp 7, chưa học về công thức Hê Rông (mà lên Google tra cũng chả hiểu quái gì hết).

Bài 2:

Uses crt;
var a,b,c,d: integer;
function Max(q,w,e,r):integer;
begin
if (q>w) and (q>e) and (q>r) then Max:=q;
if (w>q) and (w>e) and (w>r) then Max:=w;
if (e>q) and (e>w) and (e>r) then Max:=e;
if (r>q) and (r>w) and (r>e) then Max:=r;
end;
function Min(q,w,e,r):integer;
begin
if (q<w) and (q<e) and (q<r) then Min:=q;
if (w<q) and (w<e) and (w<r) then Min:=w;
if (e<q) and (e<w) and (e<r) then Min:=e;
if (r<q) and (r<w) and (r<e) then Min:=r;
end;
begin
clrscr;
write ('Nhap lan luot a, b, c, d: '); readln (a,b,c,d);
if (a=b) and (b=c) and (c=d) then
begin
write ('Bon so bang nhau!');
readln;   exit;
end;
write ('So lon nhat la ',Max(a,b,c,d),' va so be nhat la ',Min(a,b,c,d));
readln
end.

Bài này xài chương trình con nên hơi vất vả tí!

Bài 3:

Uses crt;
var a,b,c,d,m,n,p,q: integer;
begin
clrscr;
write ('Nhap lan luot a,b,c,d,m,n,p,q: '); readln (a,b,c,d,m,n,p,q);
clrscr;
write ('Gia tri cua TLT la ',exp(ln(a)*m)+exp(ln(b)*n)+exp(ln(c)*p)+exp(ln(d)*q));
readln
end.

Bài 4 thì "chúng tôi đã cố gắng hết sức xin đành bó tay!:khi (46)::khi (115):".

Bài 5 các số liệu hình chữ nhật lưu vô biến nào trong file Input.txt?

 

[thienvamai]

bài 4 dùng công thức UCLN(a,b) = UCLN(b mod a,a)

 

[yeulen]

Bài 5 các số liệu hình chữ nhật lưu vô biến nào trong file Input.txt?[/QUOTE]

theo đề bài thì các số liệu hình chữ nhật không cho vô biến nào hết bạn

 

[thienvamai]

Bài 2:

Uses crt;[/COLOR][/B]
[B][COLOR=blue]var a,b,c,d: integer;[/COLOR][/B]
[B][COLOR=blue]function Max(q,w,e,r):integer;[/COLOR][/B]
[B][COLOR=blue]begin[/COLOR][/B]
[B][COLOR=blue]if (q>w) and (q>e) and (q>r) then Max:=q;[/COLOR][/B]
[B][COLOR=blue]if (w>q) and (w>e) and (w>r) then Max:=w;[/COLOR][/B]
[B][COLOR=blue]if (e>q) and (e>w) and (e>r) then Max:=e;[/COLOR][/B]
[B][COLOR=blue]if (r>q) and (r>w) and (r>e) then Max:=r;[/COLOR][/B]
[B][COLOR=blue]end;[/COLOR][/B]
[B][COLOR=blue]function Min(q,w,e,r):integer;[/COLOR][/B]
[B][COLOR=blue]begin[/COLOR][/B]
[B][COLOR=blue]if (q<w) and (q<e) and (q<r) then Min:=q;[/COLOR][/B]
[B][COLOR=blue]if (w<q) and (w<e) and (w<r) then Min:=w;[/COLOR][/B]
[B][COLOR=blue]if (e<q) and (e<w) and (e<r) then Min:=e;[/COLOR][/B]
[B][COLOR=blue]if (r<q) and (r<w) and (r<e) then Min:=r;[/COLOR][/B]
[B][COLOR=blue]end;[/COLOR][/B]
[B][COLOR=blue]begin[/COLOR][/B]
[B][COLOR=blue]clrscr;[/COLOR][/B]
[B][COLOR=blue]write ('Nhap lan luot a, b, c, d: '); readln (a,b,c,d);[/COLOR][/B]
[B][COLOR=blue]if (a=b) and (b=c) and (c=d) then[/COLOR][/B]
[B][COLOR=blue]begin[/COLOR][/B]
[B][COLOR=blue]write ('Bon so bang nhau!');[/COLOR][/B]
[B][COLOR=blue]readln;   exit;[/COLOR][/B]
[B][COLOR=blue]end;[/COLOR][/B]
[B][COLOR=blue]write ('So lon nhat la ',Max(a,b,c,d),' va so be nhat la ',Min(a,b,c,d));[/COLOR][/B]
[B][COLOR=blue]readln[/COLOR][/B]
[B][COLOR=blue]end.[/COLOR][/B]

nếu chỉ a=c hoặc c=d thì bài làm này có vấn đề luôn đấy