Đến nội dung


Chú ý

Nếu các bạn đăng kí thành viên mà không nhận được email kích hoạt thì hãy kiểm tra thùng thư rác (spam). Nếu không biết cách truy cập vào thùng thư rác thì các bạn chịu khó Google hoặc đăng câu hỏi vào mục Hướng dẫn - Trợ giúp để thành viên khác có thể hỗ trợ.


Hình ảnh
- - - - -

giúp giải bài toán pascanl


  • Please log in to reply
Chủ đề này có 1 trả lời

#1 dinhbn

dinhbn

    Lính mới

  • Thành viên
  • 2 Bài viết

Đã gửi 09-05-2013 - 09:25

Bài 1
Cho DT1,DT2..DTn và SL1,SL2..SLn là diện tích canh tác và sản lượng tương ứng của N xã trong một huyện.viết chương trình pascanl để nhập dữ liệu tính và in ra năng suất trung bình toàn huyện và tổng sản lượng các xã có năng xuất cao hơn năng xuất trung bình của toàn huyện
Bài 2
Vẽ sơ đồ thuật toán dữ liệu tính và đưa ra số lượng các phần tử có giá trị dưới 50 từ 50 đến 100 của dẫy số gồm phần tử

ai giúp mình chút nhá thanks



#2 Tuongtaylor

Tuongtaylor

    Binh nhất

  • Thành viên mới
  • 20 Bài viết
  • Giới tính:Nam
  • Đến từ:Tỉnh Nghệ An
  • Sở thích:Thích ca sĩ TAYLOR SWIFT,học toán,lập trình pascal,scratch,logo,...

Đã gửi 20-12-2019 - 13:10

uses crt;
var t,i,n:longint; a,b,c:array[1..1000]of longint;
begin
clrscr;
Write('n=');readln(n);
For i:=1 to n do
   begin
      write('DT',i,'=');readln(a[i]);
   end;
For i:=1 to n do
   begin
      write('SL',i,'=');readln(b[i]);
   end;
For i:=1 to n do c[i]:=a[i]*b[i];
For i:=1 to n do t:=t+c[i];
Writeln(t/n:0:2);
For i:=1 to n do If c[i]>t/n then Writeln('Xa ',i);
readln
end.

 






0 người đang xem chủ đề

0 thành viên, 0 khách, 0 thành viên ẩn danh