Tin học Viết chương trình

[dang9cad]

[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.

Bài 1:Tập hợp các chữ cái tiếng Anh bao gồm 26 chữ cái được đánh số thứ tự từ 0 đến 25 như
sau:
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
a b c d e f g h i j k l m n o p q r s t u v w x y z
Quy tắc mã hoá một ký tự như sau (lấy ví dụ ký tự X):
- Tìm số thứ tự tương ứng của ký tự ta được 23.
- Tăng giá trị số này lên 5 ta được 28.
- Tìm số dư trong phép chia số này cho 26 ta được 2
- Tra ngược bảng chữ cái ta thu được C.
Sử dụng quy tắc trên, hãy viết chương trình cho phép nhập một xâu ký tự (không phân biệt chữ
thường, chữ hoa) và in ra xâu ký tự đã được mã hóa.
Ví dụ:
Nhap xau ky tu:
PEACE
Xau ky tu tren duoc ma hoa la:
UJFHJ

Bài 2:Viết chương trình tính tổng S= 1+1.2+1.2.3+…+1.2.3…N (N<=30)

Bài 3:Viết chương trình nhập số tự nhiên N (Với N < 100), tính tổng S theo yêu cầu sau:
Nếu N là số lẻ thì S là tổng các số nguyên tố từ 2 đến N.
Nếu N là số chẵn thì S là tổng bình phương các số lẻ từ 1 đến N.

Bài 4|:Viết chương trình tính tổng S= 1+1.2+1.2.3+…+1.2.3…N (N<=30)

 

[khai221050]

1

USES crt;
VAR
FUNCTION b(a: BYTE):CHAR;
BEGIN
    CASE a OF
        1: b:='a';
        2: b:='b';
        3: b:='c';
        4; b:='d';
        ....
    ELSE
        writeln('So sai');
END;
FUNCTION x(y: CHAR):BYTE;
BEGIN
    CASE a OF
        a: x:=1;
        b: x:=2;
        c: x:=3;
        d: x:=4;
        ....
    ELSE
        writeln('chu sai');
END;                       
BEGIN
    clrscr;
    writeln('Nhap xau'); readln(s);
    write('Xau sau khi giai ma:');
    FOR i:=1 TO length(s)-1 DO
        x(copy (s,1,i))+5:=tam1;
        tam1 MOD 26:= tam2;
        writeln(b(tam2));         
    readln;
END.

2

uses crt;
var
begin
clrscr;
writeln('Nhap n:') ; readln(n);
for i:=1 to n do
begin
for j:=1 to i do p:=p*j;
S:=S+p;
end;
writeln(S);
readln
end.