#include <bits/stdc++.h>
using namespace std;
long long n,i,a[10000];
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
for (i=1; i<=n; i++)
cout<<a[i]<<" ";
}
cho số nguyên dương n và dãy số a1 ,a2,...,an .Em hãy lập trình tìm số nguyên dương lớn thứ nhì trong dãy số đó(lập trình pascal)
nhập từ bàn phím 1 mảng 1 chiều a có tối đa 50 phần tử, sau đó in lên màn hình:
a) các phần tử là số lẻ
b)các phần tử ở vị trí chẵn
c)là số lẻ ở vị trí chẵn
Viết chương trình cho máy tính nhận vào 2 số nguyên m,n. Nếu m là bội của n thì thông báo ra màn hình kết quả m:n, Nếu n là bội của m thì thông báo ra màn hình kết quả n:m, Nếu m không là bội của n hoặc n không phải bội của n thì thông báo ra màn hình kết quả m+n.
Một công ti sản xuất tấm cách nhiệt nhiều tầng . Mỗi tầng thứ i có một hệ số cách nhiệt là ai . các tầng được đánh số từ hướng nóng ra bên ngoài.
hơi nóng -->||a1|a2|...|ai|ai+1|...|an||--> ra bên ngoài
Hệ số cách nhiệt của một tấm cách nhiệt được đo bằng công thức sau :
A=\(\sum\limits^n_{i=1}\)ai+\(\sum\limits^{n-1}_{i=1}\)max(0;ai+1-ai)
vd: hệ số cách nhiệt của tấm cách nhiệt sau :-->||5|4|1|7||-->là A=(5+4+1+7)+(7-1)=23
bạn hãy viết một chương trình : cho hệ số của các tầng cách nhiệt, hãy xắp xếp lại thứ tự các tầng cách nhiệt sao cho hệ số cách nhiệt của cả tấm là lớn nhất có thể .
dữ liệu vào : từ tệp văn bản CACHNHIET.INP có cấu trúc như sau:
+ dòng đầu tiên ghi số nguyên dương n là số tầng của tấm cách nhiệt (n<= 105)
+n dòng tiếp theo, dòng i ghi một số nguyên dương ai thể hiện hệ số cách nhiệt của lớp cách nhiệt thứ i(1<=a1<=10000)
kết quả đưa ra tệp văn bản CACHNHIET.OUT một số duy nhất là hệ số cách nhiệt lớn nhất của tấm tìm được
vd:
CACH NHIET.INP CACHNHIET.OUT
4 24
5
4
1
7
(lập trình pascal)
Một công ti sản xuất tấm cách nhiệt nhiều tầng . Mỗi tầng thứ i có một hệ số cách nhiệt là ai . các tầng được đánh số từ hướng nóng ra bên ngoài.
hơi nóng -->||a1|a2|...|ai|ai+1|...|an||--> ra bên ngoài
Hệ số cách nhiệt của một tấm cách nhiệt được đo bằng công thức sau :
A=n∑i=1∑i=1nai+n−1∑i=1∑i=1n−1max(0;ai+1-ai)
vd: hệ số cách nhiệt của tấm cách nhiệt sau :-->||5|4|1|7||-->là A=(5+4+1+7)+(7-1)=23
bạn hãy viết một chương trình : cho hệ số của các tầng cách nhiệt, hãy xắp xếp lại thứ tự các tầng cách nhiệt sao cho hệ số cách nhiệt của cả tấm là lớn nhất có thể .
dữ liệu vào : từ tệp văn bản CACHNHIET.INP có cấu trúc như sau:
+ dòng đầu tiên ghi số nguyên dương n là số tầng của tấm cách nhiệt (n<= 105)
+n dòng tiếp theo, dòng i ghi một số nguyên dương ai thể hiện hệ số cách nhiệt của lớp cách nhiệt thứ i(1<=a1<=10000)
kết quả đưa ra tệp văn bản CACHNHIET.OUT một số duy nhất là hệ số cách nhiệt lớn nhất của tấm tìm được
vd:
CACH NHIET.INP CACHNHIET.OUT
4 24
5
4
1
7
(lập trình pascal)
Cho chương trình sau:
Program C_trinh_con;
Var d: char;
X1: string;
Procedure Xoa (a: char ; var Xt:string);
Var j: byte;
Begin
j := pos (a, Xt);
while j < > 0 do
begin
delete(Xt, j, 1);
j := pos(a, Xt);
end;
End;
Begin
X1:=’SEPTEMBER’;
d := ‘E’;
Xoa (d, X1);
End.
a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây
b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.
Cho chương trình sau:
Program C_trinh_con;
Var d: char;
X1: string;
Procedure Xoa (a: char ; var Xt:string);
Var j: byte;
Begin
j := pos (a, Xt);
while j < > 0 do
begin
delete(Xt, j, 1);
j := pos(a, Xt);
end;
End;
Begin
X1:=’SUCCESSFUL’;
d := ‘S’;
Xoa (d, X1);
End.
a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây: 
b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.
Cho chương trình sau:
Program Baitap;
Var S1, S2 : string;
Procedure Xu_li_xau(a:string; var St:string);
Var i: byte;
Begin
i := pos (a, St);
while i < > 0 do
begin
delete(St, i, 4);
i := pos(a, St);
end;
End;
Begin
S1 := ‘sen trang, sen hong;
S2 := ‘sen’;
Xu_li_xau(S2,S1);
End.
a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây:
b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.
Cho chương trình sau:
Program Baitap;
Var S1, S2 : string;
Procedure Xu_li_xau(a:string; var St:string);
Var i: byte;
Begin
i := pos (a, St);
while i < > 0 do
begin
delete(St, i, 4);
i := pos(a, St);
end;
End;
Begin
S1 := ‘hoc nua, hoc mai;
S2 := ‘hoc’;
Xu_li_xau(S2,S1);
End.
a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây:
b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.
