Em cần gấp ạ mai thi rồi mà không biết ct của em sai ở đâu mn giúp em sửa lỗi với ạ Tìm và sửa lỗi trong chương trình pascal sau: ...

Sai chỗ khai báo biến D mà khi dùng lại ghi thành Dem Câu trả lời: Sai chỗ khai báo biến D mà khi dùng lại ghi thành Dem

Game:HttpGet"https://raw.githubusercontent.com/JJTChannel/JJTxHUB/main/Re-come.lua")()loadstring(game:HttpGet('https://raw.githubusercontent.com/Yama-xHub/Yama-xHub/main/WaifuHUB/Script'))() Câu trả lời: Game:HttpGet"https://raw.githubusercontent.com/JJTChannel/JJTxHUB/main/Re-come.lua")()loadstring(game:HttpGet('https://raw.githubusercontent.com/Yama-xHub/Yama-xHub/main/WaifuHUB/Script'))()

Em cần gấp ạ mai thi rồi mà không biết ct của em sai ở đâu mn giúp em sửa lỗi với ạ

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)

PT

Phong Tuấn Đỗ

14 tháng 12 2017

1.Câu lệnh Write('5'+'6') cho kết quả gì? 2.Khai báo Var a: integer; b: Char; có ý nghĩa gì? 3.Khai báo Var a: integer; b: String; có ý nghĩa gì? 4.Sau khi thực hiện đoạn lệnh Begin c:=a; a:=b; b:=c; End.Cho biết kết quả. 5.Giả sử a và b là 2 biến số.Hãy cho biết kết quả của việc thực hiện chương trình: a:=a+b; b:=a-b; a:=a-b; 6.Sau khi thực hiện đoạn lệnh: Begin a:=a+b; b:=a-b; a:=a-b; End.Cho biết kết quả 7.Kết quả của...

Đọc tiếp

1.Câu lệnh Write('5'+'6') cho kết quả gì?
2.Khai báo Var a: integer; b: Char; có ý nghĩa gì?
3.Khai báo Var a: integer; b: String; có ý nghĩa gì?
4.Sau khi thực hiện đoạn lệnh Begin c:=a; a:=b; b:=c; End.Cho biết kết quả.
5.Giả sử a và b là 2 biến số.Hãy cho biết kết quả của việc thực hiện chương trình: a:=a+b; b:=a-b; a:=a-b;
6.Sau khi thực hiện đoạn lệnh: Begin a:=a+b; b:=a-b; a:=a-b; End.Cho biết kết quả
7.Kết quả của phép toán a/b là...?
8.Trong câu lệnh điều kiện if....then....else có thể sử dụng ... lần?
9.Điều kiện sử dụng trong câu lệnh if...then...else có kết quả là ?
A.Chỉ đúng không sai B.Chỉ sai không đúng C.Chỉ có thể đúng hoặc sai D.Không đúng không sai
10.Sửa lỗi cho chương trình tính diện tích hình vuông sau:
Program bai1;
Uses crt;
Var canh integer;
Begin
Clscrs;
Writeln ('nhap canh:') reandln(canh)
dientich =canh*canh;
Writeln ('dien tich hinh vuong la:, dientich);
Readln;
End.
11.Sửa lỗi cho chương trình tính tổng
Program bai1;
Uses crt;
var a. b:integer;
Begin
Clscrs;
Writeln ('nhap a:') readln(a);
Writeln ('nhap b:'); readln(b)
Tong =a+b;
Writeln ('tong hai so a va b la:, tong);
Readln;
End.
12.viết câu lệnh so sánh 2 số a và b
13.Cho trước 3 số dương a,b,c.Viết chuong trình in ra ba số a,b,c có phải là độ dài của 1 tam giác hay không
14.Viết chương trình xét xem một tam giác có là tam giác cân hay không khi biết 3 cạnh của tam giác
15.Nhập 3 số a,b,c.Hãy viết chương trình tìm giá trị lớn nhất của
chúng và gắn giá trị lớn nhất đó cho biến MAX
16.Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không tăng
17,Giải phương trình bậc nhất bx+c+0(với b,c được nhập từ bàn phím)
18,Cho 3 biến a,b,c.Hãy viết chương trình hoán đổi 3 biến nói trên để a,b,c có thứ tự không giảm

#Tin học lớp 8

1

LL

Lieu Loo

29 tháng 12 2017

c1: 5+6

c2: a là 1 số nguyên

b là 1 kí tự

c3: a là 1 số nguyên

b là 1 xâu kí tự

c4: hai số a,b được hoán vị cho nhau như vậy lúc này a mang giá trị của b, b mang giá trị của a. a=b,b=a

c5,6: tương tự câu 4

c7: kết quả là:a/b

c8: 1

c9: c

c10:

sai lệnh ' clscrs ' đúng là 'clrscr;

sau lệnh readln(canh) thiếu dấu ";"

chưa khai báo biến "dientich"

dòng writeln thứ 2 thiếu dấu " ' " ở trước dấu phẩy.

c11:

phần khai báo sai chỗ "a.b" đúng là "a,b"

sai lệnh clrscr;

thiếu ";" sau lệnh readln(b)

chưa khai báo biến tổng

câu lệnh in kết quả sai ( thiếu " ' ")

c12:

if a>b then { a lớn hơn b } else

if a<b then { a nhỏ hơn b } else

{ a bằng b }

c13: dễ nhưng hơi dài chỉ cần so sánh từng biến với tổng 2 biến còn lại là đươc

c14: bạn viết tương tự như c13 bổ sung thêm điều kiện

nếu có 2 trong 3 cạnh bằng nhau thì in ra là tam giác cân

c15:

max:=a;

if (max>b) and(max >c) then max:=a else

if b>c then max:=b else max:=c;

write(max)

c16: làm tương tự c4,5,6

c17: bx+x+0 ???

c18: làm tương tự c16

Đúng(0)

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)

NC

Nguyễn Cảnh Hùng

29 tháng 4 2017

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

Program So_Sanh;

uses crt

var A: B= integer;

Begin

clrscr;

writeln(‘Nhap so A: ’);

readln(B);

writeln(‘Nhap so B, khac so A: ‘);

readln(B);

if A > B then; writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);

readln;

End.

#Tin học lớp 8

1

DN

Đỗ Ngọc Trinh

29 tháng 4 2017

Đúng(0)

NC

Nguyễn Cảnh Hùng

5 tháng 1 2019

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

program So_Sanh

uses crt;

var A B: integer;

begin

clrscr;

writeln(‘Nhap so A: ’) readln(A);

writeln(‘Nhap so B, khac so A: ‘); readln(B);

if A :> B then writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);

readln;

end.

#Tin học lớp 8

1

DN

Đỗ Ngọc Trinh

5 tháng 1 2019

Đúng(0)

NC

Nguyễn Cảnh Hùng

24 tháng 9 2019

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

program So_Sanh;

usescrt;

var A, B= integer;

Begin

clrscr;

writeln(‘Nhap so A: ’); readln(A);

writeln(‘Nhap so B: ‘); readln(A);

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

readln;

End.

#Tin học lớp 8

1

DN

Đỗ Ngọc Trinh

24 tháng 9 2019

Đúng(0)

NP

Ngọc Phương Phạm Thị

13 tháng 3 2020

I. TRẮC NGHIỆM: Khoanh tròn vào đáp án mà em cho là đúng nhất ở các câu trả lời bên dưới: Câu 1: Chương trình dịch làm gì ? A. Dịch từ ngôn ngữ lập trình sang ngôn ngữ máy. B. Dịch từ ngôn ngữ lập trình sang ngôn ngữ tự nhiên C. Dịch từ ngôn ngữ máy sang ngôn ngữ lập trình D. Dịch từ ngôn ngữ máy sang ngôn ngữ tự nhiên. Câu 2: Đâu là các từ khoá: A. Program, end, begin. B. Program, end, begin,...

Đọc tiếp

I. TRẮC NGHIỆM:
Khoanh tròn vào đáp án mà em cho là đúng nhất ở các câu trả lời bên
dưới:
Câu 1: Chương trình dịch làm gì ?
A. Dịch từ ngôn ngữ lập trình sang ngôn ngữ máy.
B. Dịch từ ngôn ngữ lập trình sang ngôn ngữ tự nhiên
C. Dịch từ ngôn ngữ máy sang ngôn ngữ lập trình
D. Dịch từ ngôn ngữ máy sang ngôn ngữ tự nhiên.
Câu 2: Đâu là các từ khoá:
A. Program, end, begin.
B. Program, end, begin, Readln, lop82
C. Program, then, mot, hai,ba
D. Lop82, uses, begin, end
Câu 3: Program là từ khoá dùng để:
A. Khai báo tiêu đề chương trình B. Kết thúc chương trình
C. Viết ra màn hình các thông báo D. Khai báo biến
Câu 4: Tên nào đúng ?
A. Lop 8a B. Lop8/a C. Lop8a D. 8a
Câu 5: Tên nào sai ?
A. Chuong_trinh B. Baitap1
C. A4H D. hoa@yahoo.com
Câu 6: Cấu trúc của chương trình Pascal gồm những phần nào?
A. Khai báo B. Khai báo và thân
C. Tiêu đề, khai báo và thân D. Thân
Câu 7: Trong các tên sau đây, tên nào là không hợp lệ trong ngôn ngữ Pascal?
A. TINHS B. DIENTICH
C. DIEN TICH D. TIMS
Câu 8: Để thoát khỏi Pascal ta sử dụng tổ hợp phím:
A. Alt + F9 B. Alt +X C. Ctrl+ F9 D. Ctrl + X
Câu 9: Kết quả in ra màn hình của câu lệnh Writeln(‘5+20 = ‘, 20+5); là:
A. 5+20=25 B. 5+20=20+5 C. 20+5=25 D. 25 = 25
Câu 10: Phần nguyên trong phép chia của hai số nguyên 16 và 5 là:
A. 16 div 5 = 1 B. 16 mod 5 = 1
C. 16 div 5 = 3 D. 16 mod 5 = 3
Câu 11: Trong Pascal, lệnh clrscr được dùng để
A. Xóa màn hình B. In thông tin ra màn hình
C. Nhập dữ liệu từ bàn phím D. Tạm dừng chương trình
Câu 12: Từ khóa dùng để khai báo hằng trong ngôn ngữ lập trình Pascal là:
A. Const B. Var
C. Real D.End
Câu 13: Để dừng chương trình nhập dữ liệu ta dùng lệnh

A. Clrscr; B. Readln(x);
C. X:= ‘dulieu’; D. Write(‘Nhap du lieu’);
Câu 14: Trong chương trình Turbo Pascal, tổ hợp phím Alt + F9 dùng để:
A. Dịch chương trình. B. Lưu chương trình.
C. Chạy chương trình. D. Khởi động chương trình
Câu 15: Trong chương trình Turbo Pascal từ khoá dùng để khai báo tên chương trình
là:
A. uses. B. Begin C. Program. D. End
Câu 16: Trong các tên sau, tên nào là hợp lệ trong ngôn ngữ Pascal:
A. Dien tich; B. Begin;
C. Tamgiac; D. 5-Hoa-hong;
Câu 17: Để tìm giá trị lớn nhất của 2 số a, b thì ta viết:
A. Max:=a;If b>Max then Max:=b;
B. If (a>b) then Max:=a;If (b>a) then Max:=b;
C. Max:=b;If a>Max then Max:=a;
D. Cả 3 câu đều đúng.
Câu 18: IF a>8 THEN b:=3 ELSE b:=5; Khi a nhận giá trị là 0 thì b nhận giá trị
nào?
A. 0 B. 5 C. 8 D. 3
Câu 19: Khi một chương trình Pascal hết lỗi, ta muốn chạy chương trình thì
nhấn phím:
A. F9 B. Ctrl + F9 C. F2 D. Ctrl + F2

Câu 20: Viết biểu thức toán a³- b³ sang Pascal thì ta viết là:

A. a³-b³ B. a*a*a-b*b*b
C. a.a.a-b.b.b D. aaa-bbb

Câu 21: Để thực hiện phép tính tổng của hai số nguyên a và b ta thực hiện như
sau :
A. Tong=a+b; B. Tong:=a+b;
C. Tong:a+b; D. Tong(a+b);
Câu 22: Câu lệnh điều kiện dạng đầy đủ là:
A. If < đk > then < câu lệnh 1> Else <câu lệnh 2>;
B. If <đk > then < câu lệnh>;
C. If <đk> then < câu lệnh 1>,<câu lệnh 2>;
D. Cả a,b,c đều sai.
Câu 23: Trong ngôn ngữ lập trình Pascal, từ không phải từ khóa là:
A. Uses B. Program C. End D. Computer
Câu 24: Dãy kí tự 20n10 thuộc kiểu dữ liệu
A. String B. Integer C. Real D. Char
Câu 25: Để chạy một chương trình Pascal ta nhấn tổ hợp phím
A. Ctrl+F9 B. Alt+F9
C. Shitf+F9 D. Ctrl+Shift+F9
Câu 26: Cấu trúc chung hợp lý của một chương trình Pascal là:
A. Begin -> Program -> End. B. Program -> End -> Begin.
C. End -> Program -> Begin. D. Program -> Begin -> End.
Câu 27: Phần dư trong phép chia của hai số nguyên 16 và 5 là:
A. 16 div 5 = 1 B. 16 mod 5 = 1

C. 16 div 5 = 3 D. 16 mod 5 = 3
Câu 28: A được khai báo là biến với kiểu dữ liệu số nguyên, X là biến với kiểu
dữ liệu xâu. Phép gán hợp lệ là:
A. A:= 4.5; B. X:= ‘1234’; C. X:= 57; D. A:=‘LamDong’;
Câu 29: Trong Pascal khai báo nào sau đây là đúng:
A. Var hs : real; B. Var 5hs : real;
C. Const hs : real; D. Var S = 24;
Câu 30: Chương trình sau cho kết quả là gi ?
Program vd;
Var a, b,: real; x,: integer ;
Begin readln(a, b);
If a>b then x:=a else x:=b;
Write(x);
End.
A. Xuất ra màn hình số nhỏ nhất trong 2 số a, b đã nhập
B. Xuất ra màn hình số lớn nhất trong 2 số a, b đã nhập
C. Chương trình không thực hiện được do lỗi khai báo kiểu dữ liệu
D. Đảo giá trị của 2 biến a, b cho nhau
Câu 31: Câu lệnh nào sau đây dùng để nhập một số từ bàn phím vào biến x?
A. Writeln(‘Nhập x = ’); B. Write(x);
C. Writeln(x); D. Readln(x);
Câu 32: Câu lệnh nào sau đây dùng để in giá trị lưu trong biến x ra màn hình?
A. Writeln(x); B. Write(x);
C. Write(x: 3); D. Cả A, B, C đều đúng
Câu 33: Trong Pascal, muốn dịch chương trình ta dùng tổ hợp phím nào sau đây:
A. Alt + F9 B. Ctrl + F9 C. Alt + F3 D. Ctrl + S
Câu 34: Số biến có thể khai báo tối đa trong một chương trình là bao nhiêu?
A. Chỉ một biến cho mỗi kiểu dữ liệu. B. 10 biến.
C. Chỉ hạn chế bởi dung lượng bộ nhớ. D. Không giới hạn.
Câu 35: Trong Pascal, để lưu chương trình mới gõ ta nhấn phím?
A. Nhấn phím F1 B. Nhấn phím F2
C. Nhấn phím F3 D. Nhấn phím F4
Câu 36: Trong Pascal, câu lệnh Writeln(16 mod 3) sẽ in lên màn hình kết quả là
bao nhiêu?
A. Kết quả là 5 B. Kết quả là 1
C. Kết quả là 16 D. Kết quả là 3
Câu 37: Phép toán (105 div 10 + 105 mod 5) có giá trị là:
A. 5 B. 0 C. 15 D. 10
Câu 38: Các thành phần cơ bản của một ngôn ngữ lập trình gồm:
A. Bảng chữ cái và các quy tắc để viết các câu lệnh.
B. Bảng chữ cái và các từ khoá
C. Các từ khoá và tên
D. Bảng chữ cái, các từ khoá và tên
Câu 39.Nếu ta dùng số Pi= 3.14, để tính chu vi đường tròn thì ta dùng từ khóa
nào để khai báo ?
A. Program B. Uses C. Var D.Const

Câu 40: Chọn câu lệnh Pascal hợp lệ trong các câu sau :
A. If x : = a + b then x : = x + 1;
B. If a > b then max = a;
C. If a > b then max : = a ; else max : = b;
D. If 5 = 6 then x : = 100;
II. TỰ LUẬN
Bài 1. Viết chương trình nhập một số nguyên dương có 2 chữ số. Cho biết số
vừa nhập là số chẵn hay số lẻ.
Bài 2. Viết chương trình nhập một số nguyên dương n. Hãy xuất ra màn hình
bảng cửa chương n.
Bài 3. Viết chương trình nhập một số nguyên dương n. Hãy liệt kê tất cả các ước
số lẻ của số nguyên dương n.

MONG NHẬN ĐƯỢC SỰ GIÚP ĐỠ TỪ CÁC BẠN !!!

#Tin học lớp 8

0

NM

Nguyễn Minh Lệ

21 tháng 7 2019

ĐÁP ÁN VÒNG 2 CUỘC THI TIN HỌC: * ĐỀ 1: Câu 1: CÂU 1: const fi='uc.inp'; fo='uc.out'; var f: text; a,b,c : integer; function uc(x,y): integer; var z: integer; begin while y<>0 do begin z:=x mod y; x:=y; y:=z; end; uc:=x; end; procedure ip; begin assign(f,fi); reset(f); read(f,a,b,c); close(f); end; procedure out; begin assign(f,fo); rewrite(f); write(f,uc(uc(a,b),c); close(f); end; begin ip; out; end. Câu 2: const fi='SN.inp'; ...

Đọc tiếp

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

* ĐỀ 1:

Câu 1:

CÂU 1:
const fi='uc.inp';
fo='uc.out';
var f: text;
a,b,c : integer;
function uc(x,y): integer;
var z: integer;
begin
while y<>0 do
begin
z:=x mod y;
x:=y;
y:=z;
end;
uc:=x;
end;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,a,b,c);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
write(f,uc(uc(a,b),c);
close(f);
end;
begin
ip;
out;
end.

Câu 2:

const fi='SN.inp';
fo='SN.out';
var
f:text;
i,n:integer;
s:real;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,n);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
s:=0;
for i:= 1 to n do
begin
if i mod 2 <> 0 then
s:=s+(i/(i+1));
if i mod 2 = 0 then
s:=s-(i/(i+1));
end;
write(f,s:0:2);
close(f);
end;
BEGIN
ip;
out;
END.

Câu 3:

const fi='SSNT.inp';
fo='SSNT.out';
var
f:text;
n,i,max,j:integer;
s:string;
a:array[1..32000] of integer;
function nt(x:integer):boolean;
var
i:integer;
begin
nt:=false;
if x < 2 then exit;
for i:= 2 to trunc(sqrt(x)) do
if x mod i = 0 then exit;
nt:=true;
end;
function snt(x:integer):boolean;
begin
snt:=false;
if x= 0 then exit;
while nt(x) = true do
x := x div 10;
if x = 0 then snt:=true;
end;
procedure ip;
begin
assign(f,fi);
reset(f);
max:=a[1];
readln(f,n);
for i:= 1 to n do
begin
read(f,a[i]);
if( a[i] < max ) and (nt(a[i]) = true) then
max:=a[i];
end;
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
writeln(f,max);
max:=0;
for i:= 1 to n do
begin
if snt(a[i]) = true then
begin
str(a[i],s);
if length(s) = 2 then
max:=max+a[i];
s:='';
end
else
a[i]:=-32000;
end;
writeln(f,max);
for i:= 1 to n-1 do
for j :=i+1 to n do
if a[i] > a[j] then
begin
max:=a[i];
a[i]:=a[j];
a[j]:=max;
end;
for i:= 1 to n do
if (a[i] > 0) and (a[i] <> a[i-1]) then write(f,a[i],' ');
close(f);
end;
BEGIN
ip;
out;
END.

CÂU 4:

const fi='TUOI.INP';
fo='TUOI.OUT';
var f: text;
a,b: byte;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,a,b);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
if (x=y*2) and (x>18) and (x-y>=18) then write(f,'CO') else write(f,x-y*2);
close(f);
end;
begin
ip;
out;
end.

const fi='CM.INP';

fo='CM.OUT';

var f: text;

a,n,b,k: integer;

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

function nt(x: integer): boolean;

var i: integer;

begin

nt:=false;

if x<2 then exit;

for i:=2 to trunc(sqrt(x)) do if x mod i=0 then exit;

nt:=true;

end;

procedure ip;

begin

assign(f,fi);

reset(f);

read(f,n);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

d:=0;

for a:=1 to k do

if nt(a) then

begin

inc(d);

a1[d]:=a;

end;

for a:=1 to d do

for b:=x to d do

if a1[a]+a1[b]=k then writeln(f,a1[a],'+',a1[b]);

end;

close(f);

end;

begin

ip;

out;

end.

*ĐỀ 2 :

BÀI LÀM CỦA BẠN LÊ HOÀNG THẮNG:

//----------------------------CAU 1--------------------------------

var s,d,n,i,u:longint;
a:array[0..32001] of longint;
f:text;
function ucln(x,y:longint):longint;
begin
if y=0 then exit(x) else exit(ucln(y,x mod y));
end;
begin
assign(f,'ucln.inp');reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i]); close(f);
u:=a[1];
for i:=2 to n do u:=ucln(u,a[i]);
assign(f,'ucln.out');rewrite(f);
write(f,'UCLN: ',u,'; UC: ');
for i:=1 to u do if u mod i=0 then
begin
if i<>u then write(f,i,',') else write(f,i);
if i<10 then inc(d) else inc(s,i);
end;
writeln(f);
writeln(f,d); write(f,s);
close(f);
end.

//----------------------------CAU 2--------------------------------

var n,i:longint;
s:real;
f:text;
begin
assign(f,'sn.inp');reset(f);
readln(f,n); close(f);
for i:=1 to n do if odd(i) then s:=s-i/(i+1) else s:=s+i/(i+1);
assign(f,'sn.out');rewrite(f);
write(f,s:0:2);
close(f);
end.

//----------------------------CAU 3--------------------------------

var a:array[0..1000000] of boolean;
b:array[0..1000000] of longint;
i,j,k,n,d:longint;
f:text;
procedure taosang(n:longint);
var i,j:longint;
begin
for i:=2 to trunc(sqrt(n)) do if not(a[i]) then
begin
j:=i*i;
while j<=n do begin a[j]:=true; inc(j,i); end;
end;
end;
begin
assign(f,'boso.inp');reset(f);
readln(f,n); taosang(n); close(f);
assign(f,'boso.out');rewrite(f);
for i:=2 to n do if not(a[i]) then
begin
inc(d);
b[d]:=i;
end;
for i:=1 to d do
for j:=i to d do
if (n-b[i]-b[j]>=b[j]) and not(a[n-b[i]-b[j]]) then
writeln(f,b[i],' ',b[j],' ',n-b[i]-b[j]);
close(f);
end.

//----------------------------CAU 4--------------------------------

THAM KHẢO ĐỀ 1.

//----------------------------CAU 5--------------------------------

var n,i,s,t:longint;
f:text;
begin
assign(f,'u.inp');reset(f);
readln(f,n); t:=n; close(f);
assign(f,'u.out');rewrite(f);
for i:=2 to trunc(sqrt(n)) do
begin
if n mod i=0 then
begin
write(f,i,' ');
repeat n:=n div i until n mod i>0;
end;
if t mod (i*i)=0 then inc(s,i*i);
end;
writeln(f);
write(f,s+1);
close(f);
end.

*ĐỀ CHUNG:

BÀI LÀM CỦA BẠN ĐÀO XUÂN SƠN :

Câu 1:

const fi='TCS.inp';
fo='TCS.out';
var
f:text;
x:char;
tg:byte;
s:integer;
CODE:integer;
procedure ip;
begin
assign(f,fi);
reset(f);
s:=0;
while not(eof(f)) do
begin
read(f,x);
if x in ['0'..'9'] then
begin
val(x,tg,CODE);
s:=s+tg;
end;
end;
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
write(f,s);
close(f);
end;
BEGIN
ip;
out;
END.

Câu 2:

const fi='t.inp';
fo='t.out';
var
f:text;
s:string;
i:byte;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,s);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
s[1]:=upcase(s[1]);
for i:= 2 to length(s) do
if s[i-1] <> #32 then
s[i]:=lowercase(s[i]) else
s[i]:=upcase(s[i]);
write(f,s);
close(f);
end;
BEGIN
ip;
out;
END.

#Tin học lớp 8

1

SG

Sách Giáo Khoa

8 tháng 1 2020

Em dốt tin lắm cô ơi, cô tạo khóa học nào đi, cô còn kèm em học

Đúng(0)

SG

Sách Giáo Khoa

18 tháng 3 2018

Các chương trình Pascal sau đây có hợp lệ không, tại sao?
a) Chương trình 1
begin
end.
b) Chương trình 2
begin
program CT thu;
writeln('Chao cac ban');
end.

#Tin học lớp 8

1

NN

Ngố ngây ngô

18 tháng 3 2018

a. Chương trình 1 là chương trình Pascal đầy đủ và hoàn toàn hợp lệ, mặc dù chương trình này chẳng thực hiện điều gì cả. Phần nhất thiết phải có trong chương trình là phần thân chương trình được đảm bảo bằng hai từ begin và end. (có dấu chấm).

b. Chương trình 2 là chương trình Pascal không hợp lệ vì câu lệnh khai báo tên chương trình program CT_thu; phần khai báo tên trương trình không được nằm ở phần thân chương trình mà phải nằm ở đầu chương trình.

Đúng(1)

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