xấc định bài toán nêu ý nghĩa thuật toán và viết phương trinhhf bằng ngôn ngữ lập trình paccanl để giải bài toán sau
viết phương trình nhập từ bàn phím 4 số nguyên dương a,b,c,d, ttinhs tổng các số chia hết cho 10 (4 số a,b,c,d, kiểm tra số nào chia hết cho 10 thì cộng lại với nhau)
Viết chương trình bằng ngôn ngữ lập trình Pascal để nhập vào N số nguyên từ bàn phím, tính tổng của các số vừa nhập và in ra màn hình giá trị tổng.
Uses crt;
var n,i,x,u: integer;
begin clrscr;
readln(n);
for i:=1 to n do begin
readln(x);
u:=u+x;
end;
writeln(u);
readln;
end.
program TongCacSoNguyen;
var
N, i, soNguyen, tong: integer;
begin
// Nhập số lượng N
write('Nhap so luong N: ');
readln(N);
// Khởi tạo tổng
tong := 0;
// Nhập và tính tổng các số nguyên
for i := 1 to N do
begin
write('Nhap so nguyen thu ', i, ': ');
readln(soNguyen);
tong := tong + soNguyen;
end;
// In ra màn hình tổng
writeln('Tong cua cac so nguyen la: ', tong);
readln;
end.
1. Thực hành
Bài 1: Viết chương trình nhập số nguyên n từ bàn phím. Kiểm tra và in ra màn hình số n có hợp lệ hay không với điều kiện n là số nguyên dương chẵn.
Bài 2: Viết chương trình Pascal nhập các số nguyên x và y từ bàn phím, in giá trị của x và y ra màn hình. Sau đó hoán đổi các giá trị của x và y rồi in lại ra màn hình giá trị của x và y.
• Ví dụ cho x:=5; y:=7.Hoán đổi để x:=7; y:=5.Cho 1 biến trung gian là z, ta hoán đổi x, y cho nhau bằng cách:
• z:=y { gán giá trị số 7 vào biến nhớ z }
• y:=x { gán giá trị số 5 vào biến nhớ y }
• x:=z { gán giá trị số 7 vào biến nhớ x }
Bài 3: Viết chương trình nhập vào ba số nguyên a, b và c từ bàn phím. Tính và in ra màn hình:
X= a + b + c
Y= (a + b)2 / c.
Chạy lại chương trình và nhập giá trị cho a là 10.5, quan sát kết quả và nêu nhận xét.
Bài 2:
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin >>x>>y;
cout<<x<<" "<<y;
swap(x,y);
cout<<x<<" "<<y;
return 0;
}
1.Xác định bài toán và mô tả thuật toán tìm số lớn nhất trong 3 số nguyên x,y,z được nhập vào từ bàn phím.
2. Viết chương trình nhập từ bàn phím số nguyên n (|n| <_ 10^9o). KIểm tra n có phải là sô snguyeen dương và chia hết cho 5.
XIN MỌI NGƯỜI GIÚP MÌNH VỚI Ạ! MÌNH CÁM ƠN
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n>0 && n%5==0) cout<<"Phai";
else cout<<"Khong phai";
}
VIết CHươNG TRình PaSCAL sỬ dỤNG vÒNG lẶP lẶP while...do ĐỂ tÍNH tỔNG s=1+2+3+...+n Với n lÀ sỐ nguyÊn được nhẬP tỪ bÀN phÍM
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
Phần II. Tự luận. Sử dụng ngôn ngữ lập trình Pascal, viết chương trình giải các bài toán: 1. Cấu trúc rẽ nhánh. Bài 1. Tính tổng, hiệu, tích, thương của hai số bất kì được nhập từ bàn phím. Bài 2. Tính chu vi và diện tích của hình chữ nhật, biết chiều dài và chiều rộng được nhập vào từ bàn phím. Bài 3. Tính chu vi và diện tích của hình tròn biết độ dài bán kính được nhập vào từ bàn phím. 2. Cấu trúc rẽ nhánh. Bài 4. Nhập vào hai số bất kì. So sánh và in ra màn hình số lớn, số nhỏ của hai số. Ví dụ: Nhập vào hai số: 56 45 Số lớn là 56, số nhỏ là 45 Bài 5. Nhập vào một số nguyên bất kì. Kiểm tra và in ra màn hình thông báo số đó là số chẵn hay số lẻ. Ví dụ: Nhập vào một số cần kiểm tra: 45 Số vừa nhập là số lẻ. Bài 6. Nhập vào 3 số bất kì. Kiểm tra và in ra màn hình thông báo xem 3 số đó có tạo thành 3 cạnh của một tam giác không? Ví dụ: Nhập vào 3 số cần kiểm tra: 3 4 5 Ba số vừa nhập thỏa mãn là 3 cạnh của một tam giác. Hay: Nhập vào 3 số cần kiểm tra: 8 2 5 Ba số vừa nhập không thỏa mãn là 3 cạnh của một tam giác. 3. Cấu trúc lặp. Bài 7. Tính tổng dãy số: S=1+2+3+…+n (Với n là một số tự nhiên được nhập vào từ bàn phím) (Với n là một số tự nhiên được nhập vào từ bàn phím) 4. Dãy số và biến mảng. Bài 8. Nhập vào họ và tên và điểm trung bình của 36 học sinh lớp 8B. Bài 9. Nhập vào họ và tên, điểm toán, điểm văn của 38 học sinh lớp 8A.
Thực hiện viết chương trình:
1: Tính tổng các số từ M -> N
2: Kiểm tra 1 số nguyên nhập từ bàn phím có phải là số chẵn (lẻ), số âm (dương), chia hết (yêu cầu sử dụng CTC để viết)
Bài 1:
uses crt;
var m,n,i,t:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
t:=0;
for i:=m to n do
t:=t+i;
writeln(t);
readln;
end.
2:
uses crt;
var n:integer;
{---------------chuong-trinh-con-kiem-tra-chan-le---------------------}
function ktcl(x:integer):boolean;
begin
if x mod 2=0 then ktcl:=true
else ktcl:=false;
end;
{--------------------chuong-trinh-con-kiem-tra-duong-am-------------------}
fucntion ktda(x:integer):boolean;
begin
if x>0 then ktda:=true
else if x<0 then ktda:=false;
end;
{--------------------chuong-trinh-chinh-------------------------}
begin
clrscr;
write('Nhap n='); readln(n);
if ktcl(n)=true then writeln('Day la so chan')
else writeln('Day la so le');
if ktda(n)=true then writeln('Day la so duong')
else writeln('Day la so am');
readln;
end.
Bài 1: Nhập từ bàn phím một dãy số nguyên ko âm. Hãy in ra màn hình chỉ số i nhỏ nhất sao cho tổng các phần tử từ 1 đến i lớn hơn 100.
Bài 2: Hãy viết chương trình Pascal để thực hiện các nhiệm vụ sau:
_ Nhập vào tù bàn phím 1 dãy số ko quá 30 số nguyên
_ Kiểm tra rồi cho biết dãy số vừa nhập có pải là dãy số ko giảm hay ko ? ( VD 1,2,5,5,6,8,9 là dãy số ko giảm )
Anh chị em bạn dì chú bác ông bà bố mẹ cậu mợ bá ơi, giúp với, cần gấp lắm, ngày kìa thi rồi.....
Bài 2:
uses crt;
var a:array[1..30]of integer;
i,n,kt:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
kt:=0;
for i:=1 to n-1 do
if a[i]>a[i+1] then kt:=1;
if kt=0 then write('Day so khong giam')
else writeln('Day so lon xon');
readln;
end.
Đề sai, ko phải lm nx, cô bảo ko thì vào đâu🙂
kiểm tra tính chẵn lẻ.kiểm tra số N được nhập từ bàn phím(là số nguyên dương). in ra màn hình kết quả số đã nhập là chẵn hay lẻ, ví dụ "10 là số chẵn" "9 là số lẻ".
a, em hãy mô tả các bước của thuật toán để giải quyết bài toán trên.
b, viết chương trình Pascal để thực hiện thuật toán.
các bạn giúp tớ với, ai giúp tớ cảm ơn người đó nèe
