Banner-dethi-1090_logo1
Banner-dethi-1090_logo2

Tìm kiếm Đề thi, Kiểm tra

Quảng cáo

Quảng cáo

  • Quảng cáo

    Hướng dẫn sử dụng thư viện

    Hỗ trợ kĩ thuật

    Liên hệ quảng cáo

    • (04) 66 745 632
    • 0166 286 0000
    • contact@bachkim.vn

    ViOLET Chào mừng năm học mới

    tính số điện trở tùy thích pascal

    Nhấn vào đây để tải về
    Hiển thị toàn màn hình
    Báo tài liệu có sai sót
    Nhắn tin cho tác giả
    (Tài liệu chưa được thẩm định)
    Nguồn:
    Người gửi: Lê Trọng Nhân
    Ngày gửi: 15h:28' 15-03-2017
    Dung lượng: 8.5 KB
    Số lượt tải: 2
    Số lượt thích: 0 người
    Var Rtd,tam:real;
    n,i:integer;
    a:array[1..100] of integer;
    begin
    write(‘nhap so dien tro: ‘);
    readln(n);
    for i:=1 to n do
    begin
    write(‘nhap dien tro thu ‘, i,’ : ‘);readln(a[i]);
    end;
    tam:=0;
    for i:=1 to n do
    tam:= tam+1/a[i];
    Rtd:=1/tam;
    write(‘dien tro tuong duong: ‘,Rtd:4:2,’ om’);
    writeln;
    readln;
    end.
     
    Gửi ý kiến

    ↓ CHÚ Ý: Bài giảng này được nén lại dưới dạng RAR và có thể chứa nhiều file. Hệ thống chỉ hiển thị 1 file trong số đó, đề nghị các thầy cô KIỂM TRA KỸ TRƯỚC KHI NHẬN XÉT  ↓