Được gửi bởi
king_lord
các bác giúp em bài này với nha,làm nhanh nhanh dùm mai em còn đi nộp.
Viết chương trình nhập vào 1 xâu có tối đa 150 ký tự và đếm xem trong xâu đó có bao nhiêu chữ "a".
các bác giúp em nha.thanks trc.
Code:
Program kitu_a;
Var s: String[150];
i,d: Byte;
Begin
Write('Nhap xau: ');
Readln(s);
d:=0;
For i:=1 to length(s) do
If s[i]='a' then inc(d);
Writeln('So ki tu a: ',d);
Readln;
End.
Nếu chương trình yêu câu đếm cả kí tự 'A' thì sửa s[i]='a' thành upcase(s[i])='A'
[=========> Bổ sung bài viết <=========]
Được gửi bởi
raishusaku
Có thể cho mình link đến trang nào có dạng câu hỏi thế này
viết chương trình pascal giải pt bằng phương pháp cramer
phương trình có dạng sau
/ x1 + x2 + x3 = a
l x1 + x2 + x3 = b
\ x1 + x2 + x3 = c
mai mình phải thi rồi
Phải thế này mới đúng chứ:
Code:
a1*x + b1*y + c1*z = d1;
a2*x + b2*y + c2*z = d2;
a3*x + b3*y + c3*z = d3;
Code:
Program cramer;
Uses crt;
Var a1,a2,a3,b1,b2,b3,c1,c2,c3,d1,d2,d3: Real;
D,Dx,Dy,Dz,x,y,z: Real;
Begin
Clrscr;
Write('Nhap a1,b1,c1,d1: '); Readln(a1,b1,c1,d1);
Write('Nhap a2,b2,c2,d2: '); Readln(a2,b2,c2,d2);
Write('Nhap a3,b3,c3,d3: '); Readln(a3,b3,c3,d3);
D := (a1*b2*c3 + a2*b3*c1 + a3*b1*c2) - (a3*b2*c1 + a2*b1*c3 + a1*b3*c2);
{Tương tự tính Dx, Dy, Dz}
If D=0 then
If (Dx=0)and(Dy=0)and(Dz=0) then Writeln('Hệ phương trình có vô số nghiệm')
Else Writeln('Hệ phương trình vô nghiệm')
Else
Begin
x:=Dx/D; Writeln('x = ',x:10:2);
y:=Dy/D; Writeln('y = ',y:10:2);
z:=Dz/D; Writeln('z = ',z:10:2);
End;
Readln;
End.
[=========> Bổ sung bài viết <=========]
Được gửi bởi
ngthduyanh
có ai không
giúp mình câu này:
viết chương trình xóa kí tự trắng bên phải cảu một xâu nhập từ bàn phím.
Ví dụ: ' HOGUOM ' -> ' HOGUOM';
' HOGUOM' -> ' HOGUOM';
Thank trước!
Code:
Program xoa_trang;
Var s: String;
i: Byte;
Begin
Write('Nhap xau: ');
Readln(s);
i:=length(s);
While s[i]=' ' do
Begin
delete(s,i,1);
dec(i);
End;
Writeln('Xau kq: ',s);
Readln;
End.
[=========> Bổ sung bài viết <=========]
Được gửi bởi
kakakath15
Tính tổng:
1+1/2+1/3+...+1/n
1-1/2-1/3-1/4-..-1/n
1-1/2+1/3-1/4+..-1/n
1+1/2-1/3+1/4-..+1/n
có thể sử dung lệnh for... do
hoặc while...do
các anh chị ơi giúp em với ,con 1 ngày nữa thôi
Đơn giản thôi
Code:
Program tinh_tong;
Uses crt;
Var n: Integer; kq: Real;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
Write('Vượt ngoài khả năng của máy. Vui lòng nhập luôn kết quả: '); Readln(kq);
Writeln('kq = ',kq10:2);
Writeln('Đúng sai bạn tự chịu trách nhiệm');
Readln;
End.
[=========> Bổ sung bài viết <=========]
Được gửi bởi
danquenbk
viết chương trình đọc file dulieu.txt chứa các số nguyên , các số nguyên cách nhau một khoảng trắng .sau đó in các số nguyên tố ra màn hình ( sử dụng chương trình con )
Code:
Program nt;
Var f:Text;
n:Longint;
Function ktnt(n:Longint):Boolean;
var i:Integer;
begin
ktnt:=false;
for i:=2 to trunc(sqrt(n)) do
if n mod i = 2 then exit;
ktnt:=true;
end;
Begin
assign(f,'dulieu.txt'); reset(f);
writeln('Cac so nguyen to trong day la:');
while not eof(f) do
begin
read(f,n);
if ktnt(n) then write(n,' ');
end;
close(f);
readln
End.
Bookmarks