điểm gấp
Bài 17: Chương trình con và phân loại
nhập vào từ bàn phím hai phân số nếu mẫu số không hợp lệ yêu cầu nhập lại mẫu số.Xuất ra màn hình hai phân số đã nhập ở dạng tối giản.Quy đồng mẫu hai phân số trên vs mẫu chung là bội chung nhỏ nhất của hai mẫu số.Xuất hai phan số sau khi quy đồng ra màn hình
b,tính tổng hai phân số trên,xuất ra màn hình phân số tổng ở dạng trên
Đúng 0
Bình luận (0)
Viết chương trình in ra màn hình 10 số nguyên dương liên tiếp
- in ra 10 số nguyên dương liên tiếp từ 1 đến 10
- in ra 10 số nguyên dương liên tiếp từ 10 đến 1
Mong đc mọi người giúp nhanh nhất có thể mik chân thành cảm ơn
var
i:integer;
begin
write('cac so nguyen duong tu 1 toi 10;');
for i:=1 to 10 do write(i);
writeln;
write('cac so nguyen duong tu 10 toi 1;');
for i:=10 downto 1 do write(i);
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình tìm gtnn của 5 số sử dụng chương trìn con
Program Piano;
uses crt,graph;
const
SoPhim 14;
Phim: array[1..SoPhim] of char (a,s,d,f,g,h,j,
1,2,3,4,5,6,7);
TenNot: array[1..SoPhim] of string[3] (Do,Re,Mi,Fa,
Sol,La,Si,Do,Re,Mi,Fa,Sol,La,Si);
AmThanh: array[1..SoPhim] of integer (131,147,165,175,196,220,
247,262,294,330,349,392,440,494);
CRong 30;
Cdai 100;
KCNgang 80;
KCDoc 150;
_MauPhim LightGreen;
var
gd,gm: integer;
MauPhim: array[1..SoPhim] of integer;
k: char;
TgPhat: integer;
f: text;
GA,Playing: Bool...
Đọc tiếp
Program Piano;
uses crt,graph;
const
SoPhim = 14;
Phim: array[1..SoPhim] of char = ('a','s','d','f','g','h','j',
'1','2','3','4','5','6','7');
TenNot: array[1..SoPhim] of string[3] = ('Do','Re','Mi','Fa',
'Sol','La','Si','Do"','Re"','Mi"','Fa"','Sol"','La"','Si"');
AmThanh: array[1..SoPhim] of integer = (131,147,165,175,196,220,
247,262,294,330,349,392,440,494);
CRong = 30;
Cdai = 100;
KCNgang = 80;
KCDoc = 150;
_MauPhim = LightGreen;
var
gd,gm: integer;
MauPhim: array[1..SoPhim] of integer;
k: char;
TgPhat: integer;
f: text;
GA,Playing: Boolean;
Procedure InPhimDan(i: integer);
Begin
if MauPhim[i] = _MauPhim then
SetFillStyle(1,_MauPhim)
else
SetFillStyle(1,White);
bar(KCNgang+i*CRong,KCDoc,KCNgang+(i+1)*CRong,KCDoc + CDai);
SetFillStyle(1,8);
bar(KCNgang+i*CRong,KCdoc + CDai,KCNgang+(i+1)*CRong,
KCDoc + CDai + 5);
SetFillStyle(1,LightGray);
bar(KCNgang+i*CRong,KCdoc + CDai+5,KCNgang+(i+1)*CRong,
KCDoc + CDai + 10);
SetColor(Black);
Rectangle(KCNgang+i*CRong,KCDoc,KCNgang+(i+1)*CRong,KCDoc + CDai+10);
SetColor(Blue);
OutTextXY(KCNgang+i*30+15,KCDoc+70,Phim[i]);
OutTextXY(KCNgang+i*30+5,KCDoc+20,TenNot[i]);
End;
Procedure TaoDan;
var i: integer;
Begin
SetFillStyle(1,Cyan);
Bar(KCNgang + CRong - 10,KCDoc - 10,KCNgang + CRong*(SoPhim+1)+10,KCDoc+CDai+20);
for i := 1 to SoPhim do
InPhimDan(i);
Setcolor(Brown);
SetTextStyle(DefaultFont, HorizDir,3);
OutTextXy(200,100,'P I A N O');
SetTextStyle(DefaultFont, HorizDir,1);
OutTextXy(200,320,'Turn off VietKey before hitting.');
End;
Procedure ShowDan;
var trdo: string;
Begin
SetfillStyle(1,LightGreen);
Bar(KCNgang+CRong,KCDoc+Cdai+20,KCNgang + (SoPhim+1)*Crong,KCDoc+CDai+60);
{--Record--}
SetFillStyle(1,Red);
Bar(KCNgang+CRong+20,KCdoc + CDai+25,KCNgang+CRong+80,KCDoc+CDai+55);
Setcolor(Black);
if not GA then
OutTextXy(KCNgang+CRong+25,KCdoc + CDai+30,'Record')
else
OutTextXy(KCNgang+CRong+25,KCdoc + CDai+30,'Rec...');
OutTextXy(KCNgang+CRong+30,KCdoc + CDai+45,'( R )');
{--Truong Do--}
SetFillStyle(1,Blue);
Bar(KCNgang+CRong*(SoPhim+1)-80,KCdoc + CDai+25,
KCNgang+CRong*(SoPhim+1)-10,KCDoc+CDai+55);
Setcolor(Black);
OutTextXy(KCNgang+CRong*(SoPhim+1)-70,KCdoc + CDai+35,'T: ');
Str(TgPhat,trDo);
OutTextXy(KCNgang+CRong*(SoPhim+1)-50,KCdoc + CDai+35,trdo);
{--Play--}
SetFillStyle(1,Yellow);
Bar(KCNgang+CRong+170,KCdoc + CDai+25,KCNgang+CRong+230,KCDoc+CDai+55);
Setcolor(Black);
if not Playing then
OutTextXy(KCNgang+CRong+185,KCdoc + CDai+30,'Play')
else
OutTextXy(KCNgang+CRong+185,KCdoc + CDai+30,'Stop');
OutTextXy(KCNgang+CRong+180,KCdoc + CDai+45,'( P )');
End;
Procedure GhiAm(kt:string;Am: integer);
var s: array[1..3000] of string[4];
i,j: integer;
Begin
reset(f);
i := 0;
repeat
inc(i);
Readln(f,s[i]);
until s[i] = ''
rewrite(f);
for j := 1 to i-1 do
writeln(f,s[j]);
if kt = '' then
Writeln(f,Am)
else
Writeln(f,kt,Am);
Close(f);
End;
Procedure Play;
var s: string;
i,c,j:integer;
Begin
reset(f);
repeat
readln(f,s);
Val(s,i,c);
if c = 0 then
begin
Sound(AmThanh[i]);
for j := 1 to SoPhim do
if i = j then
begin
MauPhim[j] := _MauPhim;
InPhimDan(j);
end
else
if MauPhim[j] = _MauPhim then
begin
MauPhim[j] := White;
InPhimDan(j);
end;
end
else
begin
Val(Copy(s,2,Length(s)),i,c);
Delay(i);
NoSound;
end;
k := #0;
if keypressed then k := readkey;
until (s = '') or (k = 'p');
Playing := False;
ShowDan;
End;
Procedure TruongDo;
Begin
if (k = #72) or (k = #80) then
begin
if (k = #72) and (TgPhat < 400) then inc(TgPhat,50)
else
if (k = #80) and (TgPhat > 50) then inc(TgPhat,-50);
ShowDan;
end;
End;
Procedure BatGhiAm;
Begin
if k = 'r' then
begin
if not GA then
ReWrite(f);
GA := not GA;
ShowDan;
end
else
if k = 'p' then begin Playing := True;ShowDan;Play;end;
End;
Procedure DanhDan;
var i: integer;
Begin
k := #0;
if keypressed then begin k := readkey;TruongDo;BatGhiAm;end;
for i := 1 to SoPhim do
begin
if k = Phim[i] then
begin
MauPhim[i] := _MauPhim;
Sound(AmThanh[i]);
InPhimDan(i);
if GA then
begin
GhiAm('',i);
GhiAm('d',tgPhat);
end;
end
else
if MauPhim[i] = _MauPhim then
begin
MauPhim[i] := White;
InPhimDan(i);
end;
end;
if k <> #0 then delay(tgPhat);
NoSound;
End;
BEGIN
gd := EGA;
gm := EGAHI;
InitGraph(gd,gm,'');
SetBkColor(Black);
Assign(f,'GhiAm.txt');
{ReWrite(f);} { Bo dau ngoac trong lan chay dau tien, sau do dong lai}
TaoDan;
TgPhat := 200;
GA := False;
Playing := False;
ShowDan;
repeat
DanhDan;
if GA then ghiAm('d',23);
until k = #27;
CloseGraph;
END.Program Piano;
uses crt,graph;
const
SoPhim = 14;
Phim: array[1..SoPhim] of char = ('a','s','d','f','g','h','j',
'1','2','3','4','5','6','7');
TenNot: array[1..SoPhim] of string[3] = ('Do','Re','Mi','Fa',
'Sol','La','Si','Do"','Re"','Mi"','Fa"','Sol"','La"','Si"');
AmThanh: array[1..SoPhim] of integer = (131,147,165,175,196,220,
247,262,294,330,349,392,440,494);
CRong = 30;
Cdai = 100;
KCNgang = 80;
KCDoc = 150;
_MauPhim = LightGreen;
var
gd,gm: integer;
MauPhim: array[1..SoPhim] of integer;
k: char;
TgPhat: integer;
f: text;
GA,Playing: Boolean;
Procedure InPhimDan(i: integer);
Begin
if MauPhim[i] = _MauPhim then
SetFillStyle(1,_MauPhim)
else
SetFillStyle(1,White);
bar(KCNgang+i*CRong,KCDoc,KCNgang+(i+1)*CRong,KCDoc + CDai);
SetFillStyle(1,8);
bar(KCNgang+i*CRong,KCdoc + CDai,KCNgang+(i+1)*CRong,
KCDoc + CDai + 5);
SetFillStyle(1,LightGray);
bar(KCNgang+i*CRong,KCdoc + CDai+5,KCNgang+(i+1)*CRong,
KCDoc + CDai + 10);
SetColor(Black);
Rectangle(KCNgang+i*CRong,KCDoc,KCNgang+(i+1)*CRong,KCDoc + CDai+10);
SetColor(Blue);
OutTextXY(KCNgang+i*30+15,KCDoc+70,Phim[i]);
OutTextXY(KCNgang+i*30+5,KCDoc+20,TenNot[i]);
End;
Procedure TaoDan;
var i: integer;
Begin
SetFillStyle(1,Cyan);
Bar(KCNgang + CRong - 10,KCDoc - 10,KCNgang + CRong*(SoPhim+1)+10,KCDoc+CDai+20);
for i := 1 to SoPhim do
InPhimDan(i);
Setcolor(Brown);
SetTextStyle(DefaultFont, HorizDir,3);
OutTextXy(200,100,'P I A N O');
SetTextStyle(DefaultFont, HorizDir,1);
OutTextXy(200,320,'Turn off VietKey before hitting.');
End;
Procedure ShowDan;
var trdo: string;
Begin
SetfillStyle(1,LightGreen);
Bar(KCNgang+CRong,KCDoc+Cdai+20,KCNgang + (SoPhim+1)*Crong,KCDoc+CDai+60);
{--Record--}
SetFillStyle(1,Red);
Bar(KCNgang+CRong+20,KCdoc + CDai+25,KCNgang+CRong+80,KCDoc+CDai+55);
Setcolor(Black);
if not GA then
OutTextXy(KCNgang+CRong+25,KCdoc + CDai+30,'Record')
else
OutTextXy(KCNgang+CRong+25,KCdoc + CDai+30,'Rec...');
OutTextXy(KCNgang+CRong+30,KCdoc + CDai+45,'( R )');
{--Truong Do--}
SetFillStyle(1,Blue);
Bar(KCNgang+CRong*(SoPhim+1)-80,KCdoc + CDai+25,
KCNgang+CRong*(SoPhim+1)-10,KCDoc+CDai+55);
Setcolor(Black);
OutTextXy(KCNgang+CRong*(SoPhim+1)-70,KCdoc + CDai+35,'T: ');
Str(TgPhat,trDo);
OutTextXy(KCNgang+CRong*(SoPhim+1)-50,KCdoc + CDai+35,trdo);
{--Play--}
SetFillStyle(1,Yellow);
Bar(KCNgang+CRong+170,KCdoc + CDai+25,KCNgang+CRong+230,KCDoc+CDai+55);
Setcolor(Black);
if not Playing then
OutTextXy(KCNgang+CRong+185,KCdoc + CDai+30,'Play')
else
OutTextXy(KCNgang+CRong+185,KCdoc + CDai+30,'Stop');
OutTextXy(KCNgang+CRong+180,KCdoc + CDai+45,'( P )');
End;
Procedure GhiAm(kt:string;Am: integer);
var s: array[1..3000] of string[4];
i,j: integer;
Begin
reset(f);
i := 0;
repeat
inc(i);
Readln(f,s[i]);
until s[i] = ''
rewrite(f);
for j := 1 to i-1 do
writeln(f,s[j]);
if kt = '' then
Writeln(f,Am)
else
Writeln(f,kt,Am);
Close(f);
End;
Procedure Play;
var s: string;
i,c,j:integer;
Begin
reset(f);
repeat
readln(f,s);
Val(s,i,c);
if c = 0 then
begin
Sound(AmThanh[i]);
for j := 1 to SoPhim do
if i = j then
begin
MauPhim[j] := _MauPhim;
InPhimDan(j);
end
else
if MauPhim[j] = _MauPhim then
begin
MauPhim[j] := White;
InPhimDan(j);
end;
end
else
begin
Val(Copy(s,2,Length(s)),i,c);
Delay(i);
NoSound;
end;
k := #0;
if keypressed then k := readkey;
until (s = '') or (k = 'p');
Playing := False;
ShowDan;
End;
Procedure TruongDo;
Begin
if (k = #72) or (k = #80) then
begin
if (k = #72) and (TgPhat < 400) then inc(TgPhat,50)
else
if (k = #80) and (TgPhat > 50) then inc(TgPhat,-50);
ShowDan;
end;
End;
Procedure BatGhiAm;
Begin
if k = 'r' then
begin
if not GA then
ReWrite(f);
GA := not GA;
ShowDan;
end
else
if k = 'p' then begin Playing := True;ShowDan;Play;end;
End;
Procedure DanhDan;
var i: integer;
Begin
k := #0;
if keypressed then begin k := readkey;TruongDo;BatGhiAm;end;
for i := 1 to SoPhim do
begin
if k = Phim[i] then
begin
MauPhim[i] := _MauPhim;
Sound(AmThanh[i]);
InPhimDan(i);
if GA then
begin
GhiAm('',i);
GhiAm('d',tgPhat);
end;
end
else
if MauPhim[i] = _MauPhim then
begin
MauPhim[i] := White;
InPhimDan(i);
end;
end;
if k <> #0 then delay(tgPhat);
NoSound;
End;
BEGIN
gd := EGA;
gm := EGAHI;
InitGraph(gd,gm,'');
SetBkColor(Black);
Assign(f,'GhiAm.txt');
{ReWrite(f);} { Bo dau ngoac trong lan chay dau tien, sau do dong lai}
TaoDan;
TgPhat := 200;
GA := False;
Playing := False;
ShowDan;
repeat
DanhDan;
if GA then ghiAm('d',23);
until k = #27;
CloseGraph;
END.
giúp mình vs người ta bảo Chú ý bỏ cái ngoặc chỗ Rewrite ra nha, nếu không Code sẽ lỗi, sau lần đầu tiên dùng nên đóng cái đó lại mà mình không hiểu
Begin
reset(f);
i : 0;
repeat
inc(i);
Readln(f,s[i]);
until s[i]
rewrite(f);
for j : 1 to i-1 do
writeln(f,s[j]);
if kt then
Writeln(f,Am)
else
Writeln(f,kt,Am);
Close(f);
End;Begin
reset(f);
i : 0;
repeat
inc(i);
Readln(f,s[i]);
until s[i]
rewrite(f);
for j : 1 to i-1 do
writeln(f,s[j]);
if kt then
Writeln(f...
Đọc tiếp
giúp mình vs người ta bảo Chú ý bỏ cái ngoặc chỗ Rewrite ra nha, nếu không Code sẽ lỗi, sau lần đầu tiên dùng "nên" đóng cái đó lại mà mình không hiểu
Begin reset(f); i := 0; repeat inc(i); Readln(f,s[i]); until s[i] = '' rewrite(f); for j := 1 to i-1 do writeln(f,s[j]); if kt = '' then Writeln(f,Am) else Writeln(f,kt,Am); Close(f); End;Begin reset(f); i := 0; repeat inc(i); Readln(f,s[i]); until s[i] = '' rewrite(f); for j := 1 to i-1 do writeln(f,s[j]); if kt = '' then Writeln(f,Am) else Writeln(f,kt,Am); Close(f); End; Mã:Chú ý bỏ cái ngoặc chỗ Rewrite ra nha, nếu không Code sẽ lỗi, sau lần đầu tiên dùng "nên" đóng cái đó lại Mã:
abs(x) là thuộc loại nào trong chương trình con?
A. Hàm
B. Thủ tục
C. Sai cú pháp
D. A, B đều đúng
viết chương trình vs chương trình cona. tính T= n! ( biết n! = 1*2*3*4*...*n và 0!=1)b. sử dụng chtrinh con tính tổ hợp Ckn = n! / k! * (n-k)! ( k,n là 2 số nguyên dương , k < = n)
uses crt;
var n,k:longint;
{----------------chuong-trinh-con-------------------}
function gthua(var n:longint):real;
var i:longint;
gt:real;
begin
gt:=1;
for i:=1 to n do
gt:=gt*i;
gthua:=gt;
end;
{----------------chuong-trinh-chinh------------------}
begin
clrscr;
repeat
write('Nhap n='); readln(n);
write('Nhap k='); readln(k);
until (n>0) and (k>0) and (k<=n);
writeln(n,'!=',gthua(n):4:2);
writeln('C=',gthua(n)/(gthua(k)*gthua(n-k)):4:2);
readln;
end.
Đúng 1
Bình luận (0)
Dế Mèn phiêu lưu kí là một truyện viết cho thiếu nhi rất đặc sắc của Tô Hoài. Trong truyện, tác giả đã xây dựng nhân vật chính là chú Dế Mèn với những nét tính cách, phẩm chất thật đáng yêu, đáng quý. Nhưng nhân vật mà em ấn tượng nhất là chú dễ choắt. Dù chỉ xuất hiện ở những phần đầu câu chuyện nhưng những câu nói cuối cùng của chú trước khi mất nhưng nó làm cho mỗi độc giả mãi không thể nào quên. Cậu là một người có thân hình nhỏ bẻ nhưng khá am hiểu sự đời, cách đối đãi với mọi người xung quanh. Bằng chứng là câu nói cuối cùng của Dế Choắt ở đời mà có thói hung hăng bậy bạ, có óc mà không biết nghĩ, sớm muộn rồi cũng mang vạ vào mình. Chỉ vài câu thôi, nhưng nó đã làm thay đổi một Dế Mèn kiêu căng, ngạo mạn lúc bấy giờ. Vậy mỗi người chúng ta hãy học theo Dễ Choắt, đừng bao giờ kiêu căng, làm việc bậy bạ mà ảnh hưởng đến cả mình, cả người khác
like 
Đúng 0
Bình luận (1)
viết chương trình tính chỉnh hợp k phần tử của n và tổ hợp k phần tử của n bằng cách sử dụng chương trình con có tên là Giaithua.
Cho mảng A gồm N phần tử thuộc kiểu nguyên dương (N≤500)? Viết chương trình thực hiện tính tổng các số chia hết cho 3 hoặc cho 5, phải viết và sử dụng các chương trình con sau trong chương trình:
a) Thủ tục nhập giá trị cho mảng A từ bàn phím.
b) Hàm kiểm tra số chia hết cho 3 hoặc 5
Đúng 0
Bình luận (0)
Program HOC24;
const fi='DULIEU.INP'
fo='KETQUA.OUT'
var f: text;
m,n,i: integer;
t: longint;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,m,n);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
t:=0;
for i:=m to n do if i mod 2=1 then t:=t+i;
write(f,t);
close(f);
end;
begin
ip;
out;
end.
Đúng 0
Bình luận (0)