K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

3 tháng 1 2018

a) (1/(b+2))*(a*a+c)=5

b) (k*k)+((k+1)*(k+1)) < > (k+2)*(k+2)

c) 8*x-7>1

d) (b*b)-(4*a*c) >=0

e) (1/n)*(1/(n+i))*(1/(n+2)) <0,01

f) (a-3)*(a+5)=0

g) ((a+c)*h)/2 < > 1

h) 2*x+3 <= 25*y;

k) x >= (m+5)/(2*a);

l)3,14*(R*R) > a*a

29 tháng 12 2017

a) ((1/(b+2))*(a*a+c)=5*k*x)>=(m+5)/2*a

b)(k*k)+((k+1)*(k+1)) <>((k+2)*(k+2)) .(dấu | ) mình không hiểu lắm )

c)8*x-7>1

d) (b*b)-(4*a*c)>=0

e) (1/n)*(1/(n+1))*(1/(n+2)<0,01

f) (a-3)*(a+5)=0

g)((a+c)*h)/2<>1

h)2*x+3<=25*y

Nguyễn Minh Lệ em xin lỗi ạ, em sửa là : longint;

28 tháng 1 2020

b)

program hotrotinhoc;

var s: real;

i,n: byte;

function t(x: byte): longint;

var j: byte;

t1: longint;

begin

t1:=1;

for j:=1 to x do

t1:=t1*j;

t1:=t;

end;

begin

readln(n);

s:=0;

for i:=1 to n do

s:=s+1/t(i);

write(s:1:2);

readln

end.

c) Đề em ghi sai rồi thế này với đúng :

\(T=1+\frac{2}{2^2}+\frac{3}{3^2}+\frac{4}{4^2}+...+\frac{n}{n^2}\)

program hotrotinhoc;

var t: real;

n,i: byte;

begin

readln(n);

t:=0;

for i:=1 to n do

t:=t+i/(i*i);

write(t:1:2);

readln

end.

8 tháng 2 2022

#include <bits/stdc++.h>

using namespace std;

long long s1,s2,s3,s4,i;

int main()

{

s1=0;

for (i=1; i<=100; i++) s1=s1+i*i;

s2=0;

for (i=1; i<=100; i++) if (i%2==1) s2+=i;

s3=0;

for (i=1; i<=100; i++) 

{

if (i%2==1) s3+=i*i;

else s3-=i*i;

}

s4=0;

for (i=1; i<=100; i++)

{

if (i%2==1) s4+=i;

else s4-=i;

}

cout<<s1<<" "<<s2<<" "<<s3<<" "<<s4;

return 0;

}

17 tháng 12 2019

Dòng 1: dư dấu ':'

Sửa lại: var a,b:integer;

Dòng 2: dư dấu ':'

Sửa lại const c=3;

Dòng 4: thiếu dấu ;

sửa lại: a:=200;

Dòng 5: sai kiểu dữ liệu:

sửa lại: b là real thì mới gán cho phép chia được

Dòng 6: thiếu;

Sửa lại: writeln(b:4:2);

17 tháng 12 2019

Cảm ơn bạn nhiều Nguyễn Lê Phước Thịnh

24 tháng 4 2018

Các biểu thức trong Pascal:

a. a/b+c/d.

b. a*x*x+b*x+c.

c. 1/x-a/5*(b+2).

d. (a*a+b)*(1+c)*(1+c)*(1+c) .

16 tháng 2 2019

a. 5x3 + 2x2 - 18x + 25 = 5*x*x*x + 2*x*x - 18*x + 25

c. \(\dfrac{2a^2+2c^2-a}{4}\)=(2*a*a+2*c*c-a)/4

d. \(\dfrac{x+y}{x-y}\)=(x+y)/(x-y)

Câu 1: Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal?A. 8a B. tamgiac C. program D. bai tapCâu 2: Để chạy chương trình trong Turbo Pascal ta dùng tổ hợp phím nào?A. Ctrl + F9 B. Alt + F9 C. Ctrl + Shitf +F9 D. F9 Câu 3: Các thành phấn cơ bản của một ngôn ngữ lập trình là:A. Các từ khóa...
Đọc tiếp

Câu 1: Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal?

A. 8a B. tamgiac C. program D. bai tap

Câu 2: Để chạy chương trình trong Turbo Pascal ta dùng tổ hợp phím nào?

A. Ctrl + F9 B. Alt + F9 C. Ctrl + Shitf +F9 D. F9

Câu 3: Các thành phấn cơ bản của một ngôn ngữ lập trình là:

A. Các từ khóa và tên. B. Bảng chữ cái và các từ khóa.

C. Bảng chữ cái, các từ khóa và tên. D. Bảng chữ cái và các quy tắc.

Câu 4: Biểu thức toán học (a2 + b)(1 + c)3 được biểu diễn trong Pascal như thế nào?

A. (a*a + b)(1+c)(1 + c)(1 + c) B. (a.a + b)(1 + c)(1 + c)(1 + c)

C. (a*a + b)*(1 + c)*(1 + c)*(1 + c) D. (a2 + b)(1 + c)3

Câu 5: Trong Pascal, khai báo nào sau đây là đúng?

A. Var tb : real ; B. Var 4hs: integer ; C. Const x : real ; D. Var R = 30 ;

Câu 6: Trong Pascal, những tên có ý nghĩa được xác định từ trước và không được phép sử dụng cho mục đích khác thì được gọi là:

A. Tên có sẵn B. Tên riêng C. Từ khóa D. Biến

Câu 7: (5.0 điểm)

Viết chương trình nhập vào 2 số a, b từ bàn phím, tính trung bình cộng của hai số a, b và in kết quả ra màn hình.

Giúp mình với nha!

5
24 tháng 10 2016

1B 4C

2A 5A

3C 6C

7.

program TBC;

uses crt;

var a,b,tbc:real;

begin

clrscr;

write('nhap so a:');readln(a);

write('nhap so b:');readln(b);

tbc:=(a+b):2;

writeln('tbc cua hai so a va b la:',tbc:6:2);

readln;

end.

 

24 tháng 10 2016

dễ mà@@@
 

A. Lý Thuyết: Nêu ý nghĩa của các từ khóa,câu lệnh trong Pascal: program,begin,end,uses,var,const,clrscr,delay(x),write ( ),readln,readln (x) Trắc nghiệm: Câu 1: Các ngôn ngữ lập trình phân chia dữ liệu thành các kiểu dữ liệu khác nhau với mục đích gì ? Hãy chọn phương án sai: ​ a)Sử dụng bộ nhớ máy tính có hiệu quả b)Thực hiện các phép toán tương ứng với từng kiểu dữ liệu c)Tự động hóa...
Đọc tiếp

A. Lý Thuyết:

Nêu ý nghĩa của các từ khóa,câu lệnh trong Pascal: program,begin,end,uses,var,const,clrscr,delay(x),write ( ),readln,readln (x)

Trắc nghiệm:

Câu 1: Các ngôn ngữ lập trình phân chia dữ liệu thành các kiểu dữ liệu khác nhau với mục đích gì ? Hãy chọn phương án sai:

a)Sử dụng bộ nhớ máy tính có hiệu quả

b)Thực hiện các phép toán tương ứng với từng kiểu dữ liệu

c)Tự động hóa việc viết chương trình

Câu 2:Hãy chọn câu đúng:

a)14/5=2; 14 div 5 = 2 ; 14 mod 5 = 4

b)14/5=2.8; 14 div 5 = 2 ; 14 mod 5 = 4

c) 14/5=2.8; 14 div 5 = 2 ; 14 mod 5 = 2

d) 14/5=3; 14 div 5 = 2 ; 14 mod 5 = 4

Câu 3: Giá trị của biến a sau khi thực hiện chương trình: "a:=5 ; a:=a–4" là:

a) 1 b) 2 c) 3 d) 4

Câu 4: Số biến có thể khai báo tối đa trong một chương trình là bao nhiêu:

a)Chỉ một biến cho một kiểu dữ liệu

b)Chỉ hạn chế bởi dung lượng nhớ

c) 10 biến

d) Không giới hạn

Câu 5: Giả sử A được khai báo là biến với kiểu dữ liệu là số thực,phép gán nào đúng:

a)A:= ' 38.59 b) A:=35.59; c) A:=3559 d) cả b và c đều đúng

Câu 6:Trong Pascal,khai báo đúng là:

a) Var chieudai:real

b) Var 40HS: integer

c) Var R=50

d) Cả b và c đều đúng

B. Bài Tập:

1. Tìm ra chỗ sai ( gạch chân ) và giải thích tại sao sai :

a) var a,b:=integer

const c:=4 ;

begin :

a:= 10

b:=a/c;

write( ' gia tri cua b la ' b);

end.

b) var : a: real; b: integer;

const c:=4

begin

c:=4.1;

a:=10;

b:=a/c

write( ' gia tri cua b la ' b )

end

2. Viết thuật toán rồi viết chương trình bằng ngôn ngữ Pascal để giải bài toán:

a) Tính tổng của n số tự nhiên đầu tiên. Lậo bảng chạy tay với n=10, n=15

b) Hoán đổi giá trị của 2 biến x và y. Lập bảng chạy tay với x 🔙 10; y 🔙1

Mong các bạn giúp mình !

0
17 tháng 2 2019

a.

program caua;

uses crt;

var x,i, n: integer;

A: real;

begin

clrscr;

write('Nhap so n, n = '); read(n);

A:=0; x:=1;

for i:=1 to n do

begin

i:=x*i; A:=1/i;

end;

write("Gia tri bieu thuc dau tien la',A);

readln

end.

3 tháng 4 2018

Bạn tự khai báo nhé!;

Ảnh nhỏ thì nhấn mở hình ảnh trong tab mới nha

Lập trình đơn giản

3 tháng 4 2018

4...

begin

repeat

write('N= '):

readln(n);

until n>0;

s:=0;

for i:=1 to n do

s:=s+1/n;

write('s= ',s);

readln

end.