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

[Tam1902]

[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ình hoàn chỉnh tìm GTLN 3 số a,b,c(a,b,c được nhập từ bàn phím) và xuất kết quả ra màn hình.
Giúp mình nhe
mai kiểm tra rồi

Đang lo ôn tuyển nên giờ học Tin hơi khó

 

[CuongGrove]

Program GTLN;
Uses crt;
Var a,b,c : real;
Begin
    clrscr;
    Write('Hay nhap so a : ');Readln(a);
    Write('Hay nhap so b : ');Readln(b);
    Write('Hay nhap so c : ');Readln(c);
    If (a>b) and (a>c) then Writeln('GTLN la a');
    If (b>a) and (b>c) then Writeln('GTLN la b');
    If (c>b) and (c>a) then Writeln('GTLN la c');
    Readln;
End.

Nè bạn, mà phải hiểu nha bạn, vô trong đó người ta sửa đề một tí là chết

 

[Tam1902]

Program GTLN;
Uses crt;
Var a,b,c : real;
Begin
    clrscr;
    Write('Hay nhap so a : ');Readln(a);
    Write('Hay nhap so b : ');Readln(b);
    Write('Hay nhap so c : ');Readln(c);
    If (a>b) and (a>c) then Writeln('GTLN la a');
    If (b>a) and (b>c) then Writeln('GTLN la b');
    If (c>b) and (c>a) then Writeln('GTLN la c');
    Readln;
End.

Nè bạn, mà phải hiểu nha bạn, vô trong đó người ta sửa đề một tí là chết

à bạn ơi
mình thay GTLN bằng Max được không
như vậy sẽ ngắn hơn thì phải

 

[CuongGrove]

à bạn ơi
mình thay GTLN bằng Max được không
như vậy sẽ ngắn hơn thì phải

Đúng là nó ngắn hơn đó bạn )))), Mà thích thay gì thì thay, đâu có quan trọng đâu

 

[02-07-2019.]

Viết chương trình hoàn chỉnh tìm GTLN 3 số a,b,c(a,b,c được nhập từ bàn phím) và xuất kết quả ra màn hình.
Giúp mình nhe
mai kiểm tra rồi

Đang lo ôn tuyển nên giờ học Tin hơi khó

var a,b,c,max:int64;
Begin
    assign(input,'timmax.inp');reset(input);
    assign(output,'timmax.out');rewrite(output);
    read(a,b,c);
    max:=a;
    If max<b then max:=b;
    If max<c then max:=c;
    write(max);
End.

Cách dùng max đây nha!