giup minh giai cau nay :Phan viet chuong trinh de nhap tu ban phim 1 cau van X sau do tinh va in ra man hinh so ki tu so tu va so dau cach đếm được tron câu văn đó. Khai báo các biến trong chương trình
Bài 4. Sử dụng biến trong chương trình
uses crt;
var X:string;
demtu,demdc,i:word;
begin
clrscr;
write('nhap cau van X:');readln(X);
writeln('so ki tu la:',length(X));
demtu:=1;
for i:=1 to length(X)-1 do
if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;
writeln('so tu la:',demtu);
demdc:=0;
for i:=1 to length(X) do
if X[i]=' ' then demdc:=demdc+1;
writeln('so dau cach la:',demdc);
readln;
end.
Đúng 0
Bình luận (0)
bài này mới đúng nè bạn:
uses crt;
var X:string;
demtu,demdc,i:word;
begin
clrscr;
write('nhap cau van X:');readln(X);
writeln('so ki tu la:',length(X));
X:=X+' ';
demtu:=0;
for i:=1 to length(X)-1 do
if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;
writeln('so tu la:',demtu);
delete(X,length(X),1);
demdc:=0;
for i:=1 to length(X) do
if X[i]=' ' then demdc:=demdc+1;
writeln('so dau cach la:',demdc);
readln;
end.
Đúng 0
Bình luận (0)
Nhập x,y số thực từ bàn phím và tìm tổng
program tinhtong;
uses crt;
var x,y: real;
begin
clrscr;
write('nhap so x va y :'); readln(x,y);
writeln('tong =' ,x*y);
readln
end.
Đúng 0
Bình luận (0)
Bài 1:Em hãy viết dòng khai báo phù hợp cho các biến sau đây
a)biến a biểu diễn số học sinh trong lớp
b)biến b để chứa giá trị của một phân số
c)biến c ghi lại số trang của cuốn từ điển
d)Biến d chứa chữ cái đầu tiên của tên học sinh.
giúp mk, hứa tích.
a) var a: array[1..100] of byte;
b) var b: real;
c) var c: array[1..10000] of integer;
d) var d: string;
Đúng 0
Bình luận (0)
Trong phép gán k:=k+1; biến đếm k thay đổi như thế nào?
A. Tăng 1 đơn vị B. Giảm 1 đơn vị
C. Tăng dần đều 1 đơn vị D. Tăng 1 giá trị bất kì
So sánh hằng và biến
Xem chi tiết
Giống nhau: đều lưu trữ dữ liệu
Khác nhau: giá trị của biến có thể thay đổi khi thực hiện chương trình. Còn giá trị của hằng thì không.
Đúng 0
Bình luận (0)
Giống nhau:
+Biến và hằng điều là đại lượng lưu trữ dữ liệu.
+Hai đại lượng này phải khai báo mới sử dụng được.
Khác nhau:
- Hằng: Giá trị của hằng không thể thay đổi trong quá trình thực hiện chương trình.
- Cách khai báo biến:
Var<tên biến>:<kiểu dữ liệu>;
VD: Var a,b:integer;
C:string;
-Biến: giá trị của biến có thể thay đổi trong quá trình thực hiện chương trình.
_ Cách khai báo hằng:
const <tên hằng>=<giá trị của hằng>;
VD: Const pi=3.14;
Đúng 0
Bình luận (0)
Cho chương trình sau :( Tính chu vi và diện tích tam giác biết 3 cạnh a,b,c với chiều cao h ứng với cạnh a nhập từ bàn phím )Uses crt;Var a,b,c,h,chuvi,dientich : integer;Beginclrscr;Writeln(Nhap canh a ); Readln(a);Writeln(Nhap canh b ); Readln(b);Writeln(Nhap canh c ); Readln(c);chuvi : a+b+c;dientich : a*h/2Writeln(Chu vi hinh tam giac la , chuvi);Write(Dien tich hinh tam giac la , dientich);Readln;End.Giải thích lý do vì sao chương trình không chạy được.
Đọc tiếp
Cho chương trình sau :
( Tính chu vi và diện tích tam giác biết 3 cạnh a,b,c với chiều cao h ứng với cạnh a nhập từ bàn phím )
Uses crt;
Var a,b,c,h,chuvi,dientich : integer;
Begin
clrscr;
Writeln('Nhap canh a= '); Readln(a);
Writeln('Nhap canh b= '); Readln(b);
Writeln('Nhap canh c= '); Readln(c);
chuvi := a+b+c;
dientich := a*h/2
Writeln('Chu vi hinh tam giac la = ', chuvi);
Write('Dien tich hinh tam giac la = ', dientich);
Readln;
End.
Giải thích lý do vì sao chương trình không chạy được.
var a,b,c,P,S:real;
begin
write('nhap a: ');readln(a);
write('nhap b: ');readln(b);
write('nhap c: ');readln(c);
P:=a+b+c;
S:=a*a/2;
writeln('chu vi: ',P);
write('dien tich: ',S);
readln
end.
Vì là số đo cạnh tam giác nên bạn nên khai báo bằng kiểu dữ liệu real (số thực) thay vì integer (số nguyên).Phần giá trị biến S, vì a ứng với h nên \(\frac{ah}{2}=\frac{aa}{2}\)Xét tổng quan về nội dung cả hai chương trình này đều chưa đủ. Vì a=h => tam giác cần tìm diện tích và chu vi là tam giác vuông => phải thỏa mãn aa = bb + cc hoặc bb=aa+cc hoặc cc=aa+bb (định lí pitago)Nhưng trước hết, phải thỏa mãn bất đẳng thức tam giác: (dài lắm........ko viết đâu). Nếu bạn chưa học câu lệnh điều kiện thì chắc là 2 chương trình này đã đủ nội dung.
Đúng 0
Bình luận (1)
Xem thêm câu trả lời
Chỉ ra lỗi sai trong phần khai báo sau .Gạch chân chỗ sai và giải thích
var a,b,x,y : integer
var j,a : real
pi = 3,14
(Helppppppppppp meeeeeeeeeeeeeeee pls mai thi rồi)
không có dấu chấm phẩy sau mỗi câu lệnh
chỗ pi = 3,14 phải sửa thành const pi = 3,14;
CHÚC BẠN THI TỐT^^
Đúng 0
Bình luận (2)
tìm hiểu đoạn chương trình sau đây. Khồng cần viết chương trình,hãy cho biết lệnh writeln in ra màn hình giá trị của i,j,k là bao nhiêu?
i:=1;j:=2;k:=3;
while i<=6 do
begin i:=i+1; j:=j+1; k:=k+j; end;
space:=' '
write(I,space,j,space,k);
lần thứ nhất i=1+1=2, j=2+1=3; k=3+3=6
lần thứ hai \(i=2+1=3;j=3+1=4;k=6+4=10\)
Lần thứ ba \(i=3+1=4;j=4+1=5;k=10+5=15\)
Lần thứ tư \(i=4+1=5;j=5+1=6;k=15+6=21\)
Lần thứ năm \(i=5+1=6;j=6+1=7;k=21+7=28\)
vì qua lần thứ năm này giá trị của i vẫn thỏa mãn (đúng) với điều kiện nên câu lệnh tiếp tục thực hiện:
\(i=6+1=7;j=7+1=8;k=28+8=36\)
Qua lần lặp này giá trị của i>6 nên không thỏa mãn điều kiện, câu lệnh kết thúc.
Giá trị của i, j, k được in ra màn hình lần lượt bằng 7, 8, 36
Đúng 1
Bình luận (0)
viết chương trình để tính kết quả c của phép chia lấy phần nguyên và d của phép chia lấy phần dư của 2 số nguyên a,b
Viết chương trình tính tổng dãy số nguyên trong mảng một chiều. Với độ dài của mảng được nhập từ bàn phím tối đa là 20 phần tử? jup mình đi