Các bạn ơi! giúp lập trình bài này

[phithang_tin]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

1.Một dãy số được coi là một dãy lưỡi cưa khi dãy đó có ít nhất 1 số và được đan xen giữa số âm và số dương (một số âm đến một số dương đến một số âm…, hoặc một số dương đến một số âm đến một số dương…).
Yêu cầu:
Viết chương trình yêu cầu người sử dụng nhập vào n số nguyên (n được nhập vào từ bàn phím) và kiểm tra xem các số được nhập vào (theo thứ tự) có phải là dãy lưỡi cưa hay không?
Input: n số nguyên.
Output: là dãy lưỡi cưa / không là dãy lưỡi cưa
Ví dụ:
Input
Output
5 -4 10 -6 8 -3
Là dãy lưỡi cưa.
-1 8 -6 10 -20 1 -2
Là dãy lưỡi cưa.
8 -5 -3 7 -6 8
KHÔNG là dãy lưỡi cưa.

2. Nhà em có hai anh em (2 người), mẹ đi chợ về mua n món quà , mỗi món có giá trị Vi (đồng). Hãy giúp mẹ chia quà cho hai anh em sao cho giá trị các món quà của mỗi người nhận được lệch nhau ít nhất.
(Lưu ý: N, Vi là các số nguyên dương, 2 ≤ N ≤ 100, mỗi người có thể nhận số lượng quà khác nhau, nếu bài toán có nhiều phương án chia chỉ cần xuất một phương án)
input: n và n số lần lượt là V1, V2, …,Vn
output:
Dòng 1: U1, U2, U3,... là các giá trị các món quà người thứ nhất nhận được
Dòng 2: T1, T2, T3,... là các giá trị các món quà người thứ hai nhận được
Ví dụ:
input:
N = 10
Vi = 2 3 5 6 8 9 7 6 8 7
output:
Dòng 1: 2 3 5 6 8 7
Dòng 2: 9 6 8 7

3. Viết chương trình nhập vào 3 số nguyên a,b,c và xuất ra màn hình kết quả nghiệm của phương trình ax2 + bx + c = 0.
input: a,b,c
output: nghiệm của phương trình.

4. Viết chương trình nhập vào một số nguyên dương và kiểm tra xem số đó có đối xứng hay không?
Input: số nguyên X
output: là số đối xưng / là số KHÔNG đối xứng.
Ví dụ:
Input: 12321 output: là số đối xứng.
Input: 123321 output: là số đối xưng.
Input: 12345 output: là số KHÔNG đối xứng.

 

[atlmnt]

Bài 4:

var
   S:string;
   i,j:byte;
begin
  write('Nhap so:'); readln(S);
  j:=length(S);
  while (i<j) and (S[i]=S[j]) do
              begin
                inc(i);
                dec(j);
              end;
  if i>=j then write('Day la so doi xung')
    else write('Day khong phai la so doi xung');
  readln;
end.

 

[lamdetien36]

Bài 1:

var
    A: array [1..100] of integer;
    N, i, d: integer;
    check: boolean;
begin
    write('Nhap N: '); readln(N);
    for i := 1 to N do
    begin
        write('    A[', i : 2, '] = ');
        readln(A[i]);
    end;
    
    if A[1] > 0 then 
        d := -1
    else
        d := 1;
    check := true;
    for i := 2 to N do
    begin
        if A[i] * d < 0 then
        begin
            check := false;
            break;
        end;
        d := -d;
    end;
    
    if check then
        write('La Day Luoi Cua')
    else
        write('Khong Phai Day Luoi Cua');
    readln
end.

 

[lamdetien36]

Bài 2:

var
    DP: array [0..10000] of integer;
    A, res: array [1..100] of integer;
    N, i, j, S: integer;
begin
    write('Nhap N: '); readln(N);
    S := 0;
    for i := 1 to N do
    begin
        write('    A[', i : 2, '] = ');
        readln(A[i]);
        S := S + A[i];
    end;
    
    FillChar(DP, sizeof(DP), -1);
    DP[0] := 0; S := S div 2;
    for i := 1 to N do
    begin
        for j := S - A[i] downto 0 do if (DP[j] <> -1) and (DP[j + A[i]] = -1) then
        begin
            DP[j + A[i]] := i;
        end;
    end;
    
    j := S; FillChar(res, sizeof(res), 0);
    while DP[j] = -1 do j := j - 1;
    while j > 0 do
    begin
        res[DP[j]] := 1;
        j := j - A[DP[j]];
    end;
    write('Qua Cua Nguoi 1: ');
    for i := 1 to N do
        if res[i] = 1 then write(A[i], ' ');
    writeln;
    write('Qua Cua Nguoi 2: ');
    for i := 1 to N do
        if res[i] = 0 then write(A[i], ' ');
    readln
end.

 

[lamdetien36]

Bài 3:

var
    a, b, c, delta, x1, x2: real;
begin
    writeln('Nhap 3 He So A, B, C: '); readln(a, b, c);
    delta := b * b - 4 * a * c;
    if delta > 0 then
    begin
        x1 := (-b + sqrt(delta)) / (2 * a);
        x2 := (-b - sqrt(delta)) / (2 * a);
        writeln('PT Co 2 Nghiem: ');
        writeln('   X1 = ', x1 : 0 : 6);
        writeln('   X2 = ', x2 : 0 : 6);
    end
    else if delta = 0 then
    begin
        x1 := -b / (2 * a);
        writeln('PT Co Nghiem Kep X1 = X2 = ', x1 : 0 : 6);
    end
    else 
        write('PT Vo Nghiem');
    readln
end.