viết chương trình in ra màn hình dòng chữ tên hs _lop và nhập vào 3 số nguyên a,b,c từ bàn phím và thực hiện các công việc sau
a) tính tổng a,b,c
b) tính tích a,b,c
c)cho biết a là số chẵn hay lẻ
viết chương trình in ra màn hình dòng chữ tên hs _lop và nhập vào 3 số nguyên a,b,c từ bàn phím và thực hiện các công việc sau
a) tính tổng a,b,c
b) tính tích a,b,c
c)cho biết a là số chẵn hay lẻ
uses crt;
var a,b,c,s,x:integer;
begin
clrscr;
write('hs_lop');
writeln('nhap 3 so=');readln(a,b,c);
begin
s:=a+b+c;
writeln('tong la:',s);
x:=a*b*c;
writeln('tich la:',x);
end;
if a mod 2 =0 then writeln(a,'la so chan')
else write('a,'la so le');
readln;
end.
mình ko chắc pn kt thử xem
Viet chuong trinh nhap vao 1 mảng gom n phần tử số thực
a) in mảg vua nhập
b) tìm giá trị nhỏ nhất của mảng
c) sap xep mảg tăng dần
chương trình sẽ là:
var i,n,j,tang,min:integer;
A:array[1..100] of longint;
begin
readln(n);
for i:=1 to n do readln(A[i]);
writeln('mang vua nhap');
for i:=1 to n do writeln(A[i]:3);
min:=A[i];
for i:=2 to n do
if A[i]<min then min:=A[i];
writeln('gia tri nho nhat la ' , min);
for i:=1 to n-1 do
for j:=i+1 to n do
if A[i]>A[j] then
begin
tang:=A[i];
A[i]:=A[j];
A[j]:=tang;
end;
writeln('day so sau khi sap xep tang dan');
for i:=1 to n do writeln(A[i]:3);
end.
Giúp mình với...
Viết chương trình nhập vào một dãy số nguyên a gồm n phần tử (0<n<=50)
-In ra màn hình dãy vừa nhập
-In ra màn hình các số trong dãy là ước của số b,tính trung bình các số đó (với b được nhập từ bàn phím).
-In ra màn hình các số chẵn trong dãy và sắp xếp các số chẵn có trong dãy theo thứ tự tăng dần
Thánh nào giỏi pascal viết zúp mình cái chương trình tính hàm nhỏ nhất của cân nặng các bạn trong lớp.
Mình cần gấp nha. Tks nhiều
uses crt;
var a:array[1..100]of real;
i,n:integer;
min,x:real;
begin
clrscr;
readln(n);
min:=500;
for i:=1 to n do
begin
readln(x);
if min>x then min:=x;
end;
writeln(min:4:2);
readln;
end.
viết chương trình nhập vào 1 mảng gồm có n phần tử
a) in mảng đó ra màn hình
b) tính tổng các phần tử trong mảng
c)tính tổng các phần tử chẵn/lẽ
d) tính tổng các phần tử chia hết cho 2
var i,n,s:integer;
A:array[1..100] ò longint;
begin
readln(n);
for i:=1 to n do
begin
write('A[',i,']=');
readln(A[i]);
end;
s:=0;
for i:=1 to n do s:=s+A[i];
write(s);
s:=0;
if A[i] mod 2=0 then s:=s+A[i];
write(s);
end.
uses crt;
var n,i,tong,tongc,tongle: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('mang vua nhap la:');
for i:=1 to n do write(a[i]:2);
tong:=0; tongc:=0; tongle:=0;
for i:=1 to n do
begin
tong:=tong+a[i];
if a[i] mod 2 = 0 then tongc:=tongc+a[i]
else tongle:=tongle+a[i];
end;
writeln('tong cac phan tu trong mangla:', tong);
writeln('tong cac phan tu chan la:', tongc);
writeln('tong cac phan tu le la:', tongle);
write('tong cac phan tu chia het cho 2 la:', tongc);
readln;
end.
* vì số chẵn là số chia hết cho 2 nên tổng các phần tử chia hết cho 2 cũng là tổng các số chẵn,
viết chương trình nhập vào điểm môn tin của n bạn sử dụng 2 cách
Cách 1
program CTNMT;
uses crt;
var n,i: longint;
A: array [1..1000] of longint;
Begin
Writeln('Hay nhap vao so hoc sinh ban muon nhap diem: ');
Readln(N);
For i:=1 to n do
begin
Writeln('Nhap diem tin cua ban thu ',n);
Readln(A[i]);
end;
Readln;
end.
(Đây chỉ là chương trình nhập vào thôi nha, muốn xuất thì dùng cậu lệnh lặp để xuất từng phần tử của mảng)
Cách 2 bạn có thể thay thế bằng câu lệnh While...do cho câu For...to...do bằng câu lệnh: While i<=N do.........
Viết chương trình nhập vào 1 mảng số nguyên 10 phần tử sau đó in ra màn hình mảng vừa nhập ?
VD : A[1] = 0 ; A[2] = 7 ; A[3]=8 ; A[4]=1 ; A[5]=9;
A[6]=3 ; A[7] =4 ; A[8] =11 ; A[9] = 100; A[10]=-5
In ra màn hình : 0 7 8 1 9 3 4 11 100 -5
Program ct; USES CRT; Var n,i: Integer; A:array[1..10] of integer; Begin Clrscr; Write(' nhap n:'); Readln(n); For i:=1 to n do begin Write('A[',i,']='); Readln(A[i]); end; For i:=1 to n do Write(A[i]); Readln; End.
( Nếu đề chỉ yêu cầu là nhập 10 phần tử thì không cần khai báo n và thay n -> 10 trong câu lệnh for...do. Còn đề yêu cầu in n phần tử thì làm như trên).
Viết chương trình nhập vào một mảng gồm N phần tử, in ra mảng vừa nhập, in ra các phần tử là số chẵn trong mảng, đếm xem có bao nhiêu phần tử là số nguyên âm trong mảng ( N nhập từ bàn phím)
Các bạn nào biết làm thì giúp mình với mai phải nộp bài rồi huhuhu
program CTNMT;
uses crt;
var n,i,dem: longint;
A: array [1..1000] of longint;
Begin
Writeln('Ban hay N'); Readln(n);
for i:=1 to n do
begin
Writeln('Nhap so thu ',i); Readln(a[i]);
end;
Writeln('In ra mang:');
for i:1 to n do Write(a[i]:5);
writeln;
Writeln('In ra so chan trong mang');
for i:= 1 to n do
begin
if (a[i] mod 2) = 0 then Write(a[i]:5)
if a[i] < 0 then dem:= dem +1;
end;
writeln('so so nguyen am la: ',đem);
REadln;
end.
Viết chương trình tính tổng C = 1+8+27+...+n3
PROGRAM TINH_TONG;
Uses Crt;
N, i, C:Integer;
BEGIN
clrscr();
Repeat
begin
Write('Nhap N='); Readln(N);
end;
Until N>0;
C:=1;
For i:=2 To N Do
C:= C + i*i*i;
Writeln('Tong can tim la C = ', C);
Readln;
END.
var i,n:integer;
s:longint;
begin
write('nhap so n:'); readln(n);
s:=0;
for i:=1 to n^3 do s:=s+i;
readln
end.
var i,n:integer;
s:longint;
begin
write('nhap so n:'); readln(n);
s:=0;
for i:=1 to n*n*n do s:=s+i;
write('tong la',s);
readln
end.
1)Viết chương trình sử dụng câu lệnh lặp while do tính tổng các số chẵn của N.
2)Viết chương trình nhập vào một mảng số nguyên. Liệt kê các phần tử là số nguyên âm.
Giải giùm mk đi đang gấp lắm!! Mai kiểm tra rùi
1)
program MQRN;
uses crt;
var N,S,i: longint;
begin
Writeln('Nhap n'); Readln(n);
i:=1; S:=0;
while i<=N do
begin
if (i mod 2)=0 then S:=S+i;
i:=i+1;
end;
Writeln('Tong cac so chan la :',S);
Readln;
end.
2)
program Tim_so_am;
uses crt;
var a: array[1..1000] of integer;
i,N: longint;
begin
Writeln('Nhap so phan tu N: '); Readln(n);
for i:= 1 to n do
begin
Writeln('Nhap so thu ',i); Readln(a[i]);
end;
for i:= 1 to n do if a[i] < 0 then Write(a[i]:5);
Readln;
end.