Sử dụng cấu trúc lặp while … do viết chương trình in ra câu chào bạn (tên của học sinh được nhập từ bàn phím). Sau khi nhập tên học sinh chương trình có yêu cầu học sinh tiếp tục nhập nũa hay không...

HH

Hoàng Hải Bình

19 tháng 2 2022

Sử dụng cấu trúc lặp while … do viết chương trình in ra câu chào bạn (tên của học sinh được nhập từ bàn phím). Sau khi nhập tên học sinh chương trình có yêu cầu học sinh tiếp tục nhập nũa hay không (Chọn Y để tiếp tục, chọn N để kết thúc).Ví dụ: - Moi ban nhap ten: Hoa - Chao Hoa - Ban co nhap tiêp hay khong (Y/N): Y - Moi bạn nhap ten: Hoang - Chao Hoang- Ban co nhap tiêp hay khong...

Đọc tiếp

#Tin học lớp 8

0

AN

Anh Nguyễn

7 tháng 5 2021

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.

#Tin học lớp 8

0

HH

Hoàng Hải Bình

21 tháng 2 2022

Sử dụng biến mảng viết chương trình nhập từ bàn phím STT, Họ tên, Điểm trung bình của n học sinh trong lớp (5<n<10). In thông tin được nhập ra màn hình.

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

22 tháng 2 2022

uses crt;

var st:array[1..10]of string;

a:array[1..10]of integer;

i,n:integer;

begin

clrscr;

readln(n);

for i:=1 to n do

readln(st[i],a[i]);

for i:=1 to n do

writeln(st[i],' ',a[i]);

readln;

end.

Đúng(1)

TU

Thư Uyên

26 tháng 3 2021

Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên n b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n (sử dụng câu lệnh lặp while...do) Bài 2: Viết chương trình pascal thực hiện câc yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên dương n b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n (sử dụng câu lệnh lặp while...do giúp mình với mình đang...

Đọc tiếp

#Tin học lớp 8

3

NL

Nguyễn Lê Phước Thịnh

26 tháng 3 2021

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do

begin

s:=s+i;

inc(i);

end;

writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

Đúng(1)

NL

Nguyễn Lê Phước Thịnh

26 tháng 3 2021

Bài 2:

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do

begin

s:=s+i;

i:=i+2;

end;

writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

Đúng(1)

TT

Tuấn Trần thị

10 tháng 5 2023

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

#Tin học lớp 8

2

KV

Kiều Vũ Linh

10 tháng 5 2023

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)

KV

Kiều Vũ Linh

10 tháng 5 2023

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)

HD

Hương Đinh

2 tháng 3 2022

viết chương trình sử dụng biến mảng, thực hiện các công việc sau:

- Nhập từ bàn phím danh sách HỌ TÊN, điểm trung bình môn TOÁN,VĂN,TIN của các bạn học sinh trong lớp

- Tính điểm trung bình của từng học sinh.

- Tìm học sinh có điểm trung bình cao nhất.

#Tin học lớp 8

1

VH

Vương Hương Giang

2 tháng 3 2022

XEM HÌNH

Đúng(1)

HD

Hương Đinh

2 tháng 3 2022

viết chương trình sử dụng biến mảng, thực hiện các công việc sau:

- Nhập từ bàn phím danh sách HỌ TÊN, điểm trung bình môn TOÁN,VĂN,TIN của các bạn học sinh trong lớp

- Tính điểm trung bình của từng học sinh.

- Tìm học sinh có điểm trung bình cao nhất.

#Tin học lớp 8

1

DD

Đỗ Đức Duy

2 tháng 3 2022

Đúng(0)

TA

Thế anh lã

7 tháng 5 2023

Câu 1 Viết chương trình nhập điểm kiểm tra học kỳ môn Anh cho m học sinh và in ra màn hình. Với m và điểm kiểm tra được nhập từ bàn phím (sử dụng biến...

Đọc tiếp

#Tin học lớp 8

1

KV

Kiều Vũ Linh

8 tháng 5 2023

Var a:array:[1..1000] of real;

i,m:integer;

Begin

Write('m = ');readln(m);

For i:=1 to m do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Write('Cac diem vua nhap la: ');

For i:=1 to m do

Write(a[i]:10:2);

Readln

End.

Đúng(1)

ND

Nguyễn Đức Hoàn

5 tháng 5 2023

Hãy mô tả thuật toán và Viết chương trình nhập điểm kiểm tra học kỳ môn Tin học cho N học sinh và in ra màn hình học sinh có điểm Tin học cao nhất. Với N và điểm kiểm tra của từng học sinh được nhập từ bàn phím (sử dụng biến...

Đọc tiếp

#Tin học lớp 8

1

NV

Nguyễn Văn Tùng

5 tháng 5 2023

Đây là code Pascal để nhập và in điểm kiểm tra học kì môn tin cho N của từng học sinh:

program DiemKT;

var
N, i: integer;
diem: array1..100 of integer;

begin
write('Nhap so hoc sinh: ');
readln(N);

for i := 1 to N do
begin
write('Nhap diem kiem tra hoc ki cua hoc sinh thu ', i, ': ');
readln(diemi);
end;

writeln('Diem kiem tra hoc ki cua ', N, ' hoc sinh la:');

for i := 1 to N do
writeln('Hoc sinh thu ', i, ': ', diemi);

end.

Đúng(0)

T

Thuytram301

7 tháng 5 2021

Viết chương trình nhập điểm kiểm tra học kì môn tin cho N học sinh và in ra màn hình. Với N và điểm kiểm tra được nhập từ bàn phím.( sử dụng biến mảng)

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

7 tháng 5 2021

uses crt;

var a:array[1..100]of real;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do

writeln('Diem cua ban thu ',i,' la: ',a[i]:4:2);

readln;

end.

Đúng(6)

VN

Võ Nam Thắng

27 tháng 4 2022

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP