Trình pascal Em hãy in ra bảng nhân 5 và dừng chương trình để xem kết quả
Help me mai mình phải thi ròi
viết chương trình in ra màn hình bảng cửu chương của số n trong khoảng 1 dến 9 ,số được nhập từ bàn phím và dừng màn hình để có thể quan sát kết quả
uses crt;
var i,n:integer;
begin
write('nhap n=');readln(n);
writeln('bang nhan',n);
for i:=1 to 10 do writeln(n,' x ',i:2,' = ',n*i:3);
readln
end.
Giả sử cần viết chương trình nhập một số tự nhiên vào máy tính và in ra màn hình kết quả số đã nhập chẵn hay lẻ, chẳng hạn “5 là số lẻ”, “8 là số chẵn”. Hãy mô tả các bước của thuật toán để giải quyết bài toán trên và viết chương trình Pascal để thực hiện thuật toán đó.
#include <bits/stdc++.h>
using namespace std;
long long a;
int main()
{
cin>>a;
if (a%2==0) cout<<"La so chan";
else cout<<"La so le";
return 0;
}
- Thuật toán chương trình:
Bước 1: Nhập một số tự nhiên n và một biến d;
Bước 2: Gán giá d=n mod 2;
Bước 3: Nếu d=0 thì đấy là số chẵn, ngược lại thì đấy là số lẻ;
Bước 4. Kết thúc thuật toán;
- Chương trình Pascal:
- Kết quả:
Viết chương trình pascal in ra màn hình kết quả thông tin cá nhân của học sinh. Mỗi thông trên một dòng Gợi ý: sử writeln() để in ra màn hình
Viết chương trình pascal tính điểm trung bình môn toán và văn. Sau đó, nếu điểm trung bình>=5 thì cho ra màn hình"kết quả đạt", ngược lại là"kết quả không đạt".
giúp mình với, đề ôn thi cuối kì mình ak
#include <bits/stdc++.h>
using namespace std;
double a,b;
int main()
{
cin>>a>>b;
double tb=(a+b)/2;
if (tb>=5) cout<<"ket qua dat";
else cout<<"ket qua khong dat";
return 0;
}
Xóa sạch màn hình kết quả, viết chương trình in kết quả các phép toán sau: a) 2/7; b) 2/7+(46 chia 5 lấy phần dư); c) 18 div 3; d) Tạm dừng chương trình và xem kết quả đến khi người dùng nhấn Enter; e) Điều chỉnh cách in số thực hợp lý , dịch và chạy chương trình.
uses crt;
begin
clrscr;
writeln(2/7:4:2);
writeln(2/7+(46 mod 5):4:2);
writeln(18 div 3);
readln;
end.
Viết chương trình tính diện tích và chu vi hình chữ nhật với chiều dài 25,67 cm; chiều rộng 23,45 cm.Yêu cầu: Độ rộng để in kết quả là 5 và số chữ số thập phân được in ra là 2. Khi in kết quả tính được thì chương trình sẽ tạm dừng trong khoảng 10 giây sau mỗi lần in, sau đó tiếp tục chạy.
#include <bits/stdc++.h>
using namespace std;
int main()
{
double dai=25.67;
double rong=23.45;
cout<<fixed<<setprecision(2)<<dai<<endl;
cout<<fixed<<setprecision(2)<<rong;
return 0;
}
Hãy viết 1 chương trình Pascal để tìm kết quả của biểu thức sau: (x-2)\(^2\)(x+2)+(x+2),x là số được nhập từ bàn phím.Sau đó in ra màn hình kết quả của biểu thức.
Program T_J;
Uses crt;
Var x:real;
Begin
Clrscr;
write('Nhap so x = '); readln(x);
writeln(' ket qua cua bieu thuc (',x,'-2)^2(',x,' + 2) + ( ',x,' + 2) la ',(x - 2)*(x-2)*(x+2)+(x+2));
readln
end.
Viết chương trình nhập vào 2 số nguyên (m,n). Kiểm tra xem số nào là số lớn và số lớn gấp mấy lần số bé. in kết quả ra màn hình.(làm trên pascal)
uses crt;
var m,n:integer;
begin
clrscr;
readln(m,n);
if (m>n) cout<<"m lon hon"
else cout<<"n lon hon";
readln;
end.
Viết chương trình nhập vào 1 dãy số a1,a2,a3,...,an Tính trung bình cộng các số và in kết quả ra màn hình Mn giúp mình ạ mai mình thi rồi
Var a:array[1..200] of real;
i,n,dem:integer;
s,tbc:real;
Begin
Write('Nhap so luong phan tu n = ');readln(n);
s:=0;
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' = ');readln(a[i]);
s:=s+a[i];
End;
tbc:=s/n;
Write('Trung binh cong la ',tbc:10:2);
Readln;
End.