TIN HỌC 11(các bạn lớp 11 vào đây để xem có BT mình định hỏi chưa nha )

[kakakath15]

Tính tổng:
1+1/2+1/3+...+1/n
1-1/2-1/3-1/4-..-1/n
1-1/2+1/3-1/4+..-1/n
1+1/2-1/3+1/4-..+1/n
có thể sử dung lệnh for... do
hoặc while...do
các anh chị ơi giúp em với ,con 1 ngày nữa thôi

[Thanh_Dat]

co ai co Heroes III k? lam on cho minh voi!!!!!!!!!!!

[=========> Bổ sung bài viết <=========]

Cac ban oi lam ho minh bai nay, khong minh sap thi hoc ki rui:
giai PT bac 2 ax2 + bx + c=0
Nhung phai giai bang chuong trinh con.
Cac ban lam gium minh zoi minh dang can gap.
minh cam on cac ban truoc!
iam thanks!!!!!!!!!!!!!!!!1

[=========> Bổ sung bài viết <=========]

nahnh len nhe!!!!!!!!!!!!

[that11t2]

Đề thi của trường em được báo trước là như thế này, thầy biểu về chuẩn bị mà em làm hok dc, cứu em mấy đại ca ơi!
Đề: Nhập vào mảng 1 chiều A gồm một dãy tùy ý các số nguyên âm và dương. Hãy tạo ra mảng B chứa toàn số âm và mảng C chứa toàn số dương (số 0 được tính là số dương) Sau đó in 3 mảng ra màn hình.

[ngthduyanh]

có ai không
giúp mình câu này:
viết chương trình xóa kí tự trắng bên phải cảu một xâu nhập từ bàn phím.
Ví dụ: ' HOGUOM ' -> ' HOGUOM';
' HOGUOM' -> ' HOGUOM';
Thank trước!

[TEAR_ViEm_TEAR]

Được gửi bởi cupidangel3112
2222222222222!
Các bạn giai giúp mình bài tập này với:
Nhập xâu bất kì, viết chương trình xóa các dấu cách ở đầu xâu và cuối xâu, sau đó, thay thế các dấu cách liên tiếp bằng 1 dấu cách.
Mình làm bài này theo câu lệnh while...do... nhưng ko chạy. Chắc lỗi gì rồi. Các bạn chỉ giúp cho mình với. Thanks trước nha.

ba`i nj` mi`nh la`m rui`, tham khao thu~ nha:

program xoakhoang;
var z:string;i:byte;
begin
write('Nhap vao mot chuoi: ');readln(z);
i:=pos(' ',z); {ti`m hai khoang cach nha ' '};
while i<>0 do
begin
delete(z,i,1);
i:=pos(' ',z);
end;
if z[1]=' ' then delete(z,1,1);{neu o truoc co 1 khoang thj` xoa};
if z[length(Z)]=' ' then delete(z,length(Z),1);{neu cuoi co 1 thj` xoa};
write(Z);
readln;
end.
{Bài nj` vì thý 2 sẽ xóa 1 nên có thể ở trước hay sau còn có khoảng dư nên xóa ngay}
bài nj` có vẻ ngắn hơn đó

[raishusaku]

Có thể cho mình link đến trang nào có dạng câu hỏi thế này
viết chương trình pascal giải pt bằng phương pháp cramer
phương trình có dạng sau
/ x1 + x2 + x3 = a
l x1 + x2 + x3 = b
\ x1 + x2 + x3 = c

mai mình phải thi rồi

[cuonghoa003]

ai du trinh lam ho minh bai nay nha can gap' :
Viết chương trình nhập vào một mảng a, có n phần tử. .In ra mảng con tăng ngặt dài nhất trong mảng a.

[nhat_truong]

Hỏi gì như tát nước vào mặt, ai trả lời hết nỗi các câu của mấy người

[king_lord]

các bác giúp em bài này với nha,làm nhanh nhanh dùm mai em còn đi nộp.
Viết chương trình nhập vào 1 xâu có tối đa 150 ký tự và đếm xem trong xâu đó có bao nhiêu chữ "a".
các bác giúp em nha.thanks trc.

[nhat_truong]

các bác giúp em bài này với nha,làm nhanh nhanh dùm mai em còn đi nộp.
Viết chương trình nhập vào 1 xâu có tối đa 150 ký tự và đếm xem trong xâu đó có bao nhiêu chữ "a".
các bác giúp em nha.thanks trc.

Program kitu_a;
Var s: String[150];
    i,d: Byte;
Begin
    Write('Nhap xau: ');
    Readln(s);
    d:=0;
    For i:=1 to length(s) do 
        If s[i]='a' then inc(d);
    Writeln('So ki tu a: ',d);
    Readln;
End.

Nếu chương trình yêu câu đếm cả kí tự 'A' thì sửa s[i]='a' thành upcase(s[i])='A'

[=========> Bổ sung bài viết <=========]

Có thể cho mình link đến trang nào có dạng câu hỏi thế này
viết chương trình pascal giải pt bằng phương pháp cramer
phương trình có dạng sau
/ x1 + x2 + x3 = a
l x1 + x2 + x3 = b
\ x1 + x2 + x3 = c

mai mình phải thi rồi

Phải thế này mới đúng chứ:

  a1*x + b1*y + c1*z = d1;
  a2*x + b2*y + c2*z = d2;
  a3*x + b3*y + c3*z = d3;

Program cramer;
Uses crt;
Var a1,a2,a3,b1,b2,b3,c1,c2,c3,d1,d2,d3: Real;
    D,Dx,Dy,Dz,x,y,z: Real;
Begin
    Clrscr;
    Write('Nhap a1,b1,c1,d1: ');   Readln(a1,b1,c1,d1);
    Write('Nhap a2,b2,c2,d2: ');   Readln(a2,b2,c2,d2);
    Write('Nhap a3,b3,c3,d3: ');   Readln(a3,b3,c3,d3);
    D := (a1*b2*c3 + a2*b3*c1 + a3*b1*c2) - (a3*b2*c1 + a2*b1*c3 + a1*b3*c2);
    {Tương tự tính Dx, Dy, Dz}
    If D=0 then
       If (Dx=0)and(Dy=0)and(Dz=0) then Writeln('Hệ phương trình có vô số nghiệm')
       Else Writeln('Hệ phương trình vô nghiệm')
    Else 
       Begin
           x:=Dx/D;  Writeln('x = ',x:10:2);
           y:=Dy/D;  Writeln('y = ',y:10:2);
           z:=Dz/D;  Writeln('z = ',z:10:2);
       End;
    Readln;
End.

[=========> Bổ sung bài viết <=========]

có ai không
giúp mình câu này:
viết chương trình xóa kí tự trắng bên phải cảu một xâu nhập từ bàn phím.
Ví dụ: ' HOGUOM ' -> ' HOGUOM';
' HOGUOM' -> ' HOGUOM';
Thank trước!

Program xoa_trang;
Var s: String;
    i: Byte;
Begin
    Write('Nhap xau: ');
    Readln(s);
    i:=length(s);
    While s[i]=' ' do 
        Begin
           delete(s,i,1);
           dec(i);
        End;
    Writeln('Xau kq: ',s);
    Readln;
End.

[=========> Bổ sung bài viết <=========]

Tính tổng:
1+1/2+1/3+...+1/n
1-1/2-1/3-1/4-..-1/n
1-1/2+1/3-1/4+..-1/n
1+1/2-1/3+1/4-..+1/n
có thể sử dung lệnh for... do
hoặc while...do
các anh chị ơi giúp em với ,con 1 ngày nữa thôi

Đơn giản thôi

Program tinh_tong;
Uses crt;
Var n: Integer; kq: Real;
Begin
   Clrscr;
   Write('Nhap n: '); Readln(n);
   Write('Vượt ngoài khả năng của máy. Vui lòng nhập luôn kết quả: '); Readln(kq);
   Writeln('kq = ',kq10:2);
   Writeln('Đúng sai bạn tự chịu trách nhiệm');
   Readln;
End.

[=========> Bổ sung bài viết <=========]

viết chương trình đọc file dulieu.txt chứa các số nguyên , các số nguyên cách nhau một khoảng trắng .sau đó in các số nguyên tố ra màn hình ( sử dụng chương trình con )

Program nt;
Var f:Text;
    n:Longint;

Function ktnt(n:Longint):Boolean;
var i:Integer;
begin
    ktnt:=false;
    for i:=2 to trunc(sqrt(n)) do
        if n mod i = 2 then exit;
    ktnt:=true;
end;

Begin
    assign(f,'dulieu.txt'); reset(f);
    writeln('Cac so nguyen to trong day la:');
    while not eof(f) do
          begin
              read(f,n);
              if ktnt(n) then write(n,'  ');
          end;
    close(f);
    readln
End.