program bt3; uses crt; var n: longint; dem: byte; chucngan,ngan,tram,chuc,donvi: byte; begin writeln('Nhap n ='...

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)

KD

Kiên Đặng

27 tháng 9 2020

Các bạn có thể tìm lỗi trong program này giúp tớ được không? program CTT5; uses crt; var a,b : integer; begin writeln('Nhap so hang dau tien : ');readln(a); writeln('Nhap so hang thu hai : ');readln(b); if b=0 then writeln('Ket qua phep cong la : ',a+b); writeln('Ket qua phap tru la : ',a-b); writeln('Ket qua phep nhan la : ',a*b); writeln('Khong the chia cho 0'); else writeln('Ket qua phep cong la : ',a+b); writeln('Ket qua phap tru la : ',a-b); writeln('Ket qua phep nhan la :...

Đọc tiếp

#Tin học lớp 8

1

ML

Minh Lệ

28 tháng 9 2020

Bạn làm thiếu begin và end nhé. Vì ở dòng 12 bạn dùng else nhưng trước nó không có câu lệnh điều kiện.

program CTT5;
uses crt;
var a,b : integer;
begin
writeln('Nhap so hang dau tien : ');readln(a);
writeln('Nhap so hang thu hai : ');readln(b);
if b=0 then

Begin

writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Khong the chia cho 0');

end
else

begin
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Ket qua phep chia la : ',a div b);

end;
readln;
end.

Đúng(3)

TN

Tuyết Nhi Lê Ngọc

10 tháng 11 2021

Cho em hỏi writeln('ket qua phep cong la: ',a+b); có ý nghĩa gì vậy ạ

Đúng(0)

PC

Phác Chí Mẫn

16 tháng 1 2019

Các đoạn chương trình khác nhau chỗ nào?

1/ If Long > Trang then writeln('Long cao hon');

If Long < Trang then writeln('Trang cao hon') else writeln('Ca hai bang nhau');'

và

2/ If Long > Trang then writeln('Long cao hon') else If Long < Trang then writeln('Trang cao hon') else writeln('Ca hai bang nhau);

Giúp mình vớiiiii

#Tin học lớp 8

2

TN

Tú Nguyễn

17 tháng 1 2019

ở cái 1 nó kiểm trả Long>Trang lớn hơn rồi thì nó vẫn tiếp tục kt lệnh Long<Trang thì sẽ ra 2 kết quả

còn cái 2 ở cái nó kt Long>Trang rồi thì nó in luôn Long cao hơn

Đúng(0)

SN

SATOSI NAKAMOTO

17 tháng 1 2019

môn tin học hay tiếng anh thế

Đúng(0)

I

𝔑𝔦𝔫𝔥 𝔗ị𝔠𝔥-𝒦𝐹𝒞

28 tháng 12 2020

Câu hỏi: Em hãy tìm và sửa lỗi chương trình sau:Program So sanh;Uses crt;Var m, n= integer;Begin if m > n then writeln(m lon hon n); else if m < n writeln(m nho hon n); else writeln('m bang n'); readlnEnd.P/S: Bạn nào biết thì trả lời giúp mình với, đang cần gắp lắm...

Đọc tiếp

#Tin học lớp 8

1

UB

Ú Bé Heo (ARMY BLINK)

28 tháng 12 2020

Program So sanh;

Uses crt;

Var m, n= integer;

Begin

Clrscr;

Writeln('Hay nhap so m va n');

if m > n then writeln(m lon hon n);

if m < n then writeln(m nho hon n);

else writeln('m bang n');

readln

End.

Đúng(3)

KS

kawa slimey

19 tháng 3 2020

Chỉnh lỗi

Program GPTBN ;

var a; b, Real ;

Begin

Write( Nhap he so a,b cua phuong trinh :);Readln (a;b)
if a#0 then writeln ('Phuong trinh co nghiem duy nhat x=' -b/a:0:4);

else if b=0 then writeln (' Phuong trinh co vo so nghiem ') ;

else writeln (' phuong trinh vo nghiem ');

Readln;

End.

Giải giúp mk vs ạ mk đang cần gấp . Thank

#Tin học lớp 8

2

NM

Nguyễn Minh Lệ

19 tháng 3 2020

Program GPTBN ;

var a,b: Real ;

Begin

Write( 'Nhap he so a,b cua phuong trinh :'); Readln (a,b);
if a<>0 then writeln ('Phuong trinh co nghiem duy nhat x=' ,-b/a:0:4)

else if b=0 then writeln (' Phuong trinh co vo so nghiem ')

else writeln (' phuong trinh vo nghiem ');

Readln;

End.

Đúng(0)

PT

Phan Tiến Đạt

19 tháng 3 2020

program gptbn;

uses crt;

var a,b:real;

begin

write('Nhap he so a,b cua phuong trinh: ');readln(a,b);

if a <> 0 then writeln('Phuong trinh co nghiem duy nhat x= ',-b/a:0:4)

else if b = 0 then writeln('Phuong trinh co vo so nghiem')

else writeln('Phuong trinh vo nghiem');

readln

end.

Đúng(0)

ML

Minh Lệ

7 tháng 7 2019

ĐÁP ÁN VÒNG 1 CUỘC THI TIN HỌC Câu 1: const fi='tong.inp'; fo='tong.out'; var f:text;i,n:integer;t:real; procedure ip; begin assign(f,fi); reset(f); readln(f,n); t:=abs(sqrt(4)*1/2); for i:= 1 to n do t:=t+(i/(i+1)); close(f); end; procedure out; begin assign(f,fo); rewrite(f); write(f,t:0:3); close(f); end; BEGIN ip; out; END. Câu 2: Bài làm của bạn Lê Hoàng Thắng : var a:array[1..10000000] of longint; min,vtmin,vtmax,n,i,k,demk,max,sum:longint;...

Đọc tiếp

ĐÁP ÁN VÒNG 1 CUỘC THI TIN HỌC

Câu 1:

const fi='tong.inp';

fo='tong.out';

var

f:text;i,n:integer;t:real;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,n);

t:=abs(sqrt(4)*1/2);

for i:= 1 to n do

t:=t+(i/(i+1));

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

write(f,t:0:3);

close(f);

end;

BEGIN

ip;

out;

END.

Câu 2: Bài làm của bạn Lê Hoàng Thắng :

var a:array[1..10000000] of longint; min,vtmin,vtmax,n,i,k,demk,max,sum:longint; sm:boolean;
function nguyento(x:longint):boolean;
var demuoc,t:longint;
begin
demuoc:=0;
for t:=1 to x do if (x mod t = 0) then inc(demuoc);
if demuoc=2 then nguyento:=true else nguyento:=false;
end;
function hoanhao(y:longint):boolean;
var tong,g:longint;
begin
tong:=0;
for g:=1 to y-1 do if (y mod g=0) then tong:=tong+g;
if tong=y then hoanhao:=true else hoanhao:=false;
end;
begin
assign(input,'mang.inp'); reset(input);
assign(output,'mang.out'); rewrite(output);
readln(n); readln(k); demk:=0;
for i:=1 to n do read(a[i]);
min:=a[n];
for i:=n downto 1 do if a[i]<min then begin min:=a[i]; vtmin:=i; end;
max:=abs(a[1]);
for i:=1 to n do if abs(a[i])>max then begin max:=abs(a[i]); vtmax:=i; if a[i]<0 then sm:=true else sm:=false; end;
for i:=1 to n do if (k=a[i]) then inc(demk);
sum:=0;
for i:=1 to n do
begin
if (nguyento(a[i]) or hoanhao(a[i])) then sum:=sum+a[i];
end;
writeln(vtmin);
if sm=false then writeln(max,' ,vi tri: ',vtmax) else writeln('-',max,' ,vi tri: ',vtmax);
if (demk=0) then writeln('khong, so lan xuat hien :0') else writeln('co, so lan xuat hien :',demk);
write(sum);
close(input); close(output);
end.

Câu 3: Bài làm của bạn Lê Hoàng Thắng:

const fi='xau.inp';

fo='xau.out';

var s1,s2:string; match,i:longint; f: text;

procedure ip;

begin
assign(f,fi); reset(f);
readln(s1); read(s2);

close(f);

end;

procedure out;

begin

assign(f,fo); rewrite(f);
match:=0;
if s1=s2 then begin write('KHONG'); exit; end;
for i:=1 to length(s1) do
begin
if s1[i]=s2[i] then inc(match);
end;
if match=length(s1)-2 then write('CO') else write('KHONG');
close(f);

end;

Begin

ip;

out;
end.

Câu 4: Bài làm của bạn Đào Xuân Sơn :

const fi='STN.inp';
fo='STN.out';
var
f:text;
s:string;
n,t,i:integer;
function dx(x:string):boolean;
var
i:byte;
begin
dx:=false;
for i:= 1 to length(x) div 2 do
if x[i] <> x[length(x)-i+1] then
exit;
dx:=true;
end;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,n);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
str(n,s);
if dx(s) = true then writeln(f,'CO') else writeln(f,'KHONG');
t:=0;
for i:= 1 to n div 2 do
if n mod i = 0 then t:=t+i;
if t=n then
begin
write(f,'CO,');
t:=0;
while n<>0 do
begin
t:=t+(n mod 10);
n:=n div 10;
end;
writeln(f,' ',t);
end else
writeln(f,'KHONG');
write(f,length(s));
close(f);
end;
BEGIN
ip;
out;
END.

Bài 5: Bài làm của bạn Vinh Lê:

const fi=’tich.inp’;

fo=’tich.out’;

var f: text;

a,b: integer;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,a);

read(b);

close(f);

procedure out;

begin

assign(f,fo);

rewite(f);

t:=a;

t:=t*b;

write(f,t);

close(f);

end;

Begin

ip;

out;

end.

Đây là các bộ code sử dụng thuật toán hoàn chỉnh nhất và tối ưu.

#Tin học lớp 8

1

VL

vũ lê đức anh

25 tháng 7 2019

thiệt ko vậy

Đúng(0)

HT

Huy Tùng Vũ

23 tháng 12 2021

Một số câu lệnh trong ct sau đây viết ko đúng, em hãy sửa lại những lỗi sai

program So_sanh

usercrt;

var A,B=interger;

Begin clrscr;

writeln('Nhap so A:'); readln(A);

writeln('Nhap so B:'); readln(B);

if A <> B then writeln('A',' khac ',B) else writeln(B,'=' ,A)

readln

End.

#Tin học lớp 8

0

CL

curtis lê

30 tháng 4 2020

uses crt; var n, i:integer; begin clrscr; write('Nhap vao mot so nguyen:') readln(n); if n<=1 then writeln(n,' khong la so nguyen to,) else begin i:=2; while (n mod i<>0) do i:=i+1; if i=n then writeln(n,' la so nguyen to') else writeln(n,' khong la so nguyen to,); end; readln end. a) Nêu công dụng của từng câu lệnh trong chương trình theo thứ tự từ 1 đến 16 b) Theo em, khi nhập vào số 9 thì chương trình sẽ xuất thông báo gì? c) Theo em, khi nhập...

Đọc tiếp

#Tin học lớp 8

1

ML

Minh Lệ

1 tháng 5 2020

a)

uses crt; ----> Khai báo thư viện có tên crt

var n, i:integer; ----> Khai báo biến n và biến i thuộc kiểu dữ liệu số nguyên (integer)

begin ----> Bắt đầu chương trình chính

clrscr; ----> Xóa toàn bộ màn hình

write('Nhap vao mot so nguyen:'); ----> In ra màn hình : Nhap vao mot so nguyen

readln(n); ----> Nhập giá trị cho biến n

if n<=1 then writeln(n,' khong la so nguyen to')

----> Kiểm tra điều kiện n<=1 . Nếu đúng in ra màn hình : (biến n được nhập) khong la so nguyen to

else ----> Điều kiện n<=1 là sai thì rẽ nhánh (ngược lại)

begin ----> Khởi tạo tạo khối chương trình phụ

i:=2; ----> Gán biến i có giá trị bằng 2

while (n mod i<>0) do i:=i+1; ----> Chừng nào n mod i còn khác 0 thì tăng biến i lên 1 đơn vị

if i=n then writeln(n,' la so nguyen to') ----> Kiểm tra điều kiện, nếu i=n thì in ra màn hình : (biến n được nhập từ bàn phím) la so nguyen to

else writeln(n,' khong la so nguyen to,); ----> Ngược lại (điều kiện là sai n<>i ) thì in ra màn hình : (biến n được nhập từ bàn phím) khong la so nguyen to

end; ----> Kết thúc khối chương trình phụ

readln ----> Đọc ra màn hình

end. ----> Kết thúc chương trình chính

b) Khi nhập vào số 9 thì chương trình sẽ xuất thông báo : 9 khong la so nguyen to

c) Khi nhập vào số 131 thì chương trình sẽ xuất thông báo : 131 la so nguyen to

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

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