1.VIẾT HÀM TÍNH TỔNG CÁC SỐ TỪ 1 ĐẾN N 2. Viết thủ tục thực hiện việc hoán đổi hai giá trị của a và b
Những câu hỏi liên quan
Bài tập chương trình con: (procedure và function) Bài 1: Viết hàm tính n giai thừa của một số nguyên dương (n!) Bài 2: Viết hàm tính tổng các số lẻ chia hết cho 5 từ 1 đến n Bài 3: Viết thủ tục thực hiện việc hoán đổi 2 giá trị của a và b
1) viết bộ số chung a,b 2) viết thủ tục hoán đổi giá trị a và b 3) viết thủ tục so sánh a và b tìm số lớn nhất
1)
uses crt;
var a,b,bcnn,i:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
bcnn:=a*b;
for i:=a*b-1 downto 1 do
if (i mod a=0) and (i mod b=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln(bcnn);
readln;
end.
Đúng 0
Bình luận (0)
2:
procedure hoandoi(a,b:integer);
var tam:integer;
begin
tam:=a;
a:=b;
b:=tam;
end;
Đúng 0
Bình luận (0)
3:
procedure max(a,b:integer);
begin
if a>b then max:=a
else max:=b;
end;
Đúng 0
Bình luận (0)
Sử dụng ngôn ngữ lập trình viết chương trình thực hiện các công việc sau:1. Viết thủ tục nhập vào mảng A là điểm toán của n học sinh2. Viết thủ tục xuất mảng A đã được sắp xếp lên màn hình3. Viết hàm tính Tổng điểm của n học sinh trên4. Viết thủ tục hoán vị trí điểm giữa các học sinh5. Hoàn thành chương trình chính với số điểm được sắp xếp theo thứ tự tăng dần
Đọc tiếp
Sử dụng ngôn ngữ lập trình viết chương trình thực hiện các công việc sau:
1. Viết thủ tục nhập vào mảng A là điểm toán của n học sinh
2. Viết thủ tục xuất mảng A đã được sắp xếp lên màn hình
3. Viết hàm tính Tổng điểm của n học sinh trên
4. Viết thủ tục hoán vị trí điểm giữa các học sinh
5. Hoàn thành chương trình chính với số điểm được sắp xếp theo thứ tự tăng dần
Mình viết chương trình chính thôi, bạn tự viết chương trình con nhé
uses crt;
var a:array[1..100]of integer;
i,n,t,tam,j: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 diem cua ',n,' ban la: ',t);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
Đúng 0
Bình luận (0)
viết thủ tục ( procedure) thực hiện viện hoán đổi 2 số nguyên a,b
procedure hoandoi(a,b:integer);
var tam:integer;
begin
tam:=a;
a:=b;
b:=tam;
end;
Đúng 0
Bình luận (0)
Viết CT nhập vào số nguyên dương n(n được nhập giá trị từ bàn phím), sau đó thực hiện các yêu cầu sau: a, nếu n=0 thì yêu cầu nhập lại số n b, tính tổng các số chẵn từ 1 đến n vừa nhập c, tính tích các số lẻ từ 1 đến n vừa nhập D, in các giá trị vừa tính được ra màn hình
uses crt;
var n,i,t,s:integer;
begin
clrscr;
repeat
readln(n);
until n<>0;
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
writeln(t);
s:=1;
for i:=1 to n do
if i mod 2=1 then s:=s*i;
writeln(s);
readln;
end.
Đúng 1
Bình luận (0)
Xác định Input và output của bài toán sau
Bài 1 : Hoán đổi giá trị của hai biến số thực a và b
Bài 2: Tính tổng
S N + + + + 1 2 3 ...
;
Bài 3: Tính tích P1.2.3…N;
Bài 4: Tính tổng
3 3 3 3 S N + + + + 1 2 3 ...
;
Bài 5: Tìm GTLN của 3 số nguyên
Bài 6 : Tìm GTNN của 4 số nguyên
Bài 7: Tính chu vi và diện tích hình chữ nhật
Bài 8: Giải phương trình:
ax b+ 0
Bài 9: Tính chu vi và diện tích hình tròn
Bài 10: Tính tiền điện của một hộ gia đình trong một tháng
Đọc tiếp
Xác định Input và output của bài toán sau Bài 1 : Hoán đổi giá trị của hai biến số thực a và b Bài 2: Tính tổng S N = + + + + 1 2 3 ... ; Bài 3: Tính tích P=1.2.3…N; Bài 4: Tính tổng 3 3 3 3 S N = + + + + 1 2 3 ... ; Bài 5: Tìm GTLN của 3 số nguyên Bài 6 : Tìm GTNN của 4 số nguyên Bài 7: Tính chu vi và diện tích hình chữ nhật Bài 8: Giải phương trình: ax b+ =0 Bài 9: Tính chu vi và diện tích hình tròn Bài 10: Tính tiền điện của một hộ gia đình trong một tháng
Viết chương trình nhập vào só nguyên N từ bàn phím (0 < N ≤ 1018). Thực hiện các công việc sau và ghi ra màn hình:
- Dòng thứ nhất ghi ra tổng của dãy số từ 1 đến N.
- Dòng thứ hai ghi ra tổng các số chẵn trong dãy từ 1 đến N.
- Dòng thứ ba ghi ra tổng các số lẻ trong dãy số từ 1 đến N
Var n,sc,sl,i:longint;
Begin
Write('N = ');readln(n);
Write('Cac so tu 1 den ',n,' la ');
For i:=1 to n do
Write(i:8);
Writeln;
For i:=1 to n do
Begin
If i mod 2 = 0 then sc:=sc+i
Else sl:=sl+i;
End;
Writeln('Tong cac so chan la ',sc);
Write('Tong cac so le la ',sl);
Readln
End.
Đúng 1
Bình luận (0)
20 tháng 10 2021 lúc 21:05
Viết thuật toán làm các công việc sau
1. Hoán đổi giá trị của hai số thực A và C, dùng biến trung gian B ( biểu diễn thuật toán bằng cách liệt kê ).
2. Cho điểm I(x;y) trên mặt phẳng tọa độ và số thực R. Kiểm tra xem M(a;b) có nằm trên đường tròn tâm I bán kính R không? ( biểu diễn thuật toán bằng sơ đồ khối ).
2:
#include <bits/stdc++.h>
using namespace std;
double xm,ix,iy,r,ma,mb;
int main()
{
cin>>ix>>iy;
cin>>r;
cin>>ma>>mb;
xm=sqrt((ix-ma)*(ix-ma)+(iy-mb)*(iy-mb));
if (xm==r) cout<<"phai";
else cout<<"khong phai";
return 0;
}
Đúng 0
Bình luận (2)
Chủ đề: Thế giới Logo của em:
1. Nêu cấu trúc lệnh lặp, lệnh lặp lồng nhau?
2. Nêu quy tắc đặt tên thủ tục?
3. Nêu các bước viết thủ tục?
4. Nêu cách thực hiện một thủ tục?
5. Nêu lệnh lưu thủ tục vào tệp, nạp tệp để làm việc?
6. Lệnh thay đổi màu vẽ và nét vẽ?
Chủ đề: Em học nhạc
1. Nêu các bước để nhập nốt nhạc vào khuông nhạc?
2. Nêu các bước ghi lời cho bản nhạc?
3. Nêu cách chèn thêm 1 ô nhịp? Nhiều ô nhịp?
AI NHANH NHẤT MIK TICK
Đọc tiếp
Chủ đề: Thế giới Logo của em:
1. Nêu cấu trúc lệnh lặp, lệnh lặp lồng nhau?
2. Nêu quy tắc đặt tên thủ tục?
3. Nêu các bước viết thủ tục?
4. Nêu cách thực hiện một thủ tục?
5. Nêu lệnh lưu thủ tục vào tệp, nạp tệp để làm việc?
6. Lệnh thay đổi màu vẽ và nét vẽ?
Chủ đề: Em học nhạc
1. Nêu các bước để nhập nốt nhạc vào khuông nhạc?
2. Nêu các bước ghi lời cho bản nhạc?
3. Nêu cách chèn thêm 1 ô nhịp? Nhiều ô nhịp?
AI NHANH NHẤT MIK TICK