bai tap pascal

[lqhuy93]

1. Tìm max và min O(n) ( chắc là bạn biết :?) chú ý < thay vì <=
2.3.4. có thể vét cho khỏe

[hang_vt]

Giúp mình các bài này với các bạn
Bài 1: Cho dãy số nguyên P=(P1,P2,...,Pn),2<=n.Biết rằng không phải mọi phần tử của P đều bằng nhau. Viết chương trình đổi chỗ 2 phần tử lớn nhất và nhỏ nhất cho nhau(nếu có nhiều phần tử lớn nhất hoặc nhỏ nhất thì đổi chỗ phần tử lớn nhất có chỉ số nhỏ nhất cho phần tử nhỏ nhất có chỉ số lớn nhất).
Bài 2: Viết chương trình tìm tất cả các số tự nhiên có 4 chữ số mà biểu diễn ở hệ thập phân của chung không có 2 chữ số nào giống nhau.
Bài 3: Tìm tất cả các số tự nhiên có 2 chữ số, khi đảo trật tự hai chữ số đó sẽ thu được số nguyên tố cùng nhau với số đã cho.
Bài 4: Tìm các số tự nhiên lẻ có 3 chữ số. Ba chữ số này theo trật tự viết từ trái sang phải tạo thành một cấp số cộng.
(Tất cả các bài toán đều phải viết dưới dạng chương trình con).

bài 4:

const fo='capsocong.out';

var   f:text;
      a,b,c,x,i:integer;

function kt(x:integer):boolean;
begin
      kt:=false;
      a:=x mod 10;
      x:=x div 10;
      b:=x mod 10;
      x:=x div 10;
      c:=x mod 10;
      a:=b-a;
      b:=c-b;
      if a=b then kt:=true;
end;

begin
      assign(f,fo);
      rewrite(f);
      for i:=100 to 999 do
            if i mod 2=1 then
                  if kt(i) then writeln(f,i);
      close(f);
end.

bài 2:

const fo='khacnhau.out';

var   f:text;
      a,b,c,d,i:integer;

function kt(x:integer):boolean;
begin
      kt:=false;
      a:=x mod 10;
      x:=x div 10;
      b:=x mod 10;
      x:=x div 10;
      c:=x mod 10;
      x:=x div 10;
      d:=x mod 10;
      if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then kt:=true;
end;

begin
      assign(f,fo);
      rewrite(f);
      for i:=1000 to 9999 do
            if kt(i) then writeln(f,i);
      close(f);
end.

bài 3:

const fo='nguyento.inp';

var   f:text;
      a,b,x,i:integer;

function nt(n:integer):boolean;
var   i:integer;
begin
      nt:=false;
      if n=1 then exit;
      for i:=2 to trunc(sqrt(n)) do
            if n mod i=0 then exit;
      nt:=true;
end;

function kt(x:integer):boolean;
begin
      kt:=false;
      a:=x mod 10;
      x:=x div 10;
      b:=x mod 10;
      a:=a*10+b;
      if nt(a) then kt:=true;
end;

begin
      assign(f,fo);
      rewrite(f);
      for i:=10 to 99 do
            if nt(i) then
                  if kt(i) then writeln(f,i);
      close(f);
end.

bài 1:

var   a:array[1..100] of integer;
      n,i,max,min,vti,vta,tg:integer;

procedure tim;
begin
      min:=a[1];
      vti:=1;
      max:=a[1];
      vta:=1;
      for i:=2 to n do
      begin
            if a[i]<=min then
            begin
                  min:=a[i];
                  if i<vti then vti:=i;
            end;
            if a[i]>=max then
            begin
                  max:=a[i];
                  if i>vta then vta:=i;
            end;
      end;
      tg:=a[vti];
      a[vti]:=a[vta];
      a[vta]:=tg;
end;

begin
      write('nhap n: ');
      readln(n);
      writeln('nhap day ');
      for i:=1 to n do
            read(a[i]);
      tim;
      for i:=1 to n do
            write(a[i]:2);
      readln
end.

p/s : code đã sửa

[nhat_truong]

Bài 3 sai rồi
Code đúng

Program Bai3;
Uses crt;

Function UCLN (M, N: Longint): Longint;
Begin
    While M<>N do
          If M>N then M:=M-N Else N:=N-M;
    UCLN:=M;
End;

Procedure Solution;
Var i, j: Longint;
Begin
    Clrscr;
    Writeln('  KQ:');
    For i:=10 to 99 do
        Begin
            j:=99-i;
            If UCLN(i,j)=1 then Write(i:4);
        End;
    Readln
End;

BEGIN
    Solution
END.

[giaduc96]

ai giải giúp em bài này với:
Task1.
Một buổi chiều An đậu 3 chiếc xe tải của nó trong 1 vùng nghỉ ngơi mà phải trả tiền đỗ xe theo 1 cách lạ thường-họ giảm tiền theo số lượng. Khi một xe đỗ, lái xe trả A đồng/phút. Khi 2 xe đỗ, lái xe trả mỗi xe B đồng/phút. Khi 3 xe đỗ, lái xe trả mỗi xe C đồng /phút.
Yêu cầu: Cho A, B, C cũng như khoảng thời gian mà 3 xe của An đỗ, tính số tiền phải trả?
Input
Dòng đầu chứa 3 số nguyên A, B, C (1 ≤ C ≤ B ≤ A ≤ 100). Mỗi dòng trong 3 dòng sau chứa 2 số nguyên là thời gian đến và đi trong phút của 1 xe. Thời gian đến sẽ luôn nhỏ hơn thời gian đi. Tất cả thời gian giữa 1 và 100.
Output
Đưa ra toàn bộ số tiền phải trả cho 3 xe.
Sample test data
Input Output
5 3 1 33
1 6
3 5
2 8

10 8 6 480
15 30
25 50
70 80
Task2.
An lái xe của mình suốt con đường thẳng dài có nhiều đèn giao thông. Mỗi đèn nó biết bao lâu là đỏ và xanh (vòng lặp lại không ngừng). Khi An bắt đầu cuộc hành trình của mình, tất cả đèn là đỏ và bắt đầu vòng của chúng. An di chuyển một đơn vị khoảng cách trên 1 giây. Khi một đèn đỏ, nó dừng và đợi đến khi chuyển sang xanh.
Yêu cầu: Xác định bao lâu để An đến cuối con đường. Bắt đầu con đường ở khaỏng cách 0, cuối đường có khoảng cách L
Input
Dòng đầu chứa 2 số nguyên N và L (1 ≤ N ≤ 100, 1 ≤ L ≤ 1000), số đèn trên đường và độ dài con đường. Mỗi dòng trong N dòng sau chứa 3 số nguyên D, R, G (1 ≤ D < L, 1≤ R ≤ 100, 1 ≤ G ≤ 100) mô tả một đèn. D là khoảng cách của đèn từ khi bắt đầu con đường. R và G xác định bao lâu đèn đỏ và xanh tương ứng. Các đèn theo thứ tự tăng dần của D. Không có 2 đèn cùng vị trí.
Output
Đưa ra thời gian/giây để An đến cuối đường.
Sample test data
Input Output
2 10 12
3 5 5
5 2 2

4 30 36
7 13 5
14 4 4
15 3 10
25 1 1
Giải thích: Trong ví dụ 1, An đợt 2 giây ở đèn đầu tiên. Sau khi đến đèn thứ 2 trong lúc nó xanh và có thể đi thẳng qua.

[hanhkhachruoi]

Mình có bài này nhưng làm hoài không ra xin mọi người chỉ giáo dùm

Viết chương trình nhập vào một danh sách hóa đơn gồm
Số hợp đồng
ngày lập
mã hàng
số lượng
đơn giá
thành tiền
Lưu danh sách hóa đơn vào HD.dat
(thành tiền = đơn giá * số lượng)
hiện danh sách hợp đồng và nhập
sắp xếp danh sách theo ngày lập
tìm các hóa đơn có tiền thanh toán >150 000
thống kê các mặt hàng được bán với số lượng >100
thống kê cá hóa đơn có tiền >1 000 000
xóa bỏ các hóa đơn ngày 1/1/2008

[sockboyqn]

troi bai kiem tra so hay chu cung ko bit
day ne

program kt;
var ch:char;
begin
writeln('nhap kt can kiem tra : ');
readln(ch);
if ((ch>='a') and (ch<='z')) or ((ch>='A') or (ch<='Z')) then writeln (ch,'la chu cai')
else write(ch,'la chu so');
end.

[=========> Bổ sung bài viết <=========]

hehe
chi co bài này ma cả đống cao thủ chun zoo
CŨng đáng ^^

[laptop943hongha]

Cho em hỏi cái này với Em kinh tế học lập trình ạ

http://ddth.com/showthread.php?t=330028

[chang_ngao_op]

Giúp dùm mình 1 bài tập về mảng 1 chiều với :
1. Chèn thêm 1 phần tử vào mảng
2. Xóa 1 phần tử trong mảng

[nirvanat]

1.. phần râu ria bạn tự thêm naz.

 write('nhap phan tu muon chen');readln(k);
 write('ban muon chen ',k:4,' vao vi tri nao?');readln(vtr);
 {gia su n la so phan tu cua mang A hien thoi}
 A[n+1]:=0;
 For i:=n downto vtr do
 begin
   A[i]:=tg;
   A[i]:=A[i+1];
   A[i+1]:=tg;
 end;
 A[vtr]:=k;

Bài 2 cũng tương tự như vậy đó bạn

[campham123]

lên đi cho anh em học nào