sau khi đoạn chương trình x:=0; y:=5; for i:=1 to 5 do x:=x+2; y:=y+x; cho biết lệnh lặp giá trị x và y và chương trình thực hiện bao nhiêu vòng lặp?
sau khi đoạn chương trình x:=0; y:=5; for i:=1 to 5 do x:=x+2; y:=y+x; cho biết lệnh lặp giá trị x và y và chương trình thực hiện bao nhiêu vòng lặp?
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à kết quả ra màn hình tổng các chữ số của n(biến T)
#include <bits/stdc++.h>
using namespace std;
long long n,x,t;
int main()
{
cin>>n;
t=0;
while (n>0)
{
x=n%10;
t=t+x;
n/=10;
}
cout<<t;
return 0;
}
Var t,n:integer;
begin
write('nhap n = ');readln(n);
while n div 10 <> 0 do
begin
t:=t+(n mod 10);
n:=n div 10;
end;
write('Tong cac chu so cua ',n,' la ',t);
readln;
end.
Câu 1: Viết chương trình nhập vào một sô nguyên dương y từ bàn phím. Hãy viết chương trình pascal số y có chia hết cho 5 hay không và in kết quả ra màn hình.
Câu 2: Viết chương trình nhập vào 3 số thực m,n,h. Hãy viết trương trình pascal tìm điểm lớn nhất trong 3 số đó và in kết quả ra màn hình.
Câu 3: Viết chương trình nhập vào 2 số nguyên x,y từ bàn phím. Em hãy viết chương trình pascal sắp xếp 2 biến trên theo giá trị tăng dần và in ra màn hình kết quả đã sắp xếp.
1)Program songuyenduong;
Uses crt;
Var y: integer;
Begin
clrscr;
writeln('nhap so y'); readln(y);
if (y mode 5)=0 then writeln(y,'chia het cho 5')else write(y,' khong chia het cho 5');
readln;
End.
2)
Program solonnhat;
uses crt;
var m,n,h,max: real;
Begin
clrscr;
writeln('nhap so m'); readln(m);
writeln('nhap so n'); readln(n);
writeln('nhap so h'); readln(h);
max:=m;
if m < n then max:=n;
if max < h then max=h then write('so lon nhat',max);
readln;
End.
3)
Progam sapxep;
uses crt;
var x,y: integer;
begin
clrscr;
write('nhap so x'); readln(x);
write('nhap so y'); readln(y);
if x<y then write(x,' ',y);
if x>y then write(y,' ',x) else write(x,' ',y);
end.
Dạng 1: ÍT NHẤT
Bài 1: Viết chương trình tạo 1 mảng số nguyên có ít nhất 10 phần tử. In giá trị
các phần tử có trong mảng ra màn hình.
Bài 2: Viết chương trình tạo 1 mảng có ít nhất 10 phần tử. In giá trị các phần tử
có trong mảng ra màn hình.
Dạng 2: TỐI ĐA
Bài 1: Viết chương trình tạo 1 mảng số nguyên có tối đa 100 phần tử. In giá trị
các phần tử có trong mảng ra màn hình.
Bài 2: Viết chương trình tạo 1 mảng có tối đa 100 phần tử. In giá trị các phần
tử có trong mảng ra màn hình.
Dạng 3: GỒM
Bài 1: Viết chương trình tạo 1 mảng số nguyên gồm 5 phần tử. In giá trị các
phần tử có trong mảng ra màn hình.
Bài 2: Viết chương trình tạo 1 mảng gồm 10 phần tử. In giá trị các phần tử có
trong mảng ra màn hình.
Với đoạn chương trình Pascal sau đây, hãy cho biết lệnh Writeln in ra màn hình giá trị của j và k là bao nhiêu?(i,j,k là tên các biến kiểu nguyên)
j:=1; k:=4;
for i:=1 to 6 do
if i mod 3=0 then j:=j+1;
k:=k+j;
Writeln(j,k);
Màn hình sẽ in ra giá trị: 3 7
Giải thích:
Câu lệnh if i mod 3=0 then j:=j+1 có nghĩa là j bằng một cộng với số các số chia hết cho 3.
k:=k+j có nghĩa là k bằng bốn cộng với giá trị của j đã tìm.
Câu 1 : Viết chương trình kiểm tra xem N được nhập từ bàn phím có phải là số nguyên tố hay ko ?
Câu 2 : Viết chương trình nhập vào một mảng các số nguyên . Ghi ra màn hình . Tìm giá trị max , min của mảng đó
Câu 1:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<2 then writeln(n,' khong la so nguyen to')
else begin
kt:=0;
for i:=2 to n-1 do
if n mod i=0 then kt:=1;
if kt=0 then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
end;
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la: ',max);
writeln('So nho nhat la: ',min);
readln;
end.
1) Cho đoạn a sau hãy cho biết lệnh writeln in ra màn hình giá trị của i,j và k là bao nhiêu?
j=1; k=4;
for i:=1to7 do j:=i+1; k:=k+j
writeln(j,k)
2)Với câu lệnh sau chương trình thực hiện bao nhiêu vòng lặp?
S:=0; N:=0;
while3<=10 do
Begin N:N+1; S:=S+N;
End
thực hiện phép nhân , rút gọn rồi tính giá trị của biểu thức
x(x^2-y)-x^2(x+y)+y(x^2-x)
tại x=1/2 và y=-100
1) Viết chương trình nhập vào giá trị K từ bàn phím xuất ra màn hình các giá trị từ 1 đến K 2) Viết chương trình nhập vào một mảng gồm N phần tử được nhập từ bàn phím. Tình tổng các giá trị phần tử của mảng đó Giúp mình với gần làm bài tập rồi
Câu 1:
uses crt;
var k,i:integer;
begin
clrscr;
write('Nhap k='); readln(k);
for i:=1 to k do
write(i:4);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac gia tri cua day la: ',t);
readln;
end.
Trong thí nghiệm y-âng về giao thoa ánh sáng có a=1,2mm, ánh sáng có bước sóng landa=0,5um thì tại điểm H trên màn cách vân trung tâm một đoạn x=1/2a là một vân tối. Khi dịch chuyển màn từ từ theo phương vuông góc với màn và ra xa thì tại H thấy xuất hiện 2 lần vân sáng và 2 lần vân tối. Nếu tiếp tục dời tiếp thì ko thấy vân nào xuất hiện tại H nữa. Hỏi khoảng dịch chuyển của màn từ lúc đầu đến khi thấy vân tối cuối cùng là bn?