Chuyên mục tin học
Top 10 PCGuide
cập nhật lúc 04:38 ngày 19/05
Sự kiện Intel
Intel Vietnam

Promote Your Page Too
Diễn đàn kiến thức tin học PCGuide » Lập trình » Pascal, C, C++, C#
Newbie, giup minh gap nha
123hiephung
Bài viết: 1
Ngày gởi: 17/06/2011 | Số lần xem: 1128 | Góp ý: 5
Giới thiệu bạn bè
Mình mới bắt đầu học Pascal, mog các sư huynh sư tỉ chỉ giáo
MÌnh mớj có học hàm if và vàj hàm cơ bản thuj, cô gjáo ra đề thế này: nhập 5 chữ số, tìm số lớn nhất và lớn nhì, nếu có 2 số lớn nhất thj` thôg báo “Không có số lớn nhi`”
Aj giúp mj`h vớj, thanks nhj`u
10
PTS
Câu trả lời hay:
Chưa có
Báo cáo vi phạm
0

Câu Trả lời
nhoxobama
Bài viết: 177
Ngày gởi: 09/02/2012 03:20 PM
Bạn đọc bài của anh thanhphat123 nghiên cứu thật kĩ để lên ông thầy ổng hỏi là tại sao làm cái này tại sao làm cái kia không trả lời được thì chết năm ngoái mình học bị vụ này hoài à hỏi tùm lùm may ma thông minh trả lời được mong bạn học kinh nghiệm của những người đi trước
Báo cáo vi phạm
0 bình chọn bài hay
Câu Trả lời
thanhphat123
Bài viết: 87
Ngày gởi: 01/07/2011 11:06 PM
có phải HIỆP HƯNG chuyên hóa ko,if bạn chỉ mới học if và hàm cơ bản ,chưa biết sắp mảng thì đây:
program xpascalx;
uses crt;
var    array[1..500] of integer;
       i,j,k,z:byte;
       d:integer;
       max,second:integer;
begin
       clrscr;
       k:=1;
       writeln('nhap 5 so can xet den');
       for i:=1 to 5 do
          begin
               writeln('nhap so thu ',i,' :');readln(a[i]);
               end;

       max:=a[1];
         for j:=1 to 5 do
           if a[j]> max then
             max:=a[j];
             second:=a[1];
         while k<=5 do
       begin
       if (second<a[k]) and (a[k] <> max) then

                       second:=a[k]
                       else
                       inc(k);
                       end;
                       for z:=1 to 5 do
                       if max=a[z] then
                       d:=d+1;

                       if d<2 then
                       writeln('so lon nhi la : ',second);
                       if d>=2 then
                        writeln('ko co so lon nhi ');


                       write('so lon nhat la : ',max);
                       readln;
end.
Báo cáo vi phạm
0 bình chọn bài hay
Câu Trả lời
thongleduy
Bài viết: 491
Ngày gởi: 17/06/2011 10:09 PM
Mình chỉ nêu cho bạn thuật toán để giải bài này thui, còn lại bạn tự viết code nhé !
--> Để làm được bài này, bạn cần fải khai báo một mảng có chứa 5 phần tử, sau đó nhập các số cần thíêt cho mảng. sau đó dùng vòng for để duyệt qua mảng và đồng thời dùng hàm if để kiểm tra và sắp xếp mảng theo thứ tự giảm dần. Tíêp theo bạn làm như bạn thienduong đã hướng dẫn.

Chúc bạn thành công !
Báo cáo vi phạm
0 bình chọn bài hay
Bài phản hồi
mới học cơ bản sau biết sắp mảng
Câu Trả lời
thienduong
Bài viết: 963
Ngày gởi: 17/06/2011 02:03 PM
Nếu bạn học mảng trong Pascal rồi thì làm rất đơn giản. Bạn chỉ việc lưu 5 số vào trong mảng đó và sắp xếp lại mảng theo chiều giảm. Sau đó, kiểm tra phần tử thứ 0 và 1 nếu hai phần tử này bằng nhau thì thông báo ra "Không có số lớn nhi", ngược lại thì in ra hai phần tử thứ 0 và thứ 1.
Chúc bạn thành công!!!
Báo cáo vi phạm
0 bình chọn bài hay
Câu Trả lời
tungteen
Bài viết: 331
Ngày gởi: 18/06/2011 10:49 AM
Bạn làm theo cách của bạn thongleduy đó chắc chắn là đúng rồi
Báo cáo vi phạm
-1 bình chọn bài hay

ˆ Lên đầu trang