Mới chập chững học Pascal mọi ng giúp mình với !

[dichvutonghop]

Thôy bỏ qua câu đó đi
Bạn xem hộ mình câu 3 & 4 đc ko ?
Mai mình phải hỏi lại rõ ràng đề 2 đã :-ss

[kidmonter]

Câu 3: mình nói thuật toán thôi nhé, có thời gian mình sẽ code cụ thể
_ Duyệt i = 1 tới hết mảng A. Với mỗi A, kiểm tra nó có = B[1] không, nếu có thì:
+) đặt j=1, i1=1;
+) Lặp : tăng i1, j. Kiểm tra nếu A[i1]=B[j] thì làm tiếp tới khi j=giới hạn của B. Nếu sau quá trình lặp, không có chỗ nào A[]<>B[] thì tức là đoạn từ i->i1 là B trong A. Tăng biến đếm
_ Duyệt tới khi hết dãy thì ta có kết quả lưu ở biến đếm.
Câu 4: Nếu như cách đọc không có phân biệt như 25 thì 5 là lăm còn 50 thì 5 là năm, 1004 thì có thể đọc là một nghìn không trăm không chục 4 đơn vị:
_ Kiểm tra xem số đó có bao nhiêu chữ số.
_ Duyệt từng chữ số của số đó:
+) Với mỗi csố kiểm tra csố đó là chữ số thứ ? tính từ phải sang. Rồi đọc số đó thành chữ + tên hàng của nó.
Nói chúng là dài dòng lắm, mình chỉ nói thuật toán cơ bản thôi nhé, dùng if then để chia trường hợp và gọi tên đúng hàng và đúng cách gọi người Việt hay gọi. Bài này dài quá, chắc mình không code được cho bạn đâu, bạn chịu khó code nhé.

[inbaongoc007]

Bài 3, nếu có sai gì thì bạn nên phát triển thêm.

Program HappySoftGroup_diendantinhoc;
        Uses Crt;
        Var  a, b : Array[1..100] Of Integer;
             na, nb : Integer;
             dem : Byte;

        Procedure Nhap;
                Var i : Integer;
        Begin
                Write('Nhap tong so pt mang A: ');
                Readln(na);
                For i := 1 to na do
                Begin
                        Write('A[',i,'] := ');
                        Readln(a[i]);
                End;
                Write('Nhap tong so pt mang B: ');
                Readln(nb);
                For i := 1 to nb do
                Begin
                        Write('B[',i,'] := ');
                        Readln(b[i]);
                End;
        End;

        Procedure Kiem_tra;
                Var i, k : Integer;
                    kt : Boolean;
        Begin
                dem := 0;
                i := 1;
                While i <= na do
                Begin
                        If a[i] = b[1] then
                                For k := 1 to nb do
                                        If a[i+k-1] = b[k] then kt := true
                                        Else
                                        Begin
                                                Kt := False;
                                                Break;
                                        End;
                                If kt = true then inc(dem);
                                kt := false;
                        Inc(i);
                End;
        End;

        Procedure Xuat;
        Begin
                Write('So lan xuat hien: ',dem);
                Readln;
        End;

BEGIN
        Clrscr;
        Nhap;
        Kiem_tra;
        Xuat;
END.

[vthao93hp]

Bài 2 có lẽ các bạn đọc chưa kĩ đề bài. Nó bảo là kiểm tra xem chữ La Mã vừa nhập vào đó (VD: I, VIII, X, LVI, ...) có đúng hay không (tức là nó có phù hợp không, giả sử: IIV - số này sai, phải là III mới đúng. 1 lần nhập cho phép nhập 1 số để kiểm tra).
Ví dụ:
nhập: IIX => Sai
==>> Sửa lại: VIII

[nguyenluyen123]

Đề bài ra mù mờ quá, có thể hiểu như HSG cũng có thể hiểu là nhập 1 số thập phân và 1 số La Mã, kiểm tra xem số La Mã kia có biểu diễn số thập phân đó không. Tóm lại là nên chờ sự giải thích của bạn chủ topic.

[hc_066]

Đề bài ra mù mờ quá, có thể hiểu như HSG cũng có thể hiểu là nhập 1 số thập phân và 1 số La Mã, kiểm tra xem số La Mã kia có biểu diễn số thập phân đó không. Tóm lại là nên chờ sự giải thích của bạn chủ topic.

Không phải em à! Cái sửa lại là do anh tự đặt ra á. Còn đề bài đọc phát là hiểu mà, nó nói cũng rõ chứ. Nhập vào kiểm tra xem số đó nhập có đúng hay không.
VD:
+ VIIII => sai
+ IX => đúng
+ IIII => sai
+ IV => đúng.
Vậy đó. Chứ nó không có gì cầu kì cả.

[appsmart]

Đề bài là kiểm tra dạng biểu diễn La Mã của 1 số có đúng không? Có thể là em hiểu nhầm đề bài.