À thôi em nghĩ ra rồi =))) Mọi người trả lời thoải mái
Câu này mình đang cần trả lời nè ạ, bạn biết rồi thì vui lòng chỉ giúp mình với !!
đoạn chương trình sau có mấy chỗ sai
Const c:= 3;
Var a, b:= integer;
Begin
Readln(a)
…….b= a/c;
…….Writeln(b);
Readln;
End
giúp em với
Tìm lỗi sai và sửa lại cho đúng trong các chương trình sau:
a) Begin
Program vd
Uses crt;
Clrscr;
Writeln('Chao cac ban!')
End.
Readln
b) Var a,b :=integer;
Const c:=3;
Begin
a:=200
b:=a/c;
Writeln(b)
Readln
End.
Mn người ơi giúp mình giải các bài này nha mai mik thi tin rồi
Câu 1:Chương trình sau đây có hợp lệ không?Nếu không hãy chỉnh sửa lại cho hoàn chỉnh
Program tingtong;
Begin
Writeln('nhap sp nguyen duong a:'); Readln(a)
Writeln('nhap sp nguyen duong b:'); readln(b)
S:=a+b
Writeln('tong hai so nguyen duong a va b la:',S:2:2)
Readln
Var a,b: integer;
S:real
End.
Câu 2: viết chương trình tính chu vi và diện tích hình tròn,biết bán kính đc nhập từ bàn phím.
Câu 3:chương trình sau đây có hợp lệ không?nếu không hãy chỉnh sửa lại cho hoàn chỉnh
Program tinhhieu;
Begin
Writeln('nhap sp nguyen duong a:'); readln(a);
Writeln('nhap sp nguyen duong b:');
readln(b);
S:=a-b
Writeln('hieu hai so nguyen duong a va b la:',S:2:2)
Readln
Var a,b: integer;
S: real;
End.
Câu 4: viết chương trình tính diện tích hình thang, biết rằng chiều cao bằng 5, đáy lớn và đáy bé đc nhập từ bàn phím
Câu 5:viết chương trình cho biết chữ số hàng trăm ,hàng chục ,hàng đơn vị của một số có ba chữ số.Ví dụ khi nhập số 357 thì máy in ra:
-chữ số hàng trăm:3
-chữ số hàng chục:5
-chữ số hàng đơn vị:7
Câu 6: viết chương trình giải phóng phương trình ax+b=0(các hệ số a,b đc nhập từ bàn phím)
Câu 7:viết chương trình nhập vào ba số thực dương và thông báo ra màn hình kết quả là ba số đó có phải là ba cạnh của tam giác không?
Cảm ơn trước luôn nha
GIẢI GIÚP MK...MẤY CÂU CŨNG ĐC!HẾT CÀNG TỐT:)...trc sáng mai:)
CÂU 1:Hãy chỉ ra INPUT và OUTPUT của các bài toán sau:
a)Tính diện tích của HTG vs độ dài 1 cạnh và chiều cao tương ứng vs a,h là các số tự nhiên đc nhập từ bàn phím.
b)Nhập vào năm sinh xuất ra thông báo tuổi tương ứng.
CÂU 2:Hãy liệt kê các lỗi có trong chương trình dưới đây và sửa lại cho đúng:
Var a,b :=integer;
Const c:=3;
Begin
a:=200
b:=a/c;
write(b);
readln
end
CÂU 3:Dưới đây là chương trình nhập vào 1 số thực kiêm rtra số đó là số chẵn hay số lẽ.Hãy sắp xếp các câu lện sau thành 1 chương trình hoàn chỉnh.
Begin
If (a mod 2<>0) then writeln('a la so le')
Readln
Else writeln('a la so chan');
Writeln('Nhap vao 1 so thuc');
End.
Var a :=real;
Readln(a);
CÂU 4: Viết chương trình tính diện tích và chu vi của HCN với độ dài các cạnh đc nhập từ bàn phím.
CÂU 5:Viết chương trình giải PT bậc nhất ax+b=0 .Biết a,b đc nhập từ bàn phím.
CÂU 6:Hãy mô tả thuật toán và viết chương trình tìm số lớn nhất trong 3 số nguyên a,b,c.
CÂU 7:Viết chương trình nhập vào 3 số thực a,b,c.Kiểm tra a,b,c có là độ dài 3 cạnh của 1 tam giác hay ko?Nếu là 3 cạnh của tam giác thì in ra màn hình thông báo :tam giác thường, tam giác cân, tam giác đều, tam giác vuông.
Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng vào cột bên cạnh: Program Tong__nghich__dao; Var n, i: real S: Integer; Begin Write (‘Nhap n= ’); readln(n); S:=0; For i:=1 to n do S=S+1/i; Write(‘Tong can tim la: ’, ‘S:6:2’); Readln End.
Chỉ ra lỗi sai và sửa lỗi chương trình, nếu có :
Uses crt;
Var a,b:=byte
Const c:3;
Begin
b:=c;
a:=b/3;
write(a);
readln
end.
Viết chương trình tính tích (P) của n số tự nhiên (>0) đầu tiên liên tiếp chia hết cho 3. Với n nhập từ bàn phím.
program nothing_in_here2;
uses crt;
var P,n,x: integer;
begin
clrscr;
readln(n);
P := 1;
for x:=2 to n do
if x mod 3 = 0 then do P:= P*x;
writeln(P);
readln;
end.
Code lỗi ở đâu vậy ạ?
Cho chương trình fascal như sau. Tìm các câu lệnh sai và sửa lại bằng câu lệnh đúng bên cạnh các câu sai (nếu có) Program bai tap 1;
Uses CRT
Var a;=integen;
b;=real;
Constc;=3;
Begin
a:=200;
b:=a/c;
Readln;
End
