Chào mừng quý vị đến với website của ...
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tài liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
BẢNG CWUE CHƯƠNG
program bang_cuu_chuong; uses crt; var i,j:integer; begin clrscr; gotoxy(13,3); writeln('CHUONG TRINH IN BANG CUU CHUONG'); for i:=1 to 10 do begin for j:=2 to 5 do begin write(j:3,' x',i:2,' =',i*j:3,' |'); end; writeln; end; writeln; for i:=1 to 10 do begin for j:=6 to 9...
BÀI TOÁN CẤP SỐ NHÂN
program cap_so_nhan; uses crt; var i,x,y,z,ts:integer; begin write('nhap so luong ban dau: ');readln(x); write('nhap so luong tang them cua moi phan tu theo thoi gian quy dinh: '); readln(y); write('nhap so luong thoi gian can tinh: '); readln(z); ts:=x; for i:=1 to z do begin ts:=ts+ts*y; writeln('so luong cua ngay thu ',i,'la: ',ts); end; readln; end....
CHẠY CHỮ
program chay_chu; uses crt; const s='CHAO CAC BAN'; var x, y, i: byte; BEGIN for x:=1 to 70 do begin gotoxy(x,10); writeln(s); delay(100); clrscr; end; for y:=1 to 30 do begin gotoxy(30,y);writeln(s); delay(300);clrscr; end; x:=1; y:=30; for i:=1 to 30 do begin gotoxy(x,y);writeln(s); delay(300); clrscr; x:=x+2; y:=y-1; end; end....
ĐẢO NGƯỢC CHUỖI
uses crt; var st:string; tt: char; n,i:integer; begin clrscr; repeat write('nhap day so can dao nguoc:'); readln(st); n:=length(st); write('day so dao nguoc la: '); for i:=n downto 1 do write(st[i]); writeln; write('ban co muon tiep tuc khong?(y/n)');readln(tt); until tt='n'; end....
KIỂM TRA SỐ NGUYÊN TỐ
uses crt; var a,n,i:integer;tt:char; begin clrscr; repeat write('nhap so can kiem tra: ');readln(n); if n=2 then writeln('la so nguyen to') else begin i:=1; repeat i:=i+1; a:=n mod i; until (a=0) or(i=n-1); if a=0 then writeln('khong phai la so nguyen to') else writeln('la so nguyen to'); end; write('tiep tuc(y/n)?');readln(tt); until tt='n'; end....
ĐẢO NGƯỢC DÃY SỐ
var i:integer; n:longint; begin write('nhap vao so can xu li: '); readln(n); write('day so dao nguoc la:'); while n0 do begin i:=n mod 10; write(i); n:=n div 10; end; readln; end....
NHẬP VÀ HIỂN THỊ MẬT KHẨU BẰNG KÍ TỰ *
uses crt; var ch:char; i:integer;st:string[20]; begin clrscr; i:=0; write('nhap mat khau:'); repeat i:=i+1; ch:=readkey;st[i]:=ch; write('*'); until ch=#13; writeln; write('mat khau la: '); for i:=1 to 20 do write(st[i]); readln; end....
SẮP XẾP DÃY SỐ VÀ TÌM KIẾM NHỊ PHÂN
uses crt; var a:array[1..100] of integer; n,i,j,tg,x, vtd, vtc,vt:integer; begin clrscr; write('nhap so luong day so: '); readln(n); randomize; for i:=1 to n do begin a[i]:=random(100); write(' ',a[i]); end; writeln; for i:=1 to n do for j:=1 to n do if a[i]x then vtc:=vt; if a[vt]...
SẮP XẾP CHUỖI
var st:string; i,j: integer;a:char; begin write('nhap chuoi:');readln(st); for i:=1 to length(st) do for j:=i+1 to length(st) do if st[i]>st[j] then begin a:=st[i]; st[i]:=st[j];st[j]:=a; end; for i:=1 to length(st) do write(st[i]); readln end....
sắp xếp mảng số nguyên
Program sap_xep;
uses crt;
Var
A : Array [1..100] of Word;
I, J, N,
K, Tmp : Integer;
Begin
clrscr;
N := 100;
For I := 1 to N Do
Begin
A[I] := Random(5000) + 1;
Write(A[I] : 6);
End;
For K := 3 DownTo 1 Do
For I := 1 to N - 1 Do
For J := I + 1 to N Do
If A[J] < A[I]
then
Begin
Tmp := A[J];
A[J] := A[I];
A[I] := Tmp;
End;
Writeln;
For I := 1 To N Do
Write(A[I]...
Các ý kiến mới nhất