tìm giá trị lớn nhất của 1 dãy số (đề bài chỉ yêu cầu vậy thôi. Ko cho bt là trong excel,free pascal,...)
lưu ý là trình bày vào vở ghi
Viết chương trình Pascal thực hiện các yêu cầu sau:
- Nhập vào một dãy số gồm N số nguyên
- Hiển thị dãy số vừa nhập
- Tìm giá trị lớn nhất, nhỏ nhất trong dãy số trên
program max_min;
uses crt;
var i,n,max,min:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
writeln('day vua nhap la:');
for i:=1 to n do
write(a[i]:3);
writeln;
max:=a[1];min:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('gia tri lon nhat: ',max,' gia tri nho nhat: ',min);
readln;
end.
uses crt;
var a:array[1..1000000] of longint;
n,i,max,min:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap: ');
for i:=1 to n do write(a[i],' '); writeln;
max:=a[1];min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('GTLN: ',max);
writeln('GTNN: ',min);
readln;
end.
tích của hai số bằng 2005. nếu một số gấp lên 2 lần và số kia gấp lên 5 lần thì tích mới là bao nhiêu
LƯU Ý : BÀI CHỈ ĐƯỢC TRÌNH BÀY Ở 6 DÒNG THÔI NHA
AI GIẢ ĐƯỢC MIK TICK CHO NHA
các bn trình bày khoa học đc ko tại cái này mik viết vào vở bt đó
nhưng cũng đừng mong mik tich nếu chỉ viết (tich cho mình đi mình giải cho) thôi đâu nha ok
Gọi a, b là hai số, thì tích là a x b = 2005.
khi tăng thừa số này tăng lên hai lần và tăng thừa số kia lên 5 lần thì ta có :
(a x 2) x (b x 5)
= a x b x 2 x 5
= a x b x 10
= 2005 x 10 = 20050
Vậy tích mới là 20050.
Gọi 2 số đó là a và b
Ta có:
axb=2005
Nếu gấp một số lên 2 lần và số kia lên 5 lần thì ta có:
(ax2)x(bx5)=(axb)x10=2005x10=20050
Cho dãy số nguyên N=6{7;9;1;2;6;10}
Yêu cầu tìm giá trị lớn nhất của dãy số
-Xác định bài toán
- Nêu ý tưởng
- Mô phỏng thuật toán qua bảng mô phỏng
Xác định bài toán
Input: Dãy n số
Output: Max của dãy số
Ý tưởng: Sẽ sắp xếp dãy theo chiều tăng dần, rồi xuất ra số cuối cùng của dãy
DAYTANG
Cho dãy gồm N số ai với (1<n,ai<10^5)
Lập trình giải quyết các yêu cầu sau:
1/ Dem trong day trên có bao nhiêu dãy con tăng liên tục
2/ In ra độ dài dãy con tăng dài nhất
File inp và out theo tên đề bài
Daytang.inp
Daytang.out
[Free Pascal]
Mn giúp mik bt Tin Học với ạ..! Mn lm đc bài nào thì làm nha ...!
Câu 1 (7,0 điểm): Số chính phương.
Cho trước số nguyên dương N (0< N≤ 106 ). Yêu cầu: Tìm số nguyên dương K nhỏ nhất sao cho tích của K và N là một số chính phương. Dữ liệu vào: File CP.INP chứa số N. Dữ liệu ra: File CP.OUT ghi số nguyên K tìm được.
Câu 2 (6,0 điểm): Dòng lớn nhất.
Cho một tệp tin gồm nhiều dòng. Trên mỗi dòng chứa một xâu kí tự chỉ gồm các kí tự chữ cái và chữ số, độ dài của mỗi xâu không quá 255 kí tự.
Yêu cầu: Đưa ra dòng có nhiều kí tự chữ cái nhất, nếu có nhiều dòng thỏa mãn thì đưa ra dòng đầu tiên có nhiều kí tự chữ cái nhất. Dữ liệu vào: File DLN.INP gồm:
+ Dòng đầu ghi số N là số lượng dòng chứa các xâu kí tự.
+ N dòng tiếp theo: mỗi dòng ghi một xâu kí tự. Dữ liệu ra: File DLN.OUT ghi ra dòng có nhiều kí tự chữ cái nhất, nếu có nhiều dòng thỏa mãn thì đưa ra dòng đầu tiên có nhiều kí tự chữ cái nhất.
Câu 3 (4,0 điểm): Dãy con đối xứng.
Một dãy số liên tiếp gọi là dãy đối xứng nếu đọc các số theo thứ tự từ trái sang phải cũng giống như khi đọc theo thứ tự từ phải sang trái. Cho dãy số A gồm N số nguyên dương: a1, a2,..., aN (1≤ N≤ 10000; 1≤ ai≤ 32000; 1≤ i≤ N)
Yêu cầu: Hãy tìm dãy con đối xứng dài nhất của dãy A. Nếu có nhiều dãy con thoả mãn thì lấy dãy con xuất hiện đầu tiên trong dãy A. Dữ liệu vào: File DX.INP gồm 2 dòng:
- Dòng 1: ghi số nguyên dương N.
- Dòng 2: ghi N số nguyên dương lần lượt là giá trị của các số trong dãy A, các số được ghi cách nhau ít nhất một dấu cách.
Dữ liệu ra: File DX.OUT ghi dãy tìm được trên cùng một dòng, các số được ghi cách nhau một dấu cách.
Câu 4 (3,0 điểm): Dãy nguyên tố.
Cho một dãy số B gồm n số nguyên dương (n ≤ 1000), mỗi phần tử trong dãy có giá trị không quá 30000. Yêu cầu:
+ Tìm dãy con dài nhất (liên tiếp hoặc không liên tiếp) các phần tử là những số nguyên tố có giá trị tăng dần của dãy B và thứ tự của các phần tử không đổi so với ban đầu. Ví dụ: Dãy 8 phần tử {4, 2, 5, 6, 3, 3, 7, 9} có dãy con nguyên tố tăng dài nhất là {2, 5, 7}.
+ Nếu có nhiều dãy con thoả mãn thì lấy dãy con xuất hiện đầu tiên trong dãy B. Dữ liệu vào: File NT.INP gồm 2 dòng:
- Dòng 1: Ghi số nguyên dương n.
- Dòng 2: Ghi n số nguyên dương, các số được ghi cách nhau một dấu cách. Dữ liệu ra: File NT.OUT ghi dãy con tìm được trên cùng 1 dòng, giữa 2 phần tử liền kề trong dãy có một dấu cách.
Cho dãy số 15 30 1 2 4 -1 18 3 tìm giá trị nhỏ nhất của dãy số: Yêu cầu - Xác định bài toán - ý tưởng - Thuật toán liệt kê
#include <bits/stdc++.h>
using namespace std;
long long x,i,n,nn;
int main()
{
cin>>n>>x;
nn=x;
for (i=1; i<n; i++)
{
cin>>x;
nn=min(nn,x);
}
cout<<nn;
return 0;
}
Chênh lệch lớn nhất:
Cho dãy gồm N số nguyên (N<10^6 ) ai (ai<10^12)
Lập trình tính độ chệnh lệch lớn nhất giữa 2 số liền kề nhau: Gọi K là độ chệnh lêch của 2 số đứng cạnh nhau thì K được tính như sau: K=ai -ai+1; Yêu cầu tìm K Max
- Tên file bài làm: KMAX.PAS
- Tên file input: kmax.inp
- Tên file output: kmax.out
[Free Pascal]
Đề bài: Tìm số 7 trong dãy sau:
ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ7ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ.
Lưu ý: Đây chỉ là đố vui thôi nha.
cột tứ 6 , dòng thứ 33
trả lời đầu tiên . mong bn k
ngu toán khẩn cấp ơi ( mình chẳng biết gọi bạn sao nữa ), đáp án là là cột thứ 33 dòng thứ 6 nha ! Bạn bị lộn 2 cái rồi (T^T)
Viết chương trình tìm giá trị nhỏ nhất trong dãy A gồm N số nguyên (N không quá 100), nhập từ bàn phím (yêu cầu: sử dụng hàm tìm số nhỏ nhất trong 2 số x và y) Dùng pascal ạ mn giúp mình với!!!
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.