Bài 2 nếu mình dùng 1 hàm tính min của 2 số có lẽ sẽ nhanh hơn mà không dài dòng. ghi thế nhưng chưa làm vì nhác
Bài 2 nếu mình dùng 1 hàm tính min của 2 số có lẽ sẽ nhanh hơn mà không dài dòng. ghi thế nhưng chưa làm vì nhác
Hok J` ca ah.
chi vi n la so nen phai n:integer roi str
con hok n:string neu nhap vao 32gh thi in ra hg23 ah the thi de wa roi con j` nua và the la BOOm Lun
[=========> Bổ sung bài viết <=========]
Bai 9 ne
Var st:string;
n,so,s,loi:integer;
begin
readln(n);
s:=0;
str(n,st);
for i:=1 to length(st) do
begin
val(st,so,loi);(*ham nay de doi ki tu sang so*)
s:=s+so;
end;
write('tong cac chu so la',s);
readln;
end.
xong co tan thanh hok
Được sửa bởi nobodybutyou lúc 19:49 ngày 01-02-2010 Reason: Bổ sung bài viết
Xin giúp đỡ
Có bài toán đặt ra:
a x 1250 = x1
b x 1500 = x2
c x 20000 = x3
d x 30000 = x4
biết : a + b + c + d = e
x1 + x2 + x3 + x4 = j
Làm sao giải bằng pascal.
uses crt;
var n,s:integer;
begin
clrscr;
write('Nhap so can tinh: ');readln(N);
S:=0;
while N>0 do
begin
S:=S+n mod 10;
n:=n div 10;
end;
write('Tong cac chu so la: ',S);
readln
end.
[=========> Bổ sung bài viết <=========]
uses crt;
var n,gio,phut,giay:integer;
begin
clrscr;
write('Nhap so giay: ');readln(N);
gio:=n div 3600;
phut:=(n-gio*3600) div 60;
giay:=n-gio*3600-phut*60;
write(N,' giay = ',gio,' gio ',phut,' phut ',giay,' giay');
readln
end.
[=========> Bổ sung bài viết <=========]
uses crt;
var kt:char;
begin
clrscr;
write('Nhap ki tu: ');readln(kt);
write(ord(kt));
readln
end.
Được sửa bởi bara_dh lúc 16:37 ngày 20-02-2010 Reason: Bổ sung bài viết
hồi xửa hồi xưa em down trên mạng về giáo trình Pascal có hết mấy bài này, cả bài giải luôn áh
minh co bai so 4 chua poc tem
[=========> Bổ sung bài viết <=========]
program giay_ra_giophutgiay;
uses crt;
var n:longint;
gio,phut,giay:integer;
begin
clrscr;
writeln('Ban nhap vao so giay can doi:'); readln(n);
gio:=n div 3600;
giay:=n mod 3600;
phut:=giay div 60;
giay:=giay mod 60;
writeln(n,'so giay se doi ra duoc:',gio,'gio',phut,'phut',giay,'giay');
readln
end.
Được sửa bởi anhvolam247 lúc 10:00 ngày 16-10-2010 Reason: Bổ sung bài viết
Bài 4 thì thế này
Var giay,phut,gio:integer;
Begin
Write('Nhap so giay');
readln(n);
gio:= giay div 3600;
Phut:=(giay MOD 3600) div 60;
Giay:= giay mod 60;
Write(gio,'h',phut,'m',giay,'giay');
readln;
end.
Giúp mình làm tập đồ họa máy tính này với
Tình hình là mình có bài tập về môn kĩ thuật đồ họa bằng ngôn ngữ pascal, đề bài như sau:
Viết chương trình vẽ một đường tròn tâm O bán kính R vẽ các đường tròn đồng tâm O có bán kính chạy từ 1 đến R sau đó xóa các đường tròn đồng tâm này rồi vẽ các đường tròn đồng tâm khác đi từ R đến 1
Rất mong mọi người giúp đỡ mình làm bài tập này Mình gà pascal lắm
các bác à! Bài 9 cần giải theo kiểu "STRING" mới đúng:
giả sử số cần kiểm tra là: 98546217465121549861231257987951321321687651 thì sao?
kiểu "longint" sẽ không kiễm tra được.
code:
program bai9;
uses crt;
var i,n,e:integer; s:longint;
st:string; x:real; kt:boolean;
begin
clrscr;
repeat
write('Nhap n: '); readln(st);
for i:=1 to length(st) do
if st[i] in ['0'..'9'] then kt:=true
else begin kt:=false; break; end;
until kt;
s:=0;
for i:=1 to length(st) do
begin val(st[i],x,e);
s:=s+round(x);
x:=0
end;
write(s);
readln;
end.
Bookmarks