Chương trình Pascal

[rinsuke]

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

Vì gần thi mà lại dở cái pascal qá ..mong anh chị giúp đỡ
1.Viết các biếu thức trong toán học sang các biểu thức trong ngôn ngữ lập trình Pascal.
2. Viết các biểu thức trong ngôn ngữ lập trình Pascal sang biểu thức trong toán học.
3. Viết chương trình có khai báo biến, hằng và sử dụng câu lệnh điều kiện ( lớp 8)
@};-@};-

 

[lamdetien36]

Cho xin mấy cái biểu thức và đề bài của câu 3. Chứ đề chung chung thế này thì làm = niềm tin và hy vọng à :|

 

[demon311]

Cho xin mấy cái biểu thức và đề bài của câu 3. Chứ đề chung chung thế này thì làm = niềm tin và hy vọng à :|

Em có bài này cũng khó:
Cho dãy số: 12345678910111213141516...
Viết chương trình cho ra chữ số thứ n (n nhập từ bàn phím, $n<10^9$)
Anh làm không có tệp được không ạ?

 

[lamdetien36]

Em có bài này cũng khó:
Cho dãy số: 12345678910111213141516...
Viết chương trình cho ra chữ số thứ n (n nhập từ bàn phím, $n<10^9$)
Anh làm không có tệp được không ạ?

const
    numb: array [1..8] of longint = (9, 180, 2700, 36000, 450000, 5400000, 63000000, 720000000);
var
    N: longint;
function Calc(N: longint): char;
 var
     k, m, p: longint;
     s: string;
 begin
     k := 1; p := 1;
     while (k < 9) and (Numb[k] < N) do
     begin
         N := N - Numb[k];
         k := k + 1;
         p := p * 10;
     end;
     if p = 1 then
         m := N div k
     else
         m := N div k + p + ord(N mod k > 0) - 1;
     str(m, s); 
     s := s[k] + s;
     Calc := s[N mod k + 1];
 end;
begin
    readln(N);
    write(Calc(N));
end.

 

[demon311]

Kiểu thủ công chính thống nhỉ. Cách này làm cũng nhanh nhưng hơi ..............

 

[lamdetien36]

Kiểu thủ công chính thống nhỉ. Cách này làm cũng nhanh nhưng hơi ..............

Chịu khó vậy thôi Chứ mấy cách khác mình cài thử chạy N = 10^5 mất khoảng 30-40s