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)
So sánh biến và hằng(Nêu cả giống và khác).
Giá trị của biến có thể được thay đổi.
Giá trị của hằng không thể thay đổi trong suốt chương trình.
Đúng 0
Bình luận (0)
khác nhau ở công thức nhập vào nhá và định nghĩa về nó nữa
Đúng 0
Bình luận (0)
Gía trị của biến có thể thay đổi
Gía trị của hằng không hề thay đổi trong suốt chương trình.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
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
Đề bài :
Viết chương trình tính tiền công lao động như sau :
- Đơn giá mỗi giờ là 15000 đồng . Nếu làm ngoài giờ hoặc ngày nghỉ được tính gấp đôi .
- Dữ liệu nhập vào : Số giờ bình thường , số giờ làm ngoài giờ .
Program tinh_tien_cong ;
Const don_gia = 15000 ;
Var so_gio , so_ngoai_gio , tien_cong : real ;
Begin
Write(' Hay nhap so gio lam ngay thuong : ' ) ;
Readln ( so_gio );
Writeln ( ' Hay nhap so gio lam ngoai gio : ') ;
Readln ( so_ngoai_gio );
tien_cong:= so_gio * don_gia + so_ngoai_gio *don_gia *2 ;
writeln ( ' so tien cong : ' , tien_cong : 9:3 , ' VND ' ) ;
Readln
End .
Đúng 0
Bình luận (2)
viet chuong trinh nhap so n va xuat ra so vua nhap(n la so nguyen)
Uses crt;
var n:integer;
Begin
clrscr;
Writeln('Nhap so n= '); Readln(n);
Write('So vua nhap la ',n);
Readln
End.
Đúng 0
Bình luận (0)
bài 1 : Viết chương trình tính diện tích, chu vi hình chữ nhật biết độ dài các cạnh của hình chữ nhật là các số dương được nhập từ bàn phím.In ra màn hình điện tích của chu vi của nóBài 2: Viết chương trình tính diện tích và chu vi của hình tròn biết bán kính của hình tròn là số dương được nhập từ bàn phím.( Help meeeeeeeee!!!!!!!!!!!!!! lưu ý, giải câu nào cx đc ạ, 2 câu thì mik càng cảm ơn ^^)
Đọc tiếp
bài 1 : Viết chương trình tính diện tích, chu vi hình chữ nhật biết độ dài các cạnh của hình chữ nhật là các số dương được nhập từ bàn phím.In ra màn hình điện tích của chu vi của nó
Bài 2: Viết chương trình tính diện tích và chu vi của hình tròn biết bán kính của hình tròn là số dương được nhập từ bàn phím.
( Help meeeeeeeee!!!!!!!!!!!!!! lưu ý, giải câu nào cx đc ạ, 2 câu thì mik càng cảm ơn ^^)
CÂU 1:
program hinhchunhat;
var a,b,S,C: real;
begin
Write('Nhapdodaicanhthuchata=');readln(a);
Write('Nhapdodaicanhthuhaib=');readln(b);
S:= a*b;
C:=(a+b)*2;
Writeln('Dientichhinhchunhatla:',S);
Writeln('Chuvihinhchunhatla:',C);
readln
end.
CHÚC BẠN HỌC TỐT!
Đúng 1
Bình luận (2)
CÂU 2:(lưu ý: câu này thì mik viết chương trình với bán kính hình tròn là sớ thực được nhập từ bàn phím còn số dương thì bn tự tìm hiểu nhe. nếu tìm hiểu đc thì bn chỉ cần thay phần khai báo var thôi nhe.)
program hinhtron;
var r:real;
const pi=3.14;
begin
clrscr;
Write('Nhapbankinh:');readln(r);
Writeln('Chuvihinhtronla:',2*pi*r);
Writeln('Dientichhinhtronla:',pi*r*r);
readln
end.
CHÚC BẠN HỌC TỐT (x2)
Đúng 0
Bình luận (2)
B1:Biết chiều dài và chiều rộng của hình chữ nhật.
B2:Lấy chiều dài nhân rộng.
B3:Viết đáp số.
B4:Viết chương trình và kết thúc thuật toán.
Đúng 0
Bình luận (0)
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)
Viết chương trình in ra màn hình " Thời khóa biểu" thứ 2 và thứ 3 của em
(Helppppppp Meeeeeeeeeeee pls)
program TKB;
uses crt;
var T2, T3:string;
begin
clrscr;
write('Thu 2 co mon: '); readln(T2);
write('Thu 3 co mon: '); readln(T3);
readln;
end.
Mình ko chắc là đúng đâu nha! Bạn lên google tìm thử đi!
Đúng 0
Bình luận (1)
Khai báo biến hằng thuộc các kiểu dữ liệu khác nhau
var a:integer;
const b=29.96;
Đúng 0
Bình luận (0)
Câu lệnh điều kiện dạng thiếu , đủ lấy vd nêu rõ điều kiện câu lệnh câu lệnh 1 ,câu lệnh 2
Help please!!!
Câu lệnh điều kiện dạng dạng thiếu:
* Cú pháp :
If (điều kiện) then ( câu lệnh);
* Hoạt động của câu lệnh : Khi gặp câu lệnh điều kiện này, chương trình sẽ kiểm tra điều kiện, nếu kiều kiện được thỏa mản chương trình sẽ thực hiện câu lệnh ,ngược lại câu lệnh bị bỏ qua.
Câu lệnh điều kiện dạng dạng đủ:
*cú pháp :
If (điều kiện) then ( câu lệnh 1) alse (câu lệnh 2);
* hoạt động của câu lệnh: Chương trình sẽ kiểm tra điều kiện, nếu điều kiện được thỏa mãn , chương trình sẽ thực hiện câu lệnh 1, ngược lại, câu lệnh 2 sẽ được thực hiện.
Vd:
câu lệnh điều kiện dạng thiếu :
Nếu trời mưa (điều kiện) thì lớp em sẽ nghỉ tiết thể dục. ( Câu lệnh)
câu lệnh điều kiện dạng đủ:
Nếu a >b ( điều kiện) thì in ra màn hình số a (câu lệnh 1), ngược lại thì in ra màn hình số b. ( câu lệnh 2)
Đúng 0
Bình luận (0)
câu lệnh điều kiện dạng thiếu
If (điều kiện) then câu lệnh;
vd: if n mod 2=0 then write(' n la so chan')
điều kiện : n mod 2=0
câu lệnh 1: write('...');
câu lệnh 2 : không có
Đúng 0
Bình luận (0)