Em hãy viết chương trình thực hiện yêu cầu sau Nhập giá trị n từ bàn phím. Tính và in ra màn hình tổng các chữ số của n(biến T) VD: n có giá trị là 30546 --> T có giá trị là 18(3+0+5+4+6)
Cho dãy N số nguyên ( với n nhập vào từ bàn phím) . Viết chương trình thực hiện các yêu cầu sau. a. Nhập vào dãy số n và giá trị từng phần của dãy. b. Xuất giá trị của dãy vừa nhập. c. Tính tổng các phần tử của dãy. d. In ra màn hình giá trị Max, Min của dãy. e. Tính tổng các phần tử dương của dãy. f. Tính tổng các phần tử âm của dãy. g. Tính tổng các phần tử chẵn của dãy. h. Tính tổng các phần tử lẻ của dãy. i. Sắp xếp các phần của dãy theo thứ tự giảm dần. k. Sắp xếp các phần của dãy theo thứ tự tăng dần.
Cho dãy N số nguyên (với n nhập vào từ bàn phím). Viết chương trình thực hiện các yêu cầu sau.
a. Nhập vào dãy số n và giá trị từng phần tử của dãy.
b. Xuất giá trị của dãy vừa nhập.
c. Tính tổng các phần tử của dãy
d. In ra màn hình giá trị Max, Min của dãy.
e. Tính tổng các phần tử dương của dãy
f. Tính tổng các phần tử âm của dãy.
g. Tính tổng các phần tử chẵn của dãy.
h. Tính tổng các phần tử lẻ của dãy.
i. Sắp xếp các phần của dãy theo thứ tự giảm dần.
k. Sắp xếp các phần của dãy theo thứ tự tăng dần.
program tinh_toan_day_so;
const
MAX = 1000;
var
a: array[1..MAX] of integer;
n, i, tong, tong_duong, tong_am, tong_chan, tong_le, max, min, temp: integer;
begin
// Nhập dãy số và giá trị từng phần tử của dãy
write('Nhập số phần tử của dãy: ');
readln(n);
for i := 1 to n do
begin
write('Nhập phần tử thứ ', i, ': ');
readln(a[i]);
end;
// Xuất giá trị của dãy vừa nhập
writeln('Dãy số vừa nhập là: ');
for i := 1 to n do
begin
write(a[i], ' ');
end;
writeln();
// Tính tổng các phần tử của dãy
tong := 0;
for i := 1 to n do
begin
tong := tong + a[i];
end;
writeln('Tổng các phần tử của dãy là: ', tong);
// Tìm giá trị Max, Min của dãy
max := a[1];
min := a[1];
for i := 2 to n do
begin
if a[i] > max then
begin
max := a[i];
end;
if a[i] < min then
begin
min := a[i];
end;
end;
writeln('Phần tử lớn nhất của dãy là: ', max);
writeln('Phần tử nhỏ nhất của dãy là: ', min);
// Tính tổng các phần tử dương, âm, chẵn, lẻ của dãy
tong_duong := 0;
tong_am := 0;
tong_chan := 0;
tong_le := 0;
for i := 1 to n do
begin
if a[i] > 0 then
begin
tong_duong := tong_duong + a[i];
end
else
begin
tong_am := tong_am + a[i];
end;
if a[i] mod 2 = 0 then
begin
tong_chan := tong_chan + a[i];
end
else
begin
tong_le := tong_le + a[i];
end;
end;
writeln('Tổng các phần tử dương của dãy là: ', tong_duong);
writeln('Tổng các phần tử âm của dãy là: ', tong_am);
writeln('Tổng các phần tử chẵn của dãy là: ', tong_chan);
writeln('Tổng các phần tử lẻ của dãy là: ', tong_le);
// Sắp xếp các phần tử của dãy theo thứ tự giảm dần
for i := 1 to n-1 do
begin
for j := i+1 to n do
begin
if a[i] < a[j] then
begin
temp := a[i];
a[i] := a[j];
a[j] := temp;
end;
end;
end;
writeln('Dãy số sau khi được sắp xếp giảm dần là: ');
for i := 1 to n do
begin
write(a[i], ' ');
end;
writeln();
// Sắp xếp các phần tử của dãy theo thứ tự tăng dần
for i := 1 to n-1 do
begin
for j := i+1 to n do
begin
if a[i] > a[j] then
begin
temp := a[i];
a[i] := a[j];
a[j] := temp;
end;
end;
end;
writeln('Dãy số sau khi được sắp xếp tăng dần là: ');
for i := 1 to n do
begin
write(a[i], ' ');
end;
writeln();
readln;
end.
rất dài nha bạn:
program XuLyDaySo;
var
N, i, soNguyen: integer;
daySo: array of integer;
procedure NhapDaySo(var daySo: array of integer; N: integer);
var
i: integer;
begin
SetLength(daySo, N);
for i := 0 to N - 1 do
begin
write('Nhap phan tu thu ', i + 1, ': ');
readln(daySo[i]);
end;
end;
procedure XuatDaySo(daySo: array of integer);
var
i: integer;
begin
writeln('Danh sach cac phan tu trong day:');
for i := 0 to Length(daySo) - 1 do
write(daySo[i], ' ');
writeln;
end;
function TinhTongDaySo(daySo: array of integer): integer;
var
i, tong: integer;
begin
tong := 0;
for i := 0 to Length(daySo) - 1 do
tong := tong + daySo[i];
TinhTongDaySo := tong;
end;
procedure TimMaxMin(daySo: array of integer; var Max, Min: integer);
var
i: integer;
begin
Max := daySo[0];
Min := daySo[0];
for i := 1 to Length(daySo) - 1 do
begin
if daySo[i] > Max then
Max := daySo[i];
if daySo[i] < Min then
Min := daySo[i];
end;
end;
function TinhTongDuong(daySo: array of integer): integer;
var
i, tong: integer;
begin
tong := 0;
for i := 0 to Length(daySo) - 1 do
if daySo[i] > 0 then
tong := tong + daySo[i];
TinhTongDuong := tong;
end;
function TinhTongAm(daySo: array of integer): integer;
var
i, tong: integer;
begin
tong := 0;
for i := 0 to Length(daySo) - 1 do
if daySo[i] < 0 then
tong := tong + daySo[i];
TinhTongAm := tong;
end;
function TinhTongChan(daySo: array of integer): integer;
var
i, tong: integer;
begin
tong := 0;
for i := 0 to Length(daySo) - 1 do
if daySo[i] mod 2 = 0 then
tong := tong + daySo[i];
TinhTongChan := tong;
end;
function TinhTongLe(daySo: array of integer): integer;
var
i, tong: integer;
begin
tong := 0;
for i := 0 to Length(daySo) - 1 do
if daySo[i] mod 2 <> 0 then
tong := tong + daySo[i];
TinhTongLe := tong;
end;
procedure SapXepGiamDan(var daySo: array of integer);
var
i, j, temp: integer;
begin
for i := 0 to Length(daySo) - 2 do
for j := i + 1 to Length(daySo) - 1 do
if daySo[i] < daySo[j] then
begin
temp := daySo[i];
daySo[i] := daySo[j];
daySo[j] := temp;
end;
end;
procedure SapXepTangDan(var daySo: array of integer);
var
i, j, temp: integer;
begin
for i := 0 to Length(daySo) - 2 do
for j := i + 1 to Length(daySo) - 1 do
if daySo[i] > daySo[j] then
begin
temp := daySo[i];
daySo[i] := daySo[j];
daySo[j] := temp;
end;
end;
begin
// Nhập số lượng phần tử N
write('Nhap so luong phan tu N: ');
readln(N);
// Nhập dãy số
NhapDaySo(daySo, N);
// Xuất dãy số
XuatDaySo(daySo);
// Tính tổng dãy số
writeln('Tong cac phan tu cua day: ', TinhTongDaySo(daySo));
// Tìm Max, Min
var Max, Min: integer;
TimMaxMin(daySo, Max, Min);
writeln('Gia tri lon nhat trong day: ', Max);
writeln('Gia tri nho nhat trong day: ', Min);
// Tính tổng các phần tử dương
writeln('Tong cac phan tu duong cua day: ', TinhTongDuong(daySo));
// Tính tổng các phần tử âm
writeln('Tong cac phan tu am cua day: ', TinhTongAm(daySo));
// Tính tổng các phần tử chẵn
writeln('Tong cac phan tu chan cua day: ', TinhTongChan(daySo));
// Tính tổng các phần tử lẻ
writeln('Tong cac phan tu le cua day: ', TinhTongLe(daySo));
// Sắp xếp giảm dần
SapXepGiamDan(daySo);
writeln('Day sau khi sap xep giam dan:');
XuatDaySo(daySo);
// Sắp xếp tăng dần
SapXepTangDan(daySo);
writeln('Day sau khi sap xep tang dan:');
XuatDaySo(daySo);
readln;
end.
Cho hai biến a,b, có kiểu dữ liệu số nguyên. Em hãy viết chương trình Pascal thực hiện các yêu cầu sau: a) Khai báo hai biến a,b. b) Nhập giá trị của hai biến a,b từ bàn phím. c) In kết quả tổng của a,b ra màn hình.
uses crt;
var a,b:int64;
begin
clrscr;
readln(a,b);
writeln(a+b);
readln;
end.
Viết chương trình nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N<=100). Các phần tử của dãy số là các số nguyên (với n là số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.
a. In ra màn hình giá trị của các phần tử vừa nhập
Tính tổng các số vừa nhập và in kết quả ra màn hình
Var a:array[1..100] of integer;
i,n:integer;
s:longint;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
Write('Cac phan tu vua nhap la ');
For i:=1 to n do
Write(a[i]:8);
Writeln;
Write('Tong cua chung la ',s);
Readln
End.
Bài 1: Viết chương trình nhập vào từ bàn phím các số thực a,b,c,d. Tính và đưa ra màn hình giá trị biểu thức: 2cb3 + 5cd4 – 3a? + bcd" - Bài 2: Viết chương trình nhập vào từ bàn phím 2 số nguyên m,n (n>0). Tính và đưa ra màn hình giá trị biểu thức nm-2 ~kíuuuuu~
Bài 2:
#include <bits/stdc++.h>;
using namespace std;
int main();
{
long m,n;
cout<<"Nhap m="; cin>>m;
cout<<"Nhap n="; cin>>n;
cout<<m*n-2;
return 0;
}
Viết chương trình nhập N số thực vào từ bàn phím, in ra màn hình giá trị nhỏ nhất và tích các giá trị của N số đã nhập vào.
uses crt;
var x,s,min:real;
i,n:integer;
begin
clrscr;
readln(n);
min:=-32000;
s:=1;
for i:=1 to n do
begin
readln(x);
if min>x then min:=x;
s:=s*x;
end;
writeln('Nho nhat la: ',min:4:2);
writeln('Tich la: ',s:4:2);
readln;
end.
Viết chương trình nhập N số nguyên vào từ bàn phím, in ra màn hình giá trị lớn nhất và tổng các giá trị của N số đã nhập vào.
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,ln,t;
int main()
{
cin>>n;
ln=LLONG_MIN;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
ln=max(ln,x);
t+=x;
}
cout<<"So lon nhat la: "<<ln<<endl;
cout<<"Tong la: "<<t;
return 0;
}
viết chương trình thực hiện công việc nhập N (N<=50) phần tử có giá trị nguyên cho mảng A từ bàn phím. In ra màn hình tổng các giá trij là số lẻ có trong mảng Ahelpppppppp, ai giải được cho 400 chịu
program TongLe;
var
N, i, Tong: integer;
A: array[1..50] of integer;
begin
write('Nhap so phan tu cua mang N (N <= 50): ');
readln(N);
for i := 1 to N do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
Tong := 0;
for i := 1 to N do
begin
if(A[i] mod 2 <> 0) then
begin
Tong := Tong + A[i];
end;
end;
writeln('Tong cac so le trong mang A la: ', Tong);
readln;
end.
Tạo chương trình Scratch để nhập hai số m, n từ bàn phím, thực hiện hoán đổi giá trị của hai biến và thông báo giá trị của biến m, n sau khi đã hoán đổi.
Ví dụ, sau khi nhập m = 23, n = 45, chương trình đưa ra kết quả ra màn hình như ở Hình 6.