K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

Bài 15. Sắp xếp                                                            Tên tệp bài làm: SORT.***Cho 3 số nguyên a, b, c.Hãy sắp xếp những số đó theo thứ tự tăng dần.Input: ba số nguyên a, b, cOutput: ba số nguyên sau khi được sắp xếp tăng dầnVí dụINPUTOUTPUT9 2 72 7 9 Bài 16. TRÒ CHƠI TRÊN TRỤC SỐ                                Tên tệp bài làm: GAMES1.***Trò chơi được mô tả như sau: trên trục số biểu diễn các điểm nguyên,...
Đọc tiếp

Bài 15. Sắp xếp                                                            Tên tệp bài làm: SORT.***

Cho 3 số nguyên a, b, c.

Hãy sắp xếp những số đó theo thứ tự tăng dần.

Input: ba số nguyên a, b, c

Output: ba số nguyên sau khi được sắp xếp tăng dần

Ví dụ

INPUT

OUTPUT

9 2 7

2 7 9

 

Bài 16. TRÒ CHƠI TRÊN TRỤC SỐ                                Tên tệp bài làm: GAMES1.***

Trò chơi được mô tả như sau: trên trục số biểu diễn các điểm nguyên, đặt ba quân cờ tại các vị trí nguyên A, B, C. Hai người chơi luân phiên. Mỗi khi đến lượt, người chơi sẽ nhặt quân cờ bên ngoài và đặt vào vị trí nguyên nào đó ở khoảng giữa hai quân cờ còn lại (không được đặt quân cờ vào vị trí đã có quân cờ ). Trò chơi kết thúc khi ba quân cờ đứng sát cạnh nhau. Người ta muốn biết có thể duy trì trò chơi lâu nhất là bao nhiêu lượt chơi.

Yêu cầu: Nhập vào các số nguyên a, b, c và in ra số lượt chơi nhiều nhất có thể.  

Ví dụ:

INPUT

OUTPUT

3 5 9

3

 

* Xem hình minh họa trục số biểu diễn 3 điểm A, B, C lúc ban đầu

0

3

A

5

B

9

C

           

 

 

 

Bài 17. KHỐI HỘP CHỮ NHẬT                                               Tên tệp bài làm: KHOIHCN.***

Một viên gạch có dạng khối hộp chữ nhật với ba kích thước là a, b, c. Người ta muốn biết: có thể đưa viên gạch đó qua lỗ hổng hình chữ nhật có kích thước x, y hay không?

Yêu cầu: Nhập vào từ bàn phím các số nguyên dương a, b, c, x và y. In ra chuỗi thông báo "CO", nếu có thể đưa viên gạch qua lỗ hổng; ngược lại, in ra chuỗi thông báo "KHONG".  

Ví dụ:

INPUT

OUTPUT

3 4 7 4 5

CO

5 4 3 3 5

KHONG

 

Bài 18. PHÂN LOẠI                                                       Tên tệp bài làm: PHANLOAI.***

Trong một phòng thí nghiệm tự động hóa, người ta đang nghiên cứu và chế tạo một số loại robot. Có ba loại robot:

+ Loại 1: Có tối thiểu 3 ăng ten và tối đa 4 camera

+ Loại 2: Có tối đa 6 ăng ten và tối thiểu 2 camera

+ Loại 3: Có tối đa 2 ăng ten và tối đa 3 camera

Yêu cầu: Khi quan sát một con robot nào đó, người ta cho em biết số ăng ten và số camera của nó. Em hãy đưa ra câu dự đoán con robot đó thuộc những loại nào trong số ba loại nói trên?

Dữ liệu: Nhập vào hai số nguyên dương A, C lần lượt là số ăng ten và số camera của một robot.

Kết quả: Chương trình in ra các số nguyên là loại của robot mà em dự đoán, thứ tự in của các số này là tăng dần (loại nhỏ in trước, loại lớn in sau). Nếu không có loại robot nào phù hợp thì chương trình cần in ra số 0.

Ví dụ:

Input

Output

4 5

2

2 3

2 3

8 6

0

 

Bài 19.  Cấp số cộng.                                                             Tên file: CAPSOCONG.***

Dãy cấp số cộng là một dãy tăng dần, trong đó số đứng sau hơn số đứng trước một giá trị d, d được gọi là công sai.

Ví dụ:  1 4 7 10 là một dãy cấp số cộng 4 phần tử công sai là 3

            2 6 10 14 18 là một dãy cấp số cộng 5 phần tử công sai là 4

            3 5 7 10 không phải là dẫy cấp số cộng 4 phần tử vì 7 – 5 ≠ 10 – 7.

Trong giờ kiểm tra Toán, Tý đã tìm được đáp án của một bài toán là 4 số tạo thành một cấp số cộng, theo yêu cầu của đề bài. Tèo ngồi bên cạnh, không chép được bài của Tý nên tìm cách chơi xỏ Tý. Lợi dụng lúc Tý không để ý Tèo dùng bút xóa xóa đi 4 số của Tý rồi viết lại 3 số nhưng không theo thứ tự ban đầu.

Tý xem lại bài thấy bài mình mất 1 số nên đã nhờ bạn giúp Tý khôi phục lại số bị thiếu ban đầu.

INPUT:

Gồm 3 số nguyên có giá trị tuyệt đối nhỏ hơn 1000, cả 3 số được viết trên 1 dòng.

Input luôn được đảm bảo có đáp án.

OUTPUT:

In ra số còn lại bị thiếu trong cấp số cộng. Nếu có nhiều đáp án, hãy in ra số lớn nhất.

INPUT

OUTPUT

4 6 8

10

10 1 7

4

Ví dụ:

 

 

 

 

* Chú thích:

Test 1: có 2 kết quả là 2 và 10, nhưng đề bài yêu cầu đưa ra số lớn nhất nên kết quả là 10.

Bài 20. Ngày tiếp theo                                                          tên file: THEDAY.***

Giả sử hôm này là ngày d tháng t năm n. Hỏi ngày mai là ngày mấy?

INPUT:

- Gồm 3 số d, t, n cách nhau một khoảng trắng biểu thị cho ngày, tháng, năm (1 ≤ d ≤ 31, 1 ≤ t ≤ 12, 0 ≤ n ≤ 9999).

- Dữ liệu cho đảm bảo là một ngày hợp lệ (Ví dụ ngày không hợp lệ: 31 2 2014)

OUTPUT

- In ra ngày, tháng, năm của ngày tiếp theo, mỗi số cách nhau một khoảng trắng. Không in số 0 ở đầu ngày và tháng.

- Cần chú ý năm nhuận tháng 2 có 29 ngày, năm nhuận là: (năm chia hết cho 400) hoặc (chia hết cho 4 và không chia hết cho 100)

Ví dụ

 

INPUT

OUTPUT

1 1 2014

2 1 2014

31 1 2014

1 2 2014

 

 

 

 

Bài 21. Tam giác                                                                    Tên file: TAMGIAC.***

Cho ba số A, B, C. Hãy kiểm tra xem A, B, C có phải là 3 góc của 1 tam giác không? Nếu là số đo góc của một tam giác thì đó là tam giác gì?

INPUT: Một dòng chứa 3 số A, B, C

OUPUT:

- Nếu không là 3 góc của 1 tam giác thì thông báo là 0

- Nếu là 3 góc của 1 tam giác thì đưa ra thông báo: CAN (tam giác cân), DEU (tam giác dều), VUONG (tam giác vuông), THUONG (tam giác thường)

Ví dụ:

INPUT

OUTPUT

47 43 90

VUONG

47 43 80

0

47 53 80

THUONG

 

1
8 tháng 3 2022

tách ra

8 tháng 3 2022

tách cụng chả có ai trl đôu=))

6 tháng 4 2023

Uses crt;

Var k: array[1..10] of integer;

i,j,n: byte;

t: integer;

begin clrscr;

Readln(n);

For i:=1 to n do Begin

readln(k[i]);

end;

For i:=1 to n-1 do For j:=i+1 to n do

if k[j] <=k[i] then begin

t:= k[i];

k[i]:=M[j];

k[j]:=t; end;

For i:=1 to n do Write(k[i],';'); readln;

end.

Dưới đây là mã chương trình Pascal để sắp xếp dãy số theo yêu cầu đã cho:

```pascal
program sorting;

const
MAX_N = 1000;

var
N, i, j, temp: integer;
arr: array[1…MAX_N] of integer;
oddArr, evenArr: array[1…MAX_N] of integer;
oddCount, evenCount: integer;
inputFile, outputFile: text;

begin
// Mở file input và đọc dữ liệu
assign(inputFile, 'sorting.inp');
reset(inputFile);
readln(inputFile, N);
for i := 1 to N do
read(inputFile, arr[i]);
close(inputFile);

// Sắp xếp mảng theo yêu cầu
oddCount := 0;
evenCount := 0;
for i := 1 to N do
begin
if arr[i] mod 2 = 1 then
begin
oddCount := oddCount + 1;
oddArr[oddCount] := arr[i];
end
else
begin
evenCount := evenCount + 1;
evenArr[evenCount] := arr[i];
end;
end;

// Sắp xếp mảng số lẻ tăng dần
for i := 1 to oddCount - 1 do
for j := i + 1 to oddCount do
if oddArr[i] > oddArr[j] then
begin
temp := oddArr[i];
oddArr[i] := oddArr[j];
oddArr[j] := temp;
end;

// Sắp xếp mảng số chẵn giảm dần
for i := 1 to evenCount - 1 do
for j := i + 1 to evenCount do
if evenArr[i] < evenArr[j] then
begin
temp := evenArr[i];
evenArr[i] := evenArr[j];
evenArr[j] := temp;
end;

// Mở file output và ghi kết quả
assign(outputFile, 'sorting.out');
rewrite(outputFile);
for i := 1 to oddCount do
write(outputFile, oddArr[i], ' ');
writeln(outputFile);
for i := 1 to evenCount do
write(outputFile, evenArr[i], ' ');
close(outputFile);
end.
```

Bạn có thể sao chép mã chương trình trên vào một tệp tin có tên `sorting.pas`, sau đó tạo một tệp tin `sorting.inp` và nhập dữ liệu theo định dạng đã cho. Chạy chương trình và kết quả sẽ được ghi vào tệp tin `sorting.out`.

var i,n:longint; a:array[1..1000] of longint;

begin

readln(n);

for i:=1 to n do read(a[i]);

for i:=1 to n do

     if a[i] mod 2=0 then 

         begin

              inc(k);

              b[k]:=a[i];

         end

else

begin

inc(t);

c[t]:=a[i];

end;

for i:=1 to k-1 do

for j:=i+1 to k do

if b[i]<b[j] then

begin

d:=b[i];

b[i]:=b[j];

b[j]:=d;

end;

for i:=1 to  t-1 do

for j:=i+1 to t do

if c[i]>c[j] then

begin

d:=c[i];

c[i]:=c[j];

c[j]:=d;

end;

for i:=1 to k do write(b[i],' ');

for i:=1 to t do write(c[i],' ');

end.

3 tháng 5 2023

1)

Var array:[1..1000] of integer;

i,n,t:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

If a[i] > a[i+1] then

Begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

End;

Write('Sap xep tang dan ');

For i:=1 to n do write(a[i]:8);

Readln

End.

3 tháng 5 2023

2)

Var array:[1..1000] of integer;

i,n,t:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

If a[i] < a[i+1] then

Begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

End;

Write('Sap xep giam dan ');

For i:=1 to n do write(a[i]:8);

Readln

End.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

sort(a+1,a+n+1);

for (i=n; i>=1; i--) cout<<a[i]<<" ";

return 0;

}

22 tháng 3 2023

program SapXepMang;
var
  N, i, j, temp: integer;
  arr: array of integer;
begin
  write('Nhap N: ');
  readln(N);
  SetLength(arr, N);
  for i := 0 to N - 1 do
  begin
    write('Nhap phan tu thu ', i + 1, ': ');
    readln(arr[i]);
  end;
  for i := 0 to N - 2 do
    for j := i + 1 to N - 1 do
      if arr[i] < arr[j] then
      begin
        temp := arr[i];
        arr[i] := arr[j];
        arr[j] := temp;
      end;
  writeln('Mang da sap xep theo thu tu giam dan: ');
  for i := 0 to N - 1 do
    write(arr[i], ' ');
  readln;
end.

 

24 tháng 4 2022

Đúng là anh thành sứt, lên đây hỏi ạ.