Diễn đàn tin học Nguyễn Văn Linh
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

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

The second house for every one
 
Trang ChínhLatest imagesTìm kiếmĐăng kýĐăng Nhập

 

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

Go down 
3 posters
Tác giảThông điệp
nh0x.ti_em
Gà con
nh0x.ti_em


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

nhập vào 2 số và tìm số nhỏ nhất ? Empty
Bài gửiTiêu đề: nhập vào 2 số và tìm số nhỏ nhất ?   nhập vào 2 số và tìm số nhỏ nhất ? I_icon_minitimeWed 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
littlelee


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

nhập vào 2 số và tìm số nhỏ nhất ? Empty
Bài gửiTiêu đề: Re: nhập vào 2 số và tìm số nhỏ nhất ?   nhập vào 2 số và tìm số nhỏ nhất ? I_icon_minitimeWed 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
littlelee


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

nhập vào 2 số và tìm số nhỏ nhất ? Empty
Bài gửiTiêu đề: Re: nhập vào 2 số và tìm số nhỏ nhất ?   nhập vào 2 số và tìm số nhỏ nhất ? I_icon_minitimeWed 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
hoangtin14


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

nhập vào 2 số và tìm số nhỏ nhất ? Empty
Bài gửiTiêu đề: Re: nhập vào 2 số và tìm số nhỏ nhất ?   nhập vào 2 số và tìm số nhỏ nhất ? I_icon_minitimeWed 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
nh0x.ti_em


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

nhập vào 2 số và tìm số nhỏ nhất ? Empty
Bài gửiTiêu đề: Re: nhập vào 2 số và tìm số nhỏ nhất ?   nhập vào 2 số và tìm số nhỏ nhất ? I_icon_minitimeWed 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
littlelee


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

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

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


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

nhập vào 2 số và tìm số nhỏ nhất ? Empty
Bài gửiTiêu đề: Re: nhập vào 2 số và tìm số nhỏ nhất ?   nhập vào 2 số và tìm số nhỏ nhất ? I_icon_minitimeThu 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





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

Về Đầu Trang Go down
 
nhập vào 2 số và tìm số nhỏ nhất ?
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Xóa số để tạo thành số nhỏ nhất, lớn nhất.
» Chu vi của n hình chữ nhật
» Dãy con tăng dài nhất
» Bội chung nhỏ nhất
» Số lượng hình chữ nhật

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