viết chương trình nhập vào hai số a , b rồi thực hiện công việc sau: hỏi người dùng muốn thực hiện phép tính nào (+,-,*,/) ddeeer cho ra kết quả
Bài 2: Hãy viết chương trình trong Pascal thực hiện các công việc sau:
a) Nhập 2 số nguyên a và b vào từ bàn phím (a > b và b khác 0)
b) In ra phần nguyê của phép chia cho a và b, với độ rộng in ra kết quả được quy định là 3
c) In ra phần dư của phép chia cho a và b, với độ rộng in ra kết quả được quy định là 2
d) Lưu chương trình với tên có dạng hoten-lop
Trong chương trình phải sử dụng các lệnh xóa màn hình và dừng màn hình kết quả.
- - - Mình cần gấp - - -
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a div b);
writeln(a mod b);
readln;
end.
Bài 1: Hãy viết chương trình trong Pascal thực hiện các công việc sau:
a) Nhập 2 số thực a và b vào từ bàn phím
b) In ra màn hình tổng của 2 số a,b vừa nhập, với kết quả in ra có 1 chữ số ở phần thập phân
c) Lưu chương trình với tên có dạng hoten-lop
**Lưu ý: Trong chương trình phải sử dụng các lệnh xóa màn hình và dừng màn hình kết quả
------------Mình cần gấp, xin cảm ơn------------
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writeln(a+b:4:1);
readln;
end.
program b1;
uses crt;
var a,b,s:real;
begin
clrscr;
writeln('Nhap hai so a va b: ');
readln(a,b);
s:=a+b;
write('Tong cua hai so a va b la: ',s:1:1);
readln;
end.
P/S: phần lưu lẫn đặt tên người dùng nào cũng đều làm được.
+ Chọn Save as ở phần File phía góc trái trên cùng rồi đặt tên.
Nhập một ký tự a, viết chương trình thực hiện các công việc sau:- Nếu a=’S’ thì thực hiện phép tính 20+30;- Nếu a=’P’ thì thực hiện phép tính 20*30
#include <bits/stdc++.h>
using namespace std;
char a;
int main()
{
cin>>a;
if (a=='S') cout<<"50";
else cout<<"600";
return 0;
}
Viết chương trình nhập từ bàn phím hai số nguyên a và b. Thực hiện tính và in ra màn hình kết quả của phép tính (chỉ lấy 2 chữ số sau phần thập phân). Giúp mình với Pascal nha mn
Viết chương trình thực hiện các công việc sau:
a. In ra họ và tên em
b. Nhập vào 2 số nguyên a, b. Tính và in tổng 2 số đó.
C. Kiểm tra xem tổng 2 số đó là số chẵn hay lẻ? In kết quả kiểm tra ra màn hình
b:
#include <bits/stdc++.h>
using namespace std;
long long a,b,t;
int main()
{
cin>>a>>b;
t=a+b;
cout<<t;
return 0;
}
Viết chương trình thực hiện các công việc sau:
a. In ra họ và tên em
b. Nhập vào 2 số nguyên a, b. Tính và in tổng 2 số đó.
C. Kiểm tra xem tổng 2 số đó là số chẵn hay lẻ? In kết quả kiểm tra ra màn hình
"mình cần gấp "
b:
#include <bits/stdc++.h>
using namespace std;
long long a,b,t;
int main()
{
cin>>a>>b;
t=a+b;
cout<<t;
return 0;
}
Chương trình máy tính được tạo ra gồm những bước nào?
A. Nhận dữ liệu đầu vào, thực hiện các bước xử lí, đưa ra kết quả
B. Chỉ thực hiện một lệnh do con người yêu cầu
C. Chỉ thực hiện các bước xử lí và đưa ra kết quả
D. Nhập sơ đồ khối, đưa ra kết quả
Viết chương trình thực hiện các công việc sau: a) Nhập vào một dãy gồm N số nguyên ( N > 50) b) Hãy in ra màn hình dãy số vừa nhập c) Nhập vào một số nguyên x bất kỳ. In ra các số chia hết cho x
N = int(input("Nhập số lượng phần tử của dãy N (>50): "))
while N <= 50:
N = int(input("Nhập lại số lượng phần tử của dãy N (>50): "))
# Nhập vào dãy số
danh_sach = []
for i in range(N):
danh_sach.append(int(input("Nhập số thứ %d: " % (i+1))))
# In ra dãy số vừa nhập
print("Dãy số vừa nhập:")
for i in danh_sach:
print(i, end=' ')
# Nhập vào số nguyên x
x = int(input("nNhập vào số nguyên x: "))
# In ra các số chia hết cho x
print("Các số chia hết cho x là:")
for i in danh_sach:
if i % x == 0:
print(i, end=' ')
Viết chương trình nhập vào mảng số nguyên rồi thực hiện các công việc sau đây: A) Đếm số các phần tử có giá trị dương(âm) và tính tổng của chúng B) Tìm số dương(âm) đầu tiên và chỉ số của nó trong mảng Mong mọi người giúp ạ mai em ktra học kỳ rồi ạ
uses crt;
var a:array[1..100]of integer;
i,n,dem1,dem2,t1,t2,sa,sd,vt1,vt2:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
dem1:=0;
t1:=0;
dem2:=0;
t2:=0;
for i:=1 to n do
begin
if a[i]>0 then begin inc(dem1); t1:=t1+a[i]; end;
if a[i]<0 then begin inc(dem2); t2:=t2+a[i]; end;
end;
writeln(dem1);
writeln(dem2);
writeln(t1);
writeln(t2);
for i:=1 to n do
if a[i]>0 then
begin
sd:=a[i];
vt1:=i;
break;
end;
if (dem1=0) then writeln('Khong co so duong trong day')
else writeln('So duong dau tien la: ',sd,' vi tri la: ',vt1);
for i:=1 to n do
if a[i]<0 then
begin
sa:=a[i];
vt2:=i;
break;
end;
if (dem2=0) then writeln('Khong co so am trong day')
else writeln('So am dau tien la: ',sa,' vi tri la: ',vt2);
readln;
end.