Viết chương trình tối giản một phân số. Yêu cầu: có sử dụng chương trình con.
Ví dụ: nhập vào 6/10. In ra màn hình 3/5.
Viết chương trình nhập từ bàn phím chiều dài và chiều rộng của 1 hình chữ nhật. Vẽ trên màn hình hình chữ nhật đó bằng các ngôi sao '*' Yêu cầu: có sử dụng chương trình con
Ví dụ: Nhập chiều dài 7,chiều rộng 4. In kết quả trên màn hình
Uses crt;
Var dai,rong:integer;
Procedure Nhap(Var dai:integer;rong:integer);
Begin
Write('Chieu dai: ');readln(dai);
Write('Chieu rong: ');readln(rong);
End;
Procedure Ve(var dai:integer;rong:integer);
var i,j:integer;
Begin
for i:= 1 to dai do write('*');writeln;
For i:= 1 to rong-2 do
Begin
Write('*');
for j:=1 to dai-2 do write(' ');
writeln('*');
end;
for i:= 1 to dai do write('*');
End;
Begin
clrscr;
Nhap(dai,rong);
Ve(dai,rong);
readln;
End.
uses crt;
var a,b:integer;
{-----------------chuong-trinh-con--------------------}
procedure ve(x,y:integer);
var i,j:integer;
begin
for i:=1 to x do
begin
for j:=1 to y do
write('*');
writeln;
end;
end;
{----------------------chuong-trinh-chinh----------------------}
begin
clrscr;
write('Dai='); readln(a);
write('Rong='); readln(b);
ve(a,b);
readln;
end.
Viết chương trình nhập vào từ bàn phím một số nguyên dương n, in ra màn hình các số lẻ nhỏ hơn hoặc bằng số nguyên dương n. Chương trình yêu cầu nhập lại nếu n <=0. (Sử dụng câu lệnh While … do)
program Le_Nho_Hon_Hoac_Bang_n;
uses crt;
var
n, i: integer;
begin
clrscr;
write('Nhap vao mot so nguyen duong n: ');
readln(n);
while n <= 0 do
begin
writeln('So ban nhap khong hop le. Xin vui long nhap lai: ');
readln(n);
end;
clrscr;
writeln('Cac so le nho hon hoac bang ', n, ' la:');
i := 1;
while i <= n do
begin
if i mod 2 <> 0 then
writeln(i);
i := i + 1;
end;
readln;
end.
Hãy viết chương trình Pascal có sử dụng câu lệnh lặp
Yêu cầu:
hãy nhập vào từ bàn phím 6 số tự nhiên đầu tiên
hãy in ra màn hình các số chẵn trong 6 số tự nhiên trên
uses crt;
var a,t,i:integer;
begin
clrscr;
t:=0;
for i:=1 to 6 do
begin
readln(a);
if (a mod 2=0) then t:=t+a;
end;
writeln(t);
readln;
end.
viết chương trình nhập vào 2 cạnh của hình chữ nhật. tính chu vi,diện tích hình chữ nhật và thông báo ra màn hình . yêu cầu sử dụng chương trình con tính chu vi,diện tích.
Tham khảo
program hcn;
uses crt;
var d,r,dt:longint;
cv:real;
begin
write('nhap chieu dai va chieu rong cua hcn:');
readln(d,r);
cv:=(d+r)*2;
dt:=d*r;
writeln(' chu vi hcn do la:',cv);
writeln(' dien tich hcn do la:',dt);
readln
end.
Viết chương trình nhập vào bàn phím 2 số nguyên dương tìm ước chung lớn nhất MN sau đó in kết quả ra màn hình yêu cầu sử dụng hàm
program UocChungLonNhat;
var
a, b: integer;
function UCLN(a, b: integer): integer;
begin
if b = 0 then
UCLN := a
else
UCLN := UCLN(b, a mod b);
end;
begin
write('Nhập số nguyên dương a: ');
readln(a);
write('Nhập số nguyên dương b: ');
readln(b);
writeln('UCLN của ', a, ' và ', b, ' là ', UCLN(a, b));
end.
nhập vào từ bàn phím một dãy số nguyên(sử dụng chương trình con), tính tổng các phần tử đó, in ra màn hình( sử dụng chương trình con), sắp xếp dãy số nguyên thành dãy không giảm(sử dụng chương trình con)
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t=0;
for (i=1; i<=n; i++) t+=a[i];
cout<<t<<endl;
sort(a+1,a+n+1);
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
viết chương trình thực hiện các yêu cầu sau:
a) nhập một dãy số có n phân tử
b)in dãy đã nhập ra màn hình
giúp mình với..
Viết chương trình nhập vào từ bàn phím các số nguyên dương, khi người dùng nhập số có nhiều chữ số, thì chương trình sẽ tính tổng của các chữ số đó và in ra màn hình. (dùng Python để viết chương trình).
Ví dụ: khi người dùng nhập số 246 thì tổng bằng 2 + 4 + 6 = 12
Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên n b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n (sử dụng câu lệnh lặp while...do) Bài 2: Viết chương trình pascal thực hiện câc yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên dương n b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n (sử dụng câu lệnh lặp while...do giúp mình với mình đang cần gấp rất gấp luôn
Bài 1:
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('Tong cac so trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
Bài 2:
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;
i:=i+2;
end;
writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);
readln;
end.