Diễn đàn tin học Nguyễn Văn Linh

The second house for every one
 
IndexTrợ giúpTìm kiếmThành viênĐăng kýĐăng Nhập

Share | 
 

 nhập vào 2 số và tìm số nhỏ nhất ?

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
nh0x.ti_em
Gà con


Tổng số bài gửi : 10
Join date : 17/03/2010

Bài gửiTiêu đề: nhập vào 2 số và tìm số nhỏ nhất ?   Wed 14 Apr 2010, 18:34

program nhap_vao_2_so_tim_so_nho_nhat;
uses crt;
var a,b:real;
function Min(a,b:real):real;
begin
if a<b then Min:=a
else
end;
begin
write('nhap vao 2 so: ');
readln(a,b);
write('so nho nhat trong 2 so la: ',Min(a),b);
readln
end.


sao mình làm mà ko dc....bạn coi sai phần nào chỉ mình với worried worried worried





bài 2:


program bt1;
uses crt;
type str79=string[79];
var s1,s2: str79;
stop: boolean;
procedure CatDan(s1:str79; var s2:str79);
begin
s2:=copy(s1,2,length(s1)-1)+s1[1];
end;
procedure CanGiua(var s:str79);
var i,n:integer;
begin
n:=length(s);
n:=(80-n) div 2;
for i:=1 to n do s:=' '+s;
end;
begin
clrscr;
write('Nhap xau s1: ');
readln(s1);
CanGiua(s1);
clrscr;
stop:= false;
while not(stop) do
begin
gotoxy(1,12);
write(s1);
delay(500);
CatDan(s1,s2);
s1:=s2;
stop:=keypressed;
end;
readln;
end.


Hãy viết thủ tục ChuChay(s,dong) nhận đầu vào là xâu s gồm không quá 79 kí tự và biến nguyen dong, đưa ra xâu s có dạng chữ chạy ở dòng dong.Viết và chạy chương trình có sử dụng thủ tục này?
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: nhập vào 2 số và tìm số nhỏ nhất ?   Wed 14 Apr 2010, 18:57

Bài 1 bạn có dognf lệnh này
write('so nho nhat trong 2 so la: ',Min(a),b);

Phải sửa lại là Min(a,b) mới đúng.

Trong hàm Min
function Min(a,b:real):real;
begin
if a<b then Min:=a
else
end;
thì sau else phải gán Min bằng b chứ.

Toàn bài (sửa lại theo bạn)
program nhap_vao_2_so_tim_so_nho_nhat;
uses crt;
var a,b:real;
function Min(a,b:real):real;
begin
if a<b then Min:=a
else Min:=b;
end;
begin
write('nhap vao 2 so: ');
readln(a,b);
write('so nho nhat trong 2 so la: ',Min(a,b));
readln
end.
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: nhập vào 2 số và tìm số nhỏ nhất ?   Wed 14 Apr 2010, 19:06

Với bài 2 mình nghĩ không cần rắc rối thế đâu.

Nếu đề chỉ có bấy nhiêu như bạn ghi trên thì ta chỉ cần gán i=12 tức là i:=dong. Lúc đầu gán j=1; xử lí và in s ra, sau đó tăng j lên và tiếp tục xóa dòng, xử lí rồi in. Lưu ý ta tăng j nhưng vẫn phải gán j:=j mod 80 để dòng không chạy ra ngoài.

Code thì tí tớ viết cho
Về Đầu Trang Go down
hoangtin14
Mèo con


Tổng số bài gửi : 96
Join date : 08/02/2010
Age : 21
Đến từ : Bình Định

Bài gửiTiêu đề: Re: nhập vào 2 số và tìm số nhỏ nhất ?   Wed 14 Apr 2010, 20:03

để bạn ấy tự viết đi. khá dễ mà.
Về Đầu Trang Go down
nh0x.ti_em
Gà con


Tổng số bài gửi : 10
Join date : 17/03/2010

Bài gửiTiêu đề: Re: nhập vào 2 số và tìm số nhỏ nhất ?   Wed 14 Apr 2010, 20:18

hoangtin14 đã viết:
để bạn ấy tự viết đi. khá dễ mà.


dễ đối với bạn waiting
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: nhập vào 2 số và tìm số nhỏ nhất ?   Thu 15 Apr 2010, 20:59

Uhm sorry, hôm đó tớ bận chút.
Về Đầu Trang Go down
littlelee
Admin
Admin


Tổng số bài gửi : 415
Join date : 20/12/2009
Age : 21
Đến từ : Nghĩa địa

Bài gửiTiêu đề: Re: nhập vào 2 số và tìm số nhỏ nhất ?   Thu 15 Apr 2010, 21:14

Bài của bạn
Code:
program chu_chay;
uses crt;
var s:string[79]; j:byte;

procedure chuchay(s:string;i:integer);
 var k,l:byte;
 begin
  clrscr;
  k:=j;
  for l:=1 to length(s) do
  begin
    gotoxy(k,i);
    write(s[l]);
    inc(k); if k>80 then k:=k-80;
  end;
  inc(j); if j>80 then j:=j-80;
 end;

begin
 clrscr;
 write('nhap chuoi: ');readln(s);
 j:=1;
 repeat
  chuchay(s,25);delay(100);
 until keypressed;
end.
Về Đầu Trang Go down
Sponsored content




Bài gửiTiêu đề: Re: nhập vào 2 số và tìm số nhỏ nhất ?   Today at 18:51

Về Đầu Trang Go down
 
nhập vào 2 số và tìm số nhỏ nhất ?
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Nguyễn Văn Linh :: Góc tin học :: Lớp chuyên tin-
Chuyển đến