begin writeln('15*4-30+12=',15*4-30+12); writeln('(10+5)/(3+1)-18/(5+1) =',(10+5)/(3+1)-18/(5+1)); writeln('(10+2)*(10+2)/(3+1)=',(10+2)*(10+2)/(3+1)); write('(...

begin writeln('15*4-30+12=',15*4-30+12); writeln('(10+5)/(3+1)-18/(5+1) =',(10+5)/(3+1)-18/(5+1));...

??##

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)

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)

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)

TN

Trần Nguyễn Hoàng Nam

24 tháng 3 2022

mọi người giúp mình

Sửa lỗi chương trình sau

Program bang_cuu_chuong

Uses crt;

Var N: read;

i: integer;

Begin

clrscr;

write('Nhap so N=');readln(N);

writeln;

writeln('Bang nhan ',N)

writeln;

for i:=1 to 10 do

writeln(N,' x ',i:2,' = ',N')

readln

end.

#Tin học lớp 8

3

TK

ttanjjiro kamado

24 tháng 3 2022

program bang_cuu_chuong ;

Uses crt;

Var N , i : integer ;

Begin

Clrscr ;

write('Nhap so N=');

readln(N);

writeln;
write ('Bang nhan',N) ;

writeln;

for i:=1 to 10 do

writeln(N,'x',i:2,'=',N*i);

readln ;

End.

Đúng(0)

TK

ttanjjiro kamado

24 tháng 3 2022

đau tay

Đúng(0)

EK

em không thích học

21 tháng 3 2022

program bang_nhan;

uses Crt;

var i,n:Integer

begin

clrscr;

n:=8;

for i:=1 to 10 do

WriteLn(n,'x',i:2,'=',n*i:3);

Readln

end.

cho em hỏi sai chỗ nào vậy

#Tin học lớp 8

0

HL

Hien Lee

25 tháng 4 2020

Cùng các bạn trong nhóm thảo luận và trả lời câu hỏi sau: Xét chương trình sau: Const a=20; d= TRUE Var b: integer; x: real; c: char: Begin write (' Hay nhap gia tri cho b: ') ; readln(b) ; write (' Hay nhap gia tri cho c: ') ; readln(c) ; ... readln; End. Khi thực hiện chương trình, nếu người sử dụng giá trị 18 cho biến b và nhập kí tự 'k' cho biến c thì từng lệnh dưới đây sẽ hiển thị kết quả gì lên màn hình khi đc thay vào...

Đọc tiếp

#Tin học lớp 8

1

HT

Huỳnh Thanh Nguyên

1 tháng 12 2020

Lệnh 1: 8

Lệnh 2: FALSE

Lệnh 3: 3

Lệnh 4: ______3.00

Lệnh 5: ______3.33

Lệnh 6: TRUE

Lệnh 7: TRUE

Lệnh 8: TRUE

Đúng(0)

HN

hoàng nguyễn phương thảo

17 tháng 12 2019

Trong chương trình Pascal sau hãy tìm lỗi sai và sửa lại cho đúng

1. Program Hinh tron

2. Var cr , dt , r : = integer

3. Begin

4. r : = 2

5. cv = 2 * pi * r

6. dt : pi * r * r

7. Writeln ( ' Chu vi la : = cv ' )

8. Writeln ( ' Dien tich la : ' = dt )

9. Readln

10 . End

#Tin học lớp 8

1

BA

Bùi Anh Tuấn

17 tháng 12 2019

Dòng 1 tên chương trình khai báo sai

sửa lại program hinh_tron;

Dòng 2 phần kahi báo k có dấu "=" trước integer

sửa lại vả cr,dt,t: integer;

Dòng 6 thiếu dấu"=" sau dấu ":"

sửa lại dt:=pi*r*r;

Dòng 7 lệnh in kq sai

sửa lại writeln(' chu vi la:',cv);

Dòng 8 lênh in kq sai

sửa lại writeln(' dien tich la:',dt);

Dòng 1,2,4,5,6,7,8,9 thiếu ;

và dòng 10 thiếu "."

Đúng(0)

NN

Nhung Nguyen

15 tháng 11 2021

Hãy cho biết kết quả in ra màn hình của câu lệnh Pascal sau đây: (2đ)
Writeln( ' 2*10+14= ', 2*10+14 );
Writeln( ' 20*3+20= ' , ' 20*3+20 ' );

#Tin học lớp 8

1

NL

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

15 tháng 11 2021

1: 2*10+14= 34

2: 20*3+20= 80

Đúng(1)

VD

Vương Đình Đô

9 tháng 10 2022

theo mình thì câu 1 của bạn đúng còn câu 2 thì có dấu ngoặc đơn ở 20*3+20 nên nó sẽ in ra thành 20*3+20=20*3+20.

Đú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)

D

duc99duc

10 tháng 5 2021

câuđúngsaisửa lại cho đúng nếu saifor 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

MN

Minh Nhân

10 tháng 5 2021

a) thiếu dấu ; ở cuối

sửa: for i:=1 to 10 do writeln ('A');

b) sau X ko phải có; mà có : từ 5.. 10 có 2 dấu chấm dư 1 dấu

sửa: var X: array [5..10] of char;

b) thiếu dấu ; ở cuối câu lệnh

sửa: X:=10; while X=10 do X:=X+5;

d) giá trị đầu và gia trị cuối của câu lệnh phải là só nguyên

sửa: for i:=1 to 10 do writeln('A');

Đúng(1)

D

duc99duc

10 tháng 5 2021

chắc ko

Đú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');

câu	đúng	sai	sửa lại cho đúng nếu sai
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