Viết chương trình thực hiện các công việc sau:
a) Nhập vào điểm số của 3 bạn học sinh
b) in ra màn hình kết quả so sánh điểm của 3 bạn
Mn giúp mik nha. Mik đang cần gấp....... cảm ơn nhìu
Những câu hỏi liên quan
Câu2: viết chương trình thực hiện yêu cầu sau . a, Sử dụng biến mảng để nhập từ bàn phím điểm trung bình (ĐTB) của 50 bạn học sinh trong lớp. b,In rs màn hình (ĐTB) của học sinh . c,In ra màn hình số lớn nhất trong dãy số . Mn giúp mik vs mik cần gấp.mik c.ơn
Var a:array:[1..50] of real;
i,max:integer;
Begin
For i:=1 to 50 do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to 50 do
Write(a[i]:10:2);
Writeln;
max:=a[1];
For i:=2 to 50 do
if a[i]>max then max:=a[i];
Write('Diem trung binh lon nhat la ',max:10:2);
Readln
End.
Đúng 2
Bình luận (1)
Var a:array:[1..50] of real;
i:integer;
max:real;
Begin
For i:=1 to 50 do
Begin
Write('Nhap diem thu ',i,' = ');readln(a[i]);
End;
Write('Cac diem vua nhap la: ');
For i:=1 to 50 do
Write(a[i]:10:2);
writeln;
max:=a[1];
For i:=2 to 50 do
if a[i] > max then max:=a[i];
write('Diem lon nhat la ',max:10:2);
Readln
End.
Đúng 2
Bình luận (1)
Bài 1 : Viết chương trình Pascal nhập vào 10 số thực bất kì , in ra màn hình tổng bình phương của các số âm Bài 2 : Viết chườn trình nhập vào số n số tự nhiên đầu tiên , tính tổng các số chẵn có trong dãy số in kết quả ra màn hình Bài 3 : Viết chưng trình nhập vào một mảng các số nguyên bất kì , in ra màn hình các số là số dương mà là số lẻ Giúp mk với mn ơi , mk đang cần gấp Cảm ơn mn nhiều
Đọc tiếp
Bài 1 : Viết chương trình Pascal nhập vào 10 số thực bất kì , in ra màn hình tổng bình phương của các số âm
Bài 2 : Viết chườn trình nhập vào số n số tự nhiên đầu tiên , tính tổng các số chẵn có trong dãy số in kết quả ra màn hình
Bài 3 : Viết chưng trình nhập vào một mảng các số nguyên bất kì , in ra màn hình các số là số dương mà là số lẻ
Giúp mk với mn ơi , mk đang cần gấp Cảm ơn mn nhiều
Bài 1:program sothuc;
uses crt;
var a:array[1..10] of real;s,i,j:real;
begin
s:=0;
for i:=1 to 10 do begin writeln('A[',i,']=');readln(a[i]); end;
for i:=1 to 10 do if a[i]<0 then
for j:=1 to 10 do
begin a[j]:=sqr(a[i]); s:=s+a[j]; end;
writeln('tong binh phuong cac so am la: ',s:2:2); readln;
end. (Khi nào mình kiểm tra chạy lại trên phần mềm rồi sửa lại nếu sai nhé)
Bài 2:
program soduong;
uses crt;
var a:array[1..100] of integer;s,i,n:integer;
begin
clrscr;
writeln('nhap do dai cua day');readln(n);
for i:=1 to n do begin
writeln('a[',i,']=');readln(a[i]);
if a[i] mod 2 = 0 then s:=s+a[i] end;
writeln('tong so duong trong day la',s:2:0);readln
end.
Bài 3: các số dương mà là số lẻ là sao thế bạn????
viết chương trình sử dụng vòng lặp while...do thực hiện các công việc sau:
-nhập vào từ bàn phím điểm tb các bạn học sinh trong lớp.
-thông báo ra màn hình học sinh có điểm tb cao nhất, thấp nhất.
-thông báo ra những học sinh có điểm tb trên 5,dưới 5.
Viết chương trình sử dụng biến mảng lưu điểm Tin học của học sinh trong lớp 8A, số lượng 35 học sinh thực hiện những yêu cầu sau:
a)Nhập vào điểm của 35 bạn học sinh
b)In ra màn hình tất cả điểm
c) In ra màn hình những học sinh có điểm dưới 5 hoặc điểm >9
Var a:array[1..35] of real;
i:integer;
Begin
For i:=1 to 35 do
Begin
Write('Nhap diem thu ',i);readln(a[i]);
End;
write('Diem vua nhap la ');
For i:=1 to 35 do write(a[i]:10:2);
Writeln;
write('Cac diem duoi 5 hoac > la ');
For i:=1 to 35 do
If (a[i]>9) or (a[i]<5) then write(a[i]:10:2)
Readln
End.
Đúng 1
Bình luận (0)
Viết chương trình thực hiện các công việc sau:
a. In ra họ và tên em
b. Nhập vào 2 số nguyên a, b. Tính và in tổng 2 số đó.
C. Kiểm tra xem tổng 2 số đó là số chẵn hay lẻ? In kết quả kiểm tra ra màn hình
"mình cần gấp "
b:
#include <bits/stdc++.h>
using namespace std;
long long a,b,t;
int main()
{
cin>>a>>b;
t=a+b;
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình nhập điểm toán, lí, hóa cho các bạn lớp 8a14. Sao đó in ra màn hình điểm trung bình của các bạn trong lớp theo công thức điểm trung bình= ( điểm toán+ điểm lí+ điểm hóa):3 và in ra màn hình kết quả
uses crt;
var a,b,c,tb:array[1..10]of real;
ln,nn:real;
n:integer;
i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i],b[i],c[i]);
for i:=1 to n do
tb[i]:=(a[i]+b[i]+c[i])/3;
for i:=1 to n do
writeln(tb[i]:4:2);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình nhập vào điểm môn toán của hai bạn mạnh và thanh hãy so sánh điểm của hai bạn và thông báo kết quả ra màn hình (điểm nhập vào nhỏ hơn hoặc bằng 10)
program SoSanhDiem;
var
DiemManh, DiemThanh: real;
begin
write('Nhap diem cua ban Manh: ');
readln(DiemManh);
write('Nhap diem cua ban Thanh: ');
readln(DiemThanh);
if DiemManh > DiemThanh then
writeln('Ban Manh dat diem cao hon ban Thanh.')
else if DiemManh < DiemThanh then
writeln('Ban Thanh dat diem cao hon ban Manh.')
else
writeln('Hai ban dat diem bang nhau.');
readln;
end.
Đúng 2
Bình luận (0)
Bài 1: Hãy viết chương trình trong Pascal thực hiện các công việc sau:a) Nhập 2 số thực a và b vào từ bàn phímb) In ra màn hình tổng của 2 số a,b vừa nhập, với kết quả in ra có 1 chữ số ở phần thập phânc) Lưu chương trình với tên có dạng hoten-lop**Lưu ý: Trong chương trình phải sử dụng các lệnh xóa màn hình và dừng màn hình kết quả------------Mình cần gấp, xin cảm ơn------------
Đọc tiếp
Bài 1: Hãy viết chương trình trong Pascal thực hiện các công việc sau:
a) Nhập 2 số thực a và b vào từ bàn phím
b) In ra màn hình tổng của 2 số a,b vừa nhập, với kết quả in ra có 1 chữ số ở phần thập phân
c) Lưu chương trình với tên có dạng hoten-lop
**Lưu ý: Trong chương trình phải sử dụng các lệnh xóa màn hình và dừng màn hình kết quả
------------Mình cần gấp, xin cảm ơn------------
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writeln(a+b:4:1);
readln;
end.
Đúng 0
Bình luận (0)
program b1;
uses crt;
var a,b,s:real;
begin
clrscr;
writeln('Nhap hai so a va b: ');
readln(a,b);
s:=a+b;
write('Tong cua hai so a va b la: ',s:1:1);
readln;
end.
P/S: phần lưu lẫn đặt tên người dùng nào cũng đều làm được.
+ Chọn Save as ở phần File phía góc trái trên cùng rồi đặt tên.
Đúng 0
Bình luận (0)
viết chương trình nhập vào 1 mảng số nguyên gồm 10 phần tử xuất ra màn hình phần tử số 3 . Lm ơn giúp mik vs ạ mik cần gấp xin cảm ơn😭