Ngô Sơn's Profile

" Ơ phải biết tính diện tích và chu vi cái gi mới làm được chứ "

Hoặc vct tính dt và cv của hcn, hv, tam giac,... cùng một lúc mà có vô số hinh mà.

Đề nghị bạn xem lại cho ( vì đây là môn học yêu thích của mình ).

Uses crt;

Var st:string;

      i,j:longint;

Begin

 Clrscr;

 Write('nhap ho va ten : '); Readln(st);

 For i:=1 to length(st) do

 st[i]:=upcase(st[i]);

 Writeln(st[i]);

 For i:=1 to length(st) do

 If st[i] in ['A'..'Z','a'..'z'] then

 j:=j+1;

 Writeln('so ki tu co trong ten la : ',j);

 Readln;

End.

" có thể bài này làm sai mình ko biết đâu nha bạn tự làm lại sang pascal xem "

Uses crt;

Var n,i,td,ta,t1,t2:longint;

      m:array [1..100] of longint;

Begin

 Clrscr;

 Write('nhap so hang tu n : '); Readln(n);

 For i:=1 to n do

  Begin

   Write('m[',i,']'); Readln(m[i]);

  End;

 td:=0;

 ta:=0;

 t1:=0;

 t2:=0;

 For i:=1 to n do

  Begin

   For i:=1 to n do

   If m[i] > 0 then

   td:=td+m[i];

  End;

 Writeln('tong cac so duong la : ',td);

 For i:=1 to n do

  Begin

   For i:=1 to n do

   If m[i] < 0 then

   ta:=ta+m[i];

  End;

 Writeln('tong cac so am la : ',ta);

 For i:=1 to n do

  Begin

   For i:=1 to n do

   If m[i] mod 7 = 0 then

   t1:=t1+m[i];

  End;

 Writeln('tong cac so chia het cho 7 la : ',t1);

 For i:=1 to n do

  Begin

   For i:=1 to n do

   If (m[i] div 10 = 1)

   Or (m[i] div 10 = 2)

   Or (m[i] div 10 = 3)

   Or (m[i] div 10 = 4)

   Or (m[i] div 10 = 5)

   Or (m[i] div 10 = 6)

   Or (m[i] div 10 = 7)

   Or (m[i] div 10 = 8)

   Or (m[i] div 10 = 9)

   Then t2:=t2+m[i];

  End;

 Writeln('tong cac so co 2 chu so la : ',t2);

 Readln;

End.

Uses crt;

Var a,b,cv,s:longint;

Begin

 Clrscr;

 Write('nhap chieu dai a : '); Readln(a);

 Write('nhap chieu rong b : '); Readln(b);

 s:=a*b;

 cv:=(a+b)*2; 

 Writeln('dien tich cua hinh chu nhat la : ',s);

 Writeln('chu vi cua hinh chu nhat la : ',cv);

 Readln;

End.

Uses crt;

Var n:longint;

Begin

 Clrscr;

 Write('nhap n : '); Readln(n);

 If (n mod 2 = 0) then 

 Writeln('n chan')

 Else If (n mod 2 = 1) then 

 Writeln('n le');

 Readln;

End. 

Uses crt;

Var a,b,cv,dt:longint;

Begin

 Clrscr;

 Repeat;

 Write('nhap chieu dai a : '); Readln(a);

 Write('nhap chieu rong b : '); Readln(b);

 Until (a > 0) and (b > 0);

 cv:=(a+b)*2;

 dt:=a*b;

 If cv < dt then Writeln('dt lon hon');

 If dt < cv then Writeln('cv lon hon');

 If cv = dt then Writeln('ca hai bang nhau');

 Readln;

End.

Tên do người lập trình đặt tuân thủ theo các qui tắc của ngôn ngữ lập trình cũng như của chương trình dich và thỏa mãn:

- Ko trùng với từ khóa.

- Những tên khác nhau đại diện cho những đại lượng khác nhau.

Uses crt;

Var a,b,c:longint;

Begin

 Clrscr;

 Repeat

 Write('nhap a : '); Readln(a);

 Write('nhap b : '); Readln(b);

 Write('nhap c : '); Readln(c);

 Until (a > 0) and (b > 0) and (c > 0);

 If (a+b > c) and (a+c > b) and (b+c > a) then

 Writeln('a,b,c la ba canh cua tam giac thuong')

 Else If (a = b) or (a = c) or (b = c) then

 Writeln('a,b,c la ba canh cua tam giac can')

 Else Writeln('a,b,c ko la ba canh cua tam giac');

 Readln;

End.

Uses cry;

Var a,b,x:lonignt;

Begin

 Clrscr;

 Write('nhap a : '); readln(a);

 Write('nhap b : '); readln(b);

 If a = 0 then

 If b = 0 then

 Writeln('phuong trinh co vo so nghiem')

 Else Writeln('phuong trinh vo nghiem')

 Else Writeln('phuong trinh co nghiem x = ',-b/a:4:2);

 Readln;

End.

Uses crt;

Var a,b:longint;

Begin

 Clrscr;

 Write('nhap a : '); Readln(a);

 Write('nhap b : '); Readln(b);

 If (a < b) then Writeln(b)

 Else If (a > b) then Writeln(a);

 Readln;

End.