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

Thảo luận trong 'Tin học cấp II' bắt đầu bởi minh triều, 24 Tháng năm 2019.

Lượt xem: 133

  1. minh triều

    minh triều Học sinh mới Thành viên

    Bài viết:
    15
    Điểm thành tích:
    6
    Nơi ở:
    Đồng Tháp
    Trường học/Cơ quan:
    thcs bình thạnh
    Sở hữu bí kíp ĐỖ ĐẠI HỌC ít nhất 24đ - Đặt chỗ ngay!

    Đọc sách & cùng chia sẻ cảm nhận về sách số 2


    Chào bạn mới. Bạn hãy đăng nhập và hỗ trợ thành viên môn học bạn học tốt. Cộng đồng sẽ hỗ trợ bạn CHÂN THÀNH khi bạn cần trợ giúp. Đừng chỉ nghĩ cho riêng mình. Hãy cho đi để cuộc sống này ý nghĩa hơn bạn nhé. Yêu thương!

    nhờ anh em trong group giải giúp mình 2 bài tập này!
     

    Các file đính kèm:

    Trương Văn Trường Vũ thích bài này.
  2. Trâm Nguyễn Thị Ngọc

    Trâm Nguyễn Thị Ngọc Học sinh chăm học Thành viên

    Bài viết:
    879
    Điểm thành tích:
    106
    Nơi ở:
    Quảng Trị
    Trường học/Cơ quan:
    Trường TH&THCS Hải Ba

    Bài 1: Số rõ ràng
    Mã:
    Var
        n:integer;fi,fo:text;
        Function Tong(a:integer):integer;
        Var t,k:longint;
        Begin
          t:=0;
           While a<>0 do
             begin
                k:=a mod 10;
                t:=t+sqr(k);
                a:=a div 10;
            end;
          Tong:=t;
        end;
    Begin
        Assign(fi,'rorang.inp');reset(fi);
        Assign(fo,'rorang.out');rewrite(fo);
        read(fi,n);
        While n>=10 do n:=tong(n);
        write(fo,n);
        Close(fi);Close(fo);
    End.
    
    
    Bài 3:Mua hàng
    Mã:
    Var
         a:array[1..100] of integer;kt:boolean;
         fi,fo:text;min,max,t,d,i,j,n,vt1,vt2:integer;
    Begin
         Assign(fi,'hang.inp');reset(fi);
         Assign(fo,'hang.out');rewrite(fo);
         readln(fi,n,t);d:=0;kt:=false;
         For i:=1 to n do read(fi,a[i]);
         max:=0;min:=t;
         For i:=1 to n do
           begin
             If a[i]>max then max:=a[i];
             If a[i]<min then min:=a[i];
           end;
         For i:=1 to n-1 do
           For j:=i+1 to n do
             If (a[i]+a[j]=t) then d:=d+1;
         Writeln(fo,d);
         For i:=1 to n-1 do
          For j:=i+1 to n do
           If ((a[i]=min) and (a[j]=max) and (a[i]+a[j]=t)) or
              ((a[i]=max) and (a[j]=min) and (a[i]+a[j]=t)) then
              begin vt1:=i;vt2:=j;kt:=true;end;
         If kt=true then write(fo,vt1,' ',vt2) else write(fo,0);
         Close(fi);Close(fo);
    End.
    
    
    Đã check rồi nha bạn.
     
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

-->