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

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





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?

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ớ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

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

hoangtin14 đã viết:

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

dễ đối với bạn

Uhm sorry, hôm đó tớ bận chút.

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.