Tin học tin học free pascal

Thảo luận trong 'Tin học cấp II' bắt đầu bởi Dii Tae, 5 Tháng mười 2018.

Lượt xem: 161

  1. Dii Tae

    Dii Tae Học sinh mới Thành viên

    Bài viết:
    15
    Điểm thành tích:
    6
    Nơi ở:
    Hưng Yên
    Trường học:
    thcs đoàn thị điểm
    leanhc3dh thích bài này.
  2. leanhc3dh

    leanhc3dh Học sinh mới Thành viên

    Bài viết:
    66
    Điểm thành tích:
    11
    Nơi ở:
    Phú Thọ
    Trường học:
    THPT Đoan Hùng


    Program Max_Min;
    Uses crt;
    Var a,b,c,d:integer;
    max,min:integer;
    Begin
    clrscr;
    write('nhap so thu nhat :'); readln(a);
    max:=a; min:=a;
    write('nhap so thu hai :'); readln(b);
    max:=b; min:=b;
    write('nhap so thu hai :'); readln(c);
    max:=c; min:=d;
    write('nhap so thu hai :'); readln(d);
    writeln('So lon nhat la :',max);
    writeln('So nho nhat la :',min);
    readln;
    End.
     
    Dii TaeTriệu Vân 567 thích bài này.
  3. leanhc3dh

    leanhc3dh Học sinh mới Thành viên

    Bài viết:
    66
    Điểm thành tích:
    11
    Nơi ở:
    Phú Thọ
    Trường học:
    THPT Đoan Hùng


    Nếu bạn thích cấu trúc vào lặp thì mik làm như sau nhé

    Program viet_ra_so_lon_nhat_va_nho_nhat;
    Uses crt;
    Const n=10;
    Var a,max,min,i:integer;
    Begin
    clrscr;
    for i:=1 to n do
    Begin
    Write('Nhap so thu ',i,' :');
    readln(a);
    If i=1 then
    begin
    max:=a;
    min:=a;
    end;
    if maxa then min:=a;
    End;
    writeln('so lon nhat la :',max,' So nho nhat la:',min);
    readln;
    End.
     
  4. Code11

    Code11 Học sinh mới Thành viên

    Bài viết:
    27
    Điểm thành tích:
    6
    Nơi ở:
    Quảng Nam
    Trường học:
    THPT Trần Cao Vân


    nếu như vậy thì số nhâp cuối cùng được in ra thành max và min à??? phần so sánh lớn nhỏ ở đâu vậy bác??
     
  5. Code11

    Code11 Học sinh mới Thành viên

    Bài viết:
    27
    Điểm thành tích:
    6
    Nơi ở:
    Quảng Nam
    Trường học:
    THPT Trần Cao Vân


    câu lệnh sai với test này: upload_2018-10-7_18-19-1.png
    sửa lại:
    var i,n,a,b,c,d,min,max:qword;
    begin
    Write('Nhap lan luot 4 so:');readln(a,b,c,d);
    if (a>b) and (a>c) and (a>d) then max:=a;
    if (b>a) and (b>c) and (b>d) then max:=b;
    if (c>a) and (c>b) and (c>d) then max:=c;
    if (d>a) and (d>b) and (d>c) then max:=d;
    if (a<b) and (a<c) and (a<d) then min:=a;
    if (b<a) and (b<c) and (b<d) then min:=b;
    if (c<a) and (c<b) and (c<d) then min:=c;
    if (d<a) and (d<b) and (d<c) then min:=d;
    writeln('So lon nhat la:',max,' So nho nhat la:',min);
    readln;
    end.
    :Tuzki10:Tuzki10:Tuzki10:Tuzki10
     
    Dii Taevanminhc3tc@gmail.com thích bài này.
  6. leanhc3dh

    leanhc3dh Học sinh mới Thành viên

    Bài viết:
    66
    Điểm thành tích:
    11
    Nơi ở:
    Phú Thọ
    Trường học:
    THPT Đoan Hùng


    à xin lỗi bạn mình nhầm :v
     
  7. leanhc3dh

    leanhc3dh Học sinh mới Thành viên

    Bài viết:
    66
    Điểm thành tích:
    11
    Nơi ở:
    Phú Thọ
    Trường học:
    THPT Đoan Hùng


    Program Max_Min;
    Uses crt;
    Var a,b,c,d:integer;
    max,min:integer;
    Begin
    clrscr;
    write('nhap so thu nhat :'); readln(a);
    max:= a; min:=a;
    write('nhap so thu hai :'); readln(b);
    if b>max then max:=b ;if b<min then min:=b ;
    write('nhap so thu ba :'); readln(c);
    if c>max then max:=b ;if c<min then min:=c ;
    write('nhap so thu tu :'); readln(d);
    if d>max then max:=b ;if d<min then min:=d ;
    writeln('So lon nhat la :',max);
    writeln('So nho nhat la :',min);
    readln;
    End.
    Bạn thấy như vậy ổn không?
     
  8. leanhc3dh

    leanhc3dh Học sinh mới Thành viên

    Bài viết:
    66
    Điểm thành tích:
    11
    Nơi ở:
    Phú Thọ
    Trường học:
    THPT Đoan Hùng


    nếu làm như bạn sẽ rất là rối, nếu là 10 số bạn sẽ làm như nào
     
  9. Võ Thế Anh

    Võ Thế Anh Học sinh chăm học Thành viên

    Bài viết:
    373
    Điểm thành tích:
    66
    Nơi ở:
    Bình Phước
    Trường học:
    Trường THCS Phú Nghĩa


    @trà nguyễn hữu nghĩa
     
    leanhc3dhtrà nguyễn hữu nghĩa thích bài này.
  10. leanhc3dh

    leanhc3dh Học sinh mới Thành viên

    Bài viết:
    66
    Điểm thành tích:
    11
    Nơi ở:
    Phú Thọ
    Trường học:
    THPT Đoan Hùng


  11. trà nguyễn hữu nghĩa

    trà nguyễn hữu nghĩa Phụ trách Vật lí|Cây bút Thơ|Thần tượng văn học Cu li diễn đàn

    Bài viết:
    2,169
    Điểm thành tích:
    484
    Nơi ở:
    Phú Yên
    Trường học:
    Trường THPT Lương Văn Chánh


    Mã:
    uses crt;
    var min,max,i,n: integer;
    a: array[1..100] of integer
    BEGIN
    n := 4;
    for i := 1 to n do
    begin
    write('nhap so thu ,i,' ');readln(a[i]);
    end;
    min := a[1];
    max := a[1];
    for i := 2 to n do
    begin
    if a[i] < min then min := a[i];
    if a[i] > max then max := a[i];
    end;
    writeln('Min la ',min);
    write('Max la ',max);
    readln;
    END.
     
    leanhc3dh thích bài này.
  12. Code11

    Code11 Học sinh mới Thành viên

    Bài viết:
    27
    Điểm thành tích:
    6
    Nơi ở:
    Quảng Nam
    Trường học:
    THPT Trần Cao Vân


    biết là rối nhưng đề bài là chỉ tìm trong 4 số, mình có thể dùng vòng lặp for để tìm trong mảng nhưng bạn ấy chỉ mới THCS, mình sợ bạn ấy không hiểu. CT mình viết mục đích chỉ giải bài bạn ấy hỏi thôi :Tuzki44:Tuzki44:Tuzki44
     
  13. Code11

    Code11 Học sinh mới Thành viên

    Bài viết:
    27
    Điểm thành tích:
    6
    Nơi ở:
    Quảng Nam
    Trường học:
    THPT Trần Cao Vân


    CT tìm số lớn nhất và nhỏ nhất trong dãy các phần tử gồm n số nguyên (tối đa 100 phần tử).
    var
    a:array [1..100] of int64;
    min,max:int64;
    i,n:byte;
    begin
    write('Nhap n:');readln(n);
    for i:=1 to n do begin write('Nhap a[',i,']:');readln(a);end;
    min:=a[1];max:=a[1];
    for i:=2 to n do begin if min>a then min:=a; end;
    for i:=2 to n do begin if max<a then max:=a;end;
    write('Max:',max,' Min:',min);readln;end.
    :Tuzki10:Tuzki10
     
    Dii Taetrà nguyễn hữu nghĩa thích bài này.
  14. leanhc3dh

    leanhc3dh Học sinh mới Thành viên

    Bài viết:
    66
    Điểm thành tích:
    11
    Nơi ở:
    Phú Thọ
    Trường học:
    THPT Đoan Hùng


    hình như cấp 2 cx có hk for.. to.. do mà
     
    Dii Tae thích bài này.
Chú ý: Trả lời bài viết tuân thủ NỘI QUY. Xin cảm ơn!

Draft saved Draft deleted

CHIA SẺ TRANG NÀY