Viết chương trình con chuyển các từ viết thường sang viết hoa. (trong pascal)
Vd: pascal sang PASCAL
viết chương trình số nguyên tố họ hàng trong pascal
vd: (3,7)
in ra tất cả các số nt họ hàng hay chỉ 2 số liền kề nhau??
Câu 1: chuyển biểu thức toán học sang pascal:
a.
b. 15.(4 + 30 + 12)
c. (a+b)2.(d+e)3
d. ax2 + bx +2c
Câu 2: viết chương trình tính tích 2 số nguyên được nhập từ bàn phím.
Câu 3: viết chương trình tính tổng 2 sô nguyên được nhập từ bàn phím.
Câu 4: viết chương trình nhập vào 2 số nguyên a, b sau đó in a, b trước và sau khi hoán đổi vị trí ra màn hình.
Câu 5: viết chương trình tính tiền hóa đơn mua một món hàng, biết phí dịch vụ của hóa đơn là 10.000đ và công thức tính tiền là:
Thành tiền = đơn giá * số lượng + phí dịch
Câu 6: Cho biết kết quả của các phép so sánh sau:
a, 2x + 1 = 0
b, x2 – 5 > 4
c, 112 > 100
d, x2 + 3 = 7
Câu 1:
b, 15*(4+30+12)
c, (a+b)^2*(d+e)^3
d, a*x^2+b*x+2*c
Câu 2:
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin>>x>>y;
cout<<x*y;
return 0;
}
Viết chương trình nhập vào 1 xâu, hãy cho biết tổng của các số trong xâu. (Pascal ) VD: abc1eg22kh123
= 1+22+123=146
CíuuuuuT_T
uses crt;
var st:string;
i,d,t,x,y:integer;
begin
clrscr;
readln(st);
d:=length(st);
t:=0;
for i:=1 to d do
if (st[i] in ['0'..'9']) then
begin
val(st[i],x,y);
t:=t+x;
end;
writeln(t);
readln;
end.
1. Viết chương trình Pascal tính tổng các số chia hết cho 3 từ 1 đến 100 Kết quả tổng này là số chẵn hay lẻ? 2. Viết chương trình Pascal nhập vào 1 mảng số nguyên A gồm có N số (N< 100). Có bao nhiêu số chẵn trong mảng A.
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.
Hãy chuyển đổi các biểu thức viết trong toán học sang biểu thức viết trong pascal? a) {(a+b)²+4ab+b³}5a² b) [(2x²y+3)-3x²] giúp minh vơiiii ạ :((
a, ((a+b)*(a+b)+4*a*b+b*b*b)
b,((2*x*x*y+3)-3*x*x)
a, ((a+b)*(a+b)+4*a*b+b*b*b)
b,((2*x*x*y+3)-3*x*x)
Viết chương trình nhập vào 1 xâu, hãy ĐẾM số kí tự số trong xâu. (Pascal )
VD: Nhập s: 123yuo@hg5
In ra:4
Program hotrotinhoc;
var s: string;
t,c,i: byte;
begin
write('Nhap s:'); readln(s);
t:=0;
for i:=1 to length(s) do
if s[i] in ['1'..'9'] then
begin
val(s[i],c);
t:=t+c;
end;
write(t);
readln
end.
Thu gọn
Dưới đây là một chương trình viết trong Pascal:
program CT_Dau_tien ;
Uses crt ;
begin
writeln ( ‘Toi la Turbo Pascal’ )
end.
Tên chương trình là:
A begin. B. end C. writeln D. crt
1 là bn sửa hình nền
2 là mk gọi admin hoặc giáo viên khác khoá nick bn
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.
Hãy viết các biểu thức toán học sau sang dạng tương ứng trong Pascal:
D. 30
a) abs(sqr(x) + sqrt(x + sqr(x)))
b) (-1/2 <=sin(x)) and (sin(x)<=1/2)