YOMEDIA

Ngô Sơn's Profile

Ngô Sơn

Ngô Sơn

01/01/1970

Số câu hỏi 0
Số câu trả lời 13
Điểm 65
Kết bạn

Bạn bè (0)

Hoạt động gần đây (13)

  • Ngô Sơn đã trả lời trong câu hỏi: Viết chươnh trình tính chu vi và diện tích Cách đây 4 năm

    " Ơ 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 "

  • Ngô Sơn đã trả lời trong câu hỏi: Cho dãy A gồm có N số nguyên tử A1,A2,...An ( với N Cách đây 4 năm

    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.

  • Ngô Sơn đã trả lời trong câu hỏi: Viết chương trình nhập 2 kích thước của hình chữ nhật Cách đây 4 năm

    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.

  • Ngô Sơn đã trả lời trong câu hỏi: Tên trong chương trình dùng để làm gì? Cách đây 4 năm

    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.

  • Ngô Sơn đã trả lời trong câu hỏi: Viet chuong trinh giai phuong trinh bac nhat ax b =0 va a, b duoc nhap tu ban phim Cách đây 4 năm

    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.

  • Ngô Sơn đã trả lời trong câu hỏi: Viết chương trình tìm số lớn nhất trong 2 số nguyên a và b Cách đây 4 năm

    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.

Không có Điểm thưởng gần đây

ZUNIA9
 

 

AANETWORK
OFF