Viết chương trình pascal thực hiện các yêu cầu sau: Nhập các môn văn, toán, tiếng anh Tính trung bình cộng các môn vừa nhập Xếp loại học sinh Sắp xếp các môn vừa nhập theo thứ tự giảm dần Please help me!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

tamnguyenthcstx

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 34 xem

1 trả lời

Thích Trả lời

katiebuyhouses

uses crt;
var i,j,v,t,ta,tam:longint;a:array[1..1000]of longint;
begin
clrscr;
write('mon van:');readln(v);
write('mon toan:');readln(t);
write('mon tieng anh:');readln(ta);
if((v+t+ta)div 3>=9)then writeln('ban la hoc sinh:gioi');
if((v+t+ta)div 3>=7)then writeln('ban la hoc sinh:kha');
if((v+t+ta)div 3>=5)then writeln('ban la hoc sinh:trung binh');
if((v+t+ta)div 3>=3)then writeln('ban la hoc sinh:yeu');
a[1]:=v;
a[2]:=t;
a[3]:=ta;
for i:=1 to 3 do
for j:=1 to i do
if(a[i]>a[j])then
begin
tam:=a[i];a[i]:=a[j];a[j]:=tam;
end;
for i:=1 to 3 do write(a[i],' ');
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

cskh.tanthoishop

uses crt;
var a,b,c,tam:real;n:array[1..100]of real;i,j:longint;
begin
clrscr;
write('ANh:');readln(a);
write('van:');readln(b);
write('toan:');readln(c);
if((a+b+c)/3>=8)then writeln('Gioi')else if((a+b+c)/3>=6.5)then writeln('Kha')else
if((a+b+c)/3>=3.5)then writeln('Trung binh')else writeln('Yeu');
n[1]:=a;
n[2]:=b;
n[3]:=c;
for i:=1 to 3 do
for j:=i to 3 do
if(n[i]<n[j])then
begin
tam:=n[i];
n[i]:=n[j];
n[j]:=tam;
end;
for i:=1 to 3 do write(n[i],' ':8);
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

trình bày các kiểu gân lá và cách mọc lên trên thân và cành

Choose the word that has the underlined part pronounced differently from the others

Cho tam giác ABC có AB<ác,h là="" trung="" điểm="" của="" ac.trên="" tia="" hb="" lấy="" điểm="" f="" sao="" cho="" h="" là="" trung="" điểm="" của="" bf.="" a,chứng="" minh:="" tam="" giác="" àh="tam" giác="" cbh="" b,="" chứng="" minh:="" ab="FC" c,="" chứng="" minh="" ab="" song="" song="" fc="" đ,="" cho="" hn="" vuông="" góc="" với="" af="" ,="" hd="" vuông="" góc="" với="" bc.="" chứng="" minh:="" ba="" điểm="" n;h;d="" thẳng="" hàng="" ai="" có="" đủ="" hình="" vẽ,="" bài="" làm="" mk="" tặng="">

Làm hộ em với ạ Dạng chuyển động dòng sông ạ

Nêu những thành tựu của nền kinh tế Trung Quốc từ sau Chiến tranh thế giới thứ 2 đến nay

Lập phương trình hóa học ạ! Có mấy câu e ko hỉu mong m.n giúp, mai e thi òi ạ!! Cảm ơn nhìu😊

Cho hình chữ nhật ABCD (AB>BC) Gọi I là điểm đối xứng của A qua D, M là hình chiếu của A trên BI, H và K lần lượt là trung điểm của AM và MI. A) biết BD = 30 cm, AB = 24 cm Tính AD và HK B) Chứng minh BH song song CK C) chứng minh AK vuông góc KC

Cho phép lai P : đực AaBbDd x cái AabbDd Qúa trình gp xảy ra sự không phân ly ở cặp Aa ở giảm phân I, không viết SĐL hãy xác định KG tối đa có thể có và KG AaBbDd ở F1 trong các trường hợp sau TH1 : rối loạn GP xảy ra ở 1 giới TH2 : rối loạn GP xảy ra ở 2 giới

-Phân tích sự lớn lên và phân chia của tế bào -Mô tả thí nghiệm lá cây sử dụng khí Co2 trong quá trình chế tạo tinh bột -Tại sao cây lấy cô, lấy sợi không bấm ngọn còn cây ăn quả thường bấm ngọn

ai làm đc thì giúp tui đi mấy thiên tài ơiiii

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến