bài tập pascal 11

[lolem19]

mọi người giúp lính mới làm bài này với: (càng nhanh càng tốt nha ) >"<

Bài 1:
nhập 1 mảng các phần tử là số nguyên dương cho đến khi tổng các phần tử trong mảng lớn hơn hoặc bằng 2010 thì ngừng nhập. Viết ra mảng đã nhập.
a, mảng có bao nhiêu số dương?
b, Viết ra các mảng 1 chiều gồm csc số nguyên tố, số chính phương từ mảng đã nhập.

Bài 2:
Người châu Âu quan niệm nếu thứ 6 trong tuần là ngày 13 thì đó là ngày "xấu". Nhập thứ của ngày hiện tại, hỏi năm đó có bao nhiêu ngày "xấu"? (Chương trình chạy đúng hco lịch của 1 năm bất kì)

cám ơn mọi người nhiều nhiều!

[kevinsorbo]

Bài 1 bạn nhập từng số vào, đồng thời làm các việc sau:
_ tính tổng các số đã nhập
_ kiểm tra số vừa nhập có dương không, tăng biến đếm nếu nó dương
_ kiêm tra số vừa nhập có là số nguyên tố không, nếu có cho vào 1 mảng khác
_ kiểm tra số vừa nhập có là số chính phương không, nếu có cho vào 1 mảng.
Sau đó, mọi kết quả đều đã có, bạn chỉ cần dựa vào các mảng, biến đếm bên trên để in ra. Nếu có phần nào không làm được, bạn cứ hỏi nhé.
Bài 2 để mình suy nghĩ thuật toán tối ưu đã...

[ta12km]

mọi người giúp lính mới làm bài này với: (càng nhanh càng tốt nha ) >"<

Bài 1:
nhập 1 mảng các phần tử là số nguyên dương cho đến khi tổng các phần tử trong mảng lớn hơn hoặc bằng 2010 thì ngừng nhập. Viết ra mảng đã nhập.
a, mảng có bao nhiêu số dương?
b, Viết ra các mảng 1 chiều gồm csc số nguyên tố, số chính phương từ mảng đã nhập.

Bài 2:
Người châu Âu quan niệm nếu thứ 6 trong tuần là ngày 13 thì đó là ngày "xấu". Nhập thứ của ngày hiện tại, hỏi năm đó có bao nhiêu ngày "xấu"? (Chương trình chạy đúng hco lịch của 1 năm bất kì)

cám ơn mọi người nhiều nhiều!

2./Đơn giản dễ hiểu: (mình đang thắc mắc không nhập năm thì làm sao biết năm nhuận???, nên mình lấy năm không nhuận hết)

var k,i,j,ng,t,d:byte;nam:array[1..12] of byte;tong:word;
     thu,tam:string;th[1..13] of string;
begin
         write('Thu: ');readln(thu);
         write('Ngay: ');readln(ng);
         write('Thang: ');readln(t);
         nam[1]:=31;
         nam[2]:=28;
         nam[3]:=31;
         nam[4]:=30;
         nam[5]:=31;
         nam[6]:=30;
         nam[7]:=31;
         nam[8]:=31;
         nam[9]:=30;
         nam[10]:=31;
         nam[11]:=30;
         nam[12]:=31;
         tong:=0;d:=0;
         for i:=1 to t-1 do         
              tong:=tong+nam[i];
         tong:=tong+ng;
         th[1]:='hai';
         th[2]:='ba';
         th[3]:=tu';
         th[4]:='nam';
         th[5]:='sau'; 
         th[6]:='bay';
         th[7]:='cn';
         th[8]:='hai';
         th[9]:='ba';
         th[10]:=tu';
         th[11]:='nam';
         th[12]:='sau'; 
         th[13]:='bay';
         i:=1;
         while thu<>th[i] do inc(i);
         tam:='';
         case tong mod 7 of
                0: tam:=th[i];
                1: tam:=th[i+1];
                2: tam:=th[i+2];
                3: tam:=th[i+3];
                4: tam:=th[i+4];
                5: tam:=th[i+5];
                6: tam:=th[i+6];
         k:=0;
         case tam of
                'bay': k:=k+1;
                'cn': k:=k+2;
                'hai': k:=k+3;
                'ba': k:=k+4;
                'tu': k:=k+5;
                'nam': k:=k+6;
          for i:=1 to 12 do
              begin
                      tong:=0;
                      for j:=1 to i-1 do tong:=tong+nam[j];
                      tong:=tong+13;
                      if tong mod 7 = k then inc(d);
             end;
         writeln('Co ',d,' ngay xau');
         readln;
END.