Là anh em đồng môn thì vào giúp đõ tí .Pascal

[cashier]

ui sao lạ thế này nhỉ toàn thấy mấy anh chị đại học hỏi về mấy bài pascal mà bi giờ lớp 11 chắc đứa nào cũng làm được ( hoan hô cải cách giáo dục)
về bài tìm số lớn nhất trong 3 số đâu đến nỗi phải rối hết cả lên thế ông anh thử cách sau xem sao nha:

 function max(a,b,c:integer):integer;
  begin
     if a>b then
        begin
             if a>c then max:=a
              else max:=c 
        end
     else 
        begin
              if b>c then max:=b
               else max :=c
        end;
 end;

[gameonline]

ạc thiên hạ thái bình

[UltraViolet]

hoan hô cải cách giáo dục,hoan hô đến bây giờ mới cải cách,làm anh mày phải bỏ học đi học lập trình,bị chửi mắng la ó vì xếp hạng 47/47 trong lớp(tốt nghiệp cấp 1 -->cấp 1 mua máy tính;tốt nghiệp cấp 2-->cấp 2 mua máy tính+băng rôn xóa mù tin học cho hs;tốt nghiệp cấp 3-->cấp 3 nâng cấp máy tính+đưa tin học vào môn chính thức).Cũng may là 12 năm cắp sách vẫn được học ít word,chứ ko thì anh mày chắc cũng ko bít dùng VietKey

[doremon_No1]

Học word mà đánh chữ kì vậy.
Sau dấu chấm(.), dấu phẩy(,) thì phải có dấu cách chứ.
Nếu em ko nhầm thì năm lớp 10 đc học cái này rồi.

[vnhack]

Hợp ngữ mà dám bảo Pascal.
Hợp ngữ giỏi là vô địch.
Dạy hôm đầu mà hiểu nhiêu đó là siêu rùi.
Cố lên

[longlonglong]

các bạn hay quá sẵn đây giúp mình một tí có được không.
giùm viết đoạn code để cắt khoảng trắng.
ví dụ: input lam van long.
thì output lam van long.
xin cám ơn.

[emily9]

Không hiểu được ý cũa câu hỏi!
Cần nói thêm rõ ý.

[hung06061995]

Hoan hô cô giáo của em. Mới học lớp 7 à biết tởi vòng lặp rồi. Muốn tìm 3 số lớn nhát. Cách đơn giản ( có thể là đơn giản nhât

program bai;
var a,b,c,max:longint;
begin
writeln(' Nhap ba so: ');
readln(a,b,c);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
writeln(' So lon nhat trong 3 so vua nhap la: ',max);
readln;
end.

Không việc gì phải dùng chương trình con như cách ở trên

[tailoiloitai]

anh em ơi giúp tôi đi tôi cần gấp bản lập trình trò chơi Dò mìn hay trang web nào có bản lập trình trò chơi Dò mìn

[nhat_truong]

tôi cũng mới học pascal nhưng không phải ngôn ngữ ma bạn đề cập đến.
Giải bài đó chỉ đơn giản như này thôi:

var
a,b,c,d:integer;
begin
write('nhap a b c d=');
readln(a,b,c,d);
kq:=(a+b)*(c+d);
writeln('ket qua');
readln
end.
Banned sai ở lệnh gán phải có dấu ":" trước dấu =<tức là " kq:=.."
và bạn cũng không có lệnh readln o cuối để in kêt quả.

Post xong bạn có xem lại bài viết không vậy
1. Thiếu khai báo: kq: integer /*hay longint cũng được*/
2. writeln('ket qua'); phải chuyển thành writeln('ket qua: ',kq);
3. readln không phải để in kết quả mà chỉ để dừng màn hình xem kết quả thôi

[=========> Bổ sung bài viết <=========]

các bạn hay quá sẵn đây giúp mình một tí có được không.
giùm viết đoạn code để cắt khoảng trắng.
ví dụ: input lam van long.
thì output lam van long.
xin cám ơn.

var s, s1: string; i: integer;
begin
.. write('Nhap xau: ');
.. readln(s);
.. s1:='';
.. for i:=1 to length(s)-1 do
..... if not((s[i]=' ') and (s[i+1]=' ')) then s1:=s1+s[i];
.. write('Xau kq: ',s1);
.. readln;
end.