ai giúp tui vớiMiệng: 10!5': 10Giữa học kỳ: 9

TA

Tùng anh

26 tháng 4 2022

Sử dụng biến mảng viết chương trình nhập điểm học kỳ 1 và học kỳ 2 sau đó in ra màn hình điểm khả năng học của các bạn trong lớp( theo công thức: điểm cả năm=( điểm học kỳ 1+ điểm học kỳ 2 ×2)/3)

Giúp mình nha

#Tin học lớp 8

1

TT

Thế Thôi

26 tháng 4 2022

uses crt;
var b,c:real; a:array[1..100] of integer; s:real;
begin
clrscr;
write('Nhap vao diem hoc ki 1:');readln(b);
write('Nhap vao diem hoc ki 2:');readln(c);
s:=((b+c)*2)/3;
write('Diem ca nam=',s:2:2);
readln;
end.

Tham khảo! Làm hơi ngắn

Đúng(1)

TT

Trang Thiên

16 tháng 3 2020

Bài 1: viết chương trình nhập số nguyên dương n, in ra tổng các số nguyên dương từ 1 đến n là bội của 3 hoặc 5. Bài 2: viết chương trình nhập vào 3 số a,b,c bất kỳ, kiểm tra xem 3 số có thể là độ dài 3 cạnh của 1 tam giác hay không và thông báo ra màn hình Bài 3: viết chương trình nhập n số bất kỳ. đếm các số lớn hơn 10 và nhỏ hơn 20 rồi tính tổng của chúng. in ra màn hình thông báo ''cac so lon hon 10 va nho hon...

Đọc tiếp

#Tin học lớp 8

2

ML

Minh Lệ

16 tháng 3 2020

Bài 1:

Program hotrotinhoc;

var i,n: integer;

t: longint;

begin

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

for i:=1 to n do

if (i mod 3=0) or (i mod 5=0) then t:=t+i;

write(t);

readln

end.

Bài 2: Bạn tham khảo bài 2 ở link sau Câu hỏi của dang thi khanh ly - Tin học lớp 11 | Học trực tuyến

Bài 3:

program hotrotinhoc;

var d,i,n: integer;

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

t: longint;

begin

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

d:=0; t:=0;

for i:=1 to n do

begin

write('Nhap so thu ',i,':'); readln(a[i]);

if (a[i]>10) and (a[i]<20) then

begin

inc(d);

t:=t+a[i];

end;

Writeln('Cac so lon hon 10 va nho hon 20 la ',d);

write('Tong cua chung la :',t);

readln

end.

Đúng(0)

NL

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

17 tháng 3 2020

Bài 1:

uses crt;
var n,i,t:longint;
begin
clrscr;
write('n='); readln(n);
if n>0 then
begin
t:=0;
for i:=1 to n do
if (i mod 3=0) or (i mod 5=0) then t:=t+i;
writeln('tong cac so la boi cua 3 hoac 5 la: ',t);
end
else writeln('vui long nhap so nguyen duong');
readln;
end.

Bài 2:

uses crt;
var a,b,c:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a>0) and (b>0) and (c>0) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then writeln('day la do dai 3 canh trong mot tam giac')
else writeln('day khong la do dai 3 canh trong mot tam giac');
end
else writeln('vui long nhap ba so duong');
readln;
end.

Bài 3:

uses crt;
var n,i,t,dem:longint;
a:array[1..100]of longint;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{--------------------------------------------}
dem:=0;
t:=0;
for i:=1 to n do
if (a[i]>10) and (a[i]<20) then
begin
dem:=dem+1;
t:=t+a[i];
end;
writeln('cac so lon hon 10 va nho hon 20 la: ',dem);
writeln('tong cua chung la: ',t);
readln;
end.

Đúng(0)

QN

Quảng Nguyễn

5 tháng 5 2022

Câu 1: Khai báo biến mảng có tên bất kỳ gồm 10 phần tử. Mỗi phần tử lưu tên mỗi học sinh.
Câu 2: Giả sử có mảng có tên là A gồm 10 phần tử, viết lệnh để gán giá trị phần tử thứ nhất có giá trị là 4, phần tử thứ 10 có giá trị là 16.
Giúp mk với !!!

#Tin học lớp 8

0

HT

Huỳnh Thùy Dương

9 tháng 11 2021

#_Ngộ ta_ huhu mọi người ơi sao hôm nay mình ko vô đc nick rồi, nó bảo là mật khẩu không đúng thì phải làm sao ạ? Giúp mik với 🤧. Mấy ngừi bạn dthw của tui ơi tui ko nhắn tin đc với mấy bạn nữa rùi😢 Nick mik là Học sinh chăm ngoan📝 , còn đây là nick em mik, mik mượn đỡ nick này để hỏi m.n. Ai bt cách nào thì chỉ giúp mik, mik cảm ơn nhìu🥰...

Đọc tiếp

#Tin học lớp 8

7

NN

Nguyễn Ngọc Quỳnh

9 tháng 11 2021

thi ban co nho lai mat khau la j , ban nho xem ban co doi mat khau ko

Đúng(0)

HT

Huỳnh Thùy Dương

9 tháng 11 2021

mik gõ r mà mik chắc chắc 100% mật khẩu đó đúng . À mà mik lấy nick em mik vào trang của mik thì nó để là Nick đã bị đổi chủ! !

Đúng(0)

LD

Luân Đào

24 tháng 5 2019

program bt3; uses crt; var n: integer; dem: byte; chucngan,ngan,tram,chuc,donvi: byte; begin writeln('Nhap n = :'); read(n); if n < 0 then repeat writeln('Nhap n > 0'); read(n) until n >=0; while n >= 0 do dem:=0; begin n:=n div 10; dem:=dem+1; end; case dem of 1: begin if n = 1 then writeln('mot'); if n = 2 then writeln('hai'); if n = 3 then writeln('ba'); if n = 4 then writeln('bon'); if n = 5 then writeln('nam'); if n = 6 then writeln('sau'); if n = 7 then writeln('bay'); if n = 8 then...

Đọc tiếp

program bt3;
uses crt;
var n: integer;
dem: byte;
chucngan,ngan,tram,chuc,donvi: byte;
begin
writeln('Nhap n = :'); read(n);
if n < 0 then repeat writeln('Nhap n > 0'); read(n) until n >=0;
while n >= 0 do
dem:=0;
begin
n:=n div 10; dem:=dem+1;
end;
case dem of
1: begin
if n = 1 then writeln('mot');
if n = 2 then writeln('hai');
if n = 3 then writeln('ba');
if n = 4 then writeln('bon');
if n = 5 then writeln('nam');
if n = 6 then writeln('sau');
if n = 7 then writeln('bay');
if n = 8 then writeln('tam');
if n = 9 then writeln('chin');
end;
2: begin
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
donvi:=n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
3: begin
tram:= n div 100;
case tram of
1: writeln('mot tram ');
2: writeln('hai tram');
3: writeln('ba tram');
4: writeln('bon tram');
5: writeln('lam tram');
6: writeln('sau tram');
7: writeln('bay tram');
8: writeln('tam tram');
9: writeln('chin tram');
n:= n mod 100;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
donvi:=n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
4: begin
ngan:=n div 1000;
case ngan of
1: writeln('mot ngan');
2: writeln('hai ngan');
3: writeln('ba ngan');
4: writeln('bon ngan');
5: writeln('nam ngan');
6: writeln('sau ngan');
7: writeln('bay ngan');
8: writeln('tam ngan');
9: writeln('chin ngan');
n:= n mod 1000;
tram:= n div 100;
case tram of
1: writeln('mot tram ');
2: writeln('hai tram');
3: writeln('ba tram');
4: writeln('bon tram');
5: writeln('nam tram');
6: writeln('sau tram');
7: writeln('bay tram');
8: writeln('tam tram');
9: writeln('chin tram');
n:=n mod 100;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
donvi:= n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
5: begin
chucngan:=n div 10000;
case chucngan of
1: writeln('muoi ngan');
2: writeln('hai muoi');
3: writeln('ba muoi');
4: writeln('bon muoi');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi ');
9: writeln('chin muoi');
n:= n mod 10000;
ngan:=n div 1000;
case ngan of
1: writeln('mot ngan');
2: writeln('hai ngan');
3: writeln('ba ngan');
4: writeln('bon ngan');
5: writeln('nam ngan');
6: writeln('sau ngan');
7: writeln('bay ngan');
8: writeln('tam ngan');
9: writeln('chin ngan');
n:= n mod 1000;
tram:= n div 100;
case tram of
1: writeln('mot tram ');
2: writeln('hai tram');
3: writeln('ba tram');
4: writeln('bon tram');
5: writeln('nam tram');
6: writeln('sau tram');
7: writeln('bay tram');
8: writeln('tam tram');
9: writeln('chin tram');
n:= n mod 100;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
donvi:= n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
6: writelnngan:=n div 1000;
case ngan of
1: writeln('mot ngan');
2: writeln('hai ngan');
3: writeln('ba ngan');
4: writeln('bon ngan');
5: writeln('nam ngan');
6: writeln('sau ngan');
7: writeln('bay ngan');
8: writeln('tam ngan');
9: writeln('chin ngan');
tram:= n div 100;
case tram of
1: writeln('mot tram ');
2: writeln('hai tram');
3: writeln('ba tram');
4: writeln('bon tram');
5: writeln('nam tram');
6: writeln('sau tram');
7: writeln('bay tram');
8: writeln('tam tram');
9: writeln('chin tram');
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
6: writeln('Mot tram ngan');
readln
end.

LỖI:

source.pas(41,1) Error: Constant and CASE types do not match

source.pas(41,1) Error: Constant Expression expected

source.pas(41,1) Fatal: Syntax error, ":" expected but "CASE" found

#Tin học lớp 8

1

NQ

Nguyễn Quang Kiên

12 tháng 6 2019

dài ing

Đúng(0)

LD

Luân Đào

24 tháng 5 2019

program bt3; uses crt; var n: longint; dem: byte; chucngan,ngan,tram,chuc,donvi: byte; begin writeln('Nhap n ='); read(n); if n < 0 then repeat writeln('Nhap n > 0'); read(n) until n <= 100000; chucngan:=0; ngan:=0; tram:=0; chuc:=0; donvi:=0; while n >= 0 do begin dem:=0; n:=n div 10; dem:=dem+1; end; case dem of 1: begin if n = 0 then writeln('khong'); if n = 1 then writeln('mot'); if n = 2 then writeln('hai'); if n = 3 then writeln('ba'); if n = 4 then writeln('bon'); if n = 5 then writeln('nam'); if...

Đọc tiếp

program bt3;
uses crt;
var n: longint;
dem: byte;
chucngan,ngan,tram,chuc,donvi: byte;
begin
writeln('Nhap n ='); read(n);
if n < 0 then repeat writeln('Nhap n > 0'); read(n) until n <= 100000;
chucngan:=0; ngan:=0; tram:=0; chuc:=0; donvi:=0;
while n >= 0 do begin
dem:=0;
n:=n div 10; dem:=dem+1;
end;
case dem of
1: begin
if n = 0 then writeln('khong');
if n = 1 then writeln('mot');
if n = 2 then writeln('hai');
if n = 3 then writeln('ba');
if n = 4 then writeln('bon');
if n = 5 then writeln('nam');
if n = 6 then writeln('sau');
if n = 7 then writeln('bay');
if n = 8 then writeln('tam');
if n = 9 then writeln('chin');
end;
2: begin
chuc:=0;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
end;
donvi:=0;
donvi:=n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
end;
3: begin
tram:=0;
tram:= n div 100;
case tram of
1: writeln('mot tram ');
2: writeln('hai tram');
3: writeln('ba tram');
4: writeln('bon tram');
5: writeln('lam tram');
6: writeln('sau tram');
7: writeln('bay tram');
8: writeln('tam tram');
9: writeln('chin tram');
end;
chuc:=0;
n:= n mod 100;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
end;
donvi:=0;
donvi:=n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
end;
4: begin
ngan:=0;
ngan:=n div 1000;
case ngan of
1: writeln('mot ngan');
2: writeln('hai ngan');
3: writeln('ba ngan');
4: writeln('bon ngan');
5: writeln('nam ngan');
6: writeln('sau ngan');
7: writeln('bay ngan');
8: writeln('tam ngan');
9: writeln('chin ngan');
end;
tram:=0;
n:= n mod 1000;
tram:= n div 100;
case tram of
1: writeln('mot tram ');
2: writeln('hai tram');
3: writeln('ba tram');
4: writeln('bon tram');
5: writeln('nam tram');
6: writeln('sau tram');
7: writeln('bay tram');
8: writeln('tam tram');
9: writeln('chin tram');
end;
chuc:=0;
n:=n mod 100;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
end;
donvi:=0;
donvi:= n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
end;
5: begin
chucngan:=0;
chucngan:=n div 10000;
case chucngan of
1: writeln('muoi');
2: writeln('hai muoi');
3: writeln('ba muoi');
4: writeln('bon muoi');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi ');
9: writeln('chin muoi');
end;
ngan:=0;
n:= n mod 10000;
ngan:=n div 1000;
case ngan of
1: writeln('mot ngan');
2: writeln('hai ngan');
3: writeln('ba ngan');
4: writeln('bon ngan');
5: writeln('nam ngan');
6: writeln('sau ngan');
7: writeln('bay ngan');
8: writeln('tam ngan');
9: writeln('chin ngan');
end;
tram:=0;
n:= n mod 1000;
tram:= n div 100;
case tram of
1: writeln('mot tram ');
2: writeln('hai tram');
3: writeln('ba tram');
4: writeln('bon tram');
5: writeln('nam tram');
6: writeln('sau tram');
7: writeln('bay tram');
8: writeln('tam tram');
9: writeln('chin tram');
end;
chuc:=0;
n:= n mod 100;
chuc:= n div 10;
case chuc of
1: writeln('muoi');
2: writeln('hai muoi ');
3: writeln('ba muoi ');
4: writeln('bon muoi ');
5: writeln('nam muoi');
6: writeln('sau muoi');
7: writeln('bay muoi');
8: writeln('tam muoi');
9: writeln('chin muoi ');
end;
donvi:=0;
donvi:= n mod 10;
case donvi of
0: writeln(' ');
1: writeln('mot');
2: writeln('hai');
3: writeln('ba');
4: writeln('bon');
5: writeln('lam');
6: writeln('sau');
7: writeln('bay');
8: writeln('tam');
9: writeln('chin');
end;
end;
6: writeln('Mot tram ngan');
end;
readln;
end.

Sao chạy không đc, kiểm tra giúp (đã chỉnh sửa, nhập đc rồi)

Tin học [Hỗ trợ]

#Tin học lớp 8

3

ML

Minh Lệ

24 tháng 5 2019

Bạn cho mình xem đề được không

Đúng(0)

LD

Luân Đào

24 tháng 5 2019

Nhập vào số nguyên dương n <= 100000 và in ra màn hình cách đọc

Đúng(0)

??##

23 tháng 3 2020

Writeln ('((10+5)*(10+5)-(2+12))/3=',((10+5*(10+5)-(2+12))/3);

End

Kết quả là

#Tin học lớp 8

4

NM

Nguyễn Minh Lệ

23 tháng 3 2020

Báo lỗi - Vì thiếu dấu đóng ngoặc.

Nếu lỗi do bạn thì kết quả là :

((10+5)*(10+5)-(2+12))/3=2.36666666666666666661E+0001

Đúng(0)

LT

Luân Trần

23 tháng 3 2020

https://i.imgur.com/JgkZ55c.png

Đúng(0)

NO

Ngânn Okk

12 tháng 3 2021

trong một lần tập thể dục đầu buổi của n học sinh lớp 9 ,mỗi học sinh có cân năng là m.

học sinh dc xếp một hàng duy nhất đánh dấu số từ 1 đến n . hãy viết chương trình giúp nhà trường thực hiện công việc kiểm tra sức khỏe của các em

vd: 10

41 1 8 9

#Tin học lớp 8

1

BA

Bùi Anh Tuấn

12 tháng 3 2021

các số 1 8 9 là gì vậy??

Đúng(0)

D

duc99duc

10 tháng 5 2021

câuđúngsainếu sai sửa lại cho đúngfor i:=1 to 10 do writeln('A'); var X; Array[5...10] of char; X:=10;while X:=10 do X:=X+5; for i=1.5 to 10.3 do...

Đọc tiếp

#Tin học lớp 8

1

NL

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

10 tháng 5 2021

For i:=1 to 10 do writeln('A'); Đúng

Var x; array[5...10]of char; Sai

Sửa lại: var x:array[5..10]of char;

Đúng(0)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

câu	đúng	sai	nếu sai sửa lại cho đúng
for i:=1 to 10 do writeln('A');
var X; Array[5...10] of char;
X:=10;while X:=10 do X:=X+5;
for i=1.5 to 10.3 do writeln('A');

Bảng xếp hạng

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

Yêu cầu VIP