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

Lê Trung Kiên
Xem chi tiết
Huy Giang Pham Huy
11 tháng 10 2016 lúc 22:51

ko phải do bạn lập trình hơi chệch choạng đâu mà do nó khó đó

Huy Giang Pham Huy
11 tháng 10 2016 lúc 22:51

à có vẻ hơi khó thiệt để ngĩ đã

Lovers
21 tháng 10 2016 lúc 17:55

Thể nào thằng bạn t cũng làm được, để t nhờ nó :v

Trà Mi Liên
Xem chi tiết
Hoàng Hải Yến
Xem chi tiết
tao quen roi
15 tháng 10 2016 lúc 17:35

writeln / write = ra

read =vao

Dragon
Xem chi tiết
Minh Lệ
5 tháng 6 2020 lúc 13:56

Program HOC24;

var st,s: string;

a: array[1..255] of string;

d,i,n: integer;

begin

readln(s);

s:=s+' ';

while length(s)<>0 do

begin

st:=copy(s,1,pos(' ',s)-1);

n:=n+1;

a[n]:=st;

delete(s,1,pos(' ',s));

end;

for i:= n downto 1 do write(a[i],' ');

readln

end.

Lương Thị Lộc Bình
Xem chi tiết
bang khanh
18 tháng 10 2016 lúc 19:48

câu 1:

var x:string

     y:integer

Câu 2:

var a,b:integer

begin

write('hay nhap gia tri cua a')

read(a)

wrietln('hãy nhập giá trị b')

read(b)

t:=a+b

writeln('tông cua a va b la',t)

 

bang khanh
18 tháng 10 2016 lúc 19:44

? đây là toán mà

Trần Minh Anh
Xem chi tiết
Lê Trung Kiên
24 tháng 10 2016 lúc 23:41

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.

 

Lê Trung Kiên
24 tháng 10 2016 lúc 23:41

dễ mà@@@
 

Lovers
2 tháng 11 2016 lúc 18:46

Câu 1 : B

Câu 2 : A

Câu 3 : D

Câu 4 : C

Câu 5 :A

Câu 6 : C

Câu 7 :

Uses crt;

Var a,b,tb : integer;

Begin

clrscr;

Writeln('Nhap so a= '); Readln(a);

Writeln('Nhap so b= '); Readln(b);

tb := (a+b)/2;

Write('Trung binh cong hai so a va b la ',tb);

Readln

End.

Giang Nguyen
Xem chi tiết
Lovers
25 tháng 10 2016 lúc 19:03

Câu 1 :

a) (a+b)*(a+b)*(d+e)

b) a*x*x+b*x*x+c*x

Câu 2: Mình không hiểu đề lắm? Đặt cái gì cơ?

Câu 3:

Uses crt;

Var S,a,b:real;

Begin

clrscr;

Writeln('Nhap chieu dai a = '); Readln(a);

Writeln('Nhap chieu rong b = '); Readln(b);

S := a*b;

Write('Dien tich hinh chu nhat la ', S );

Readln;

End.

Trịnh Thị Như Quỳnh
26 tháng 10 2016 lúc 9:57

Câu 1:

a) (a+b)*(a+b)*(d+e);

b) a*x*x+b*x*x+c*x

Câu 2:

Qui tắc đặt tên trong ngôn ngữ lập trình Pascal:

- Tên không bắt đầu bằng chữ số.

- Tên không có khoảng cách.

- Tên không được trùng với từ khóa.

- Các đại lượng khác nhau có tên khác nhau.

 

Giang Nguyen
Xem chi tiết
Khưu Thị Bích Ngọc
3 tháng 9 2018 lúc 13:57

Có 4 qui tắc:

- Tên khác nhau tương ứng với đại lượng khác nhau.

- Tên không trùng với từ khóa (begin, end, uses, var,...)

- Tên không bắt đầu bằng số.

- Tên không chứa khoảng cách

Trịnh Thị Như Quỳnh
26 tháng 10 2016 lúc 9:47

Qui tắc đặt tên trong ngôn ngữ lập trình Pascal:

- Tên không bắt đầu bằng chữ số.

- Tên không có khoảng cách.

- Tên không được trùng với từ khóa.

- Các đại lượng khác nhau có tên khác nhau.

mk chắc đúng luôn đó! ^...^

Lệ Quyên Đinh
26 tháng 10 2016 lúc 5:12

-dãy liên tiếp không quá 127 kí tự

- bao gồm chữ số, chữ cái, dấu gạch dưới

- bắt đầu bằng chữa cái hoặc dấu gạch dưới

 

Lê Ngọc
Xem chi tiết
Cold Wind
29 tháng 10 2016 lúc 7:56

var a,b,c:real;

begin

write('nhap 3 canh: '); readln(a,b,c);

If ((a*a = b*b + c*c) or (b*b=a*a+c*c)) or (c*c=b*b+a*a) then write('co') else write('khong');

end.

Phan Tiến Đạt
8 tháng 3 2020 lúc 9:30

program andanh;
uses crt;
var a,b,c:real;
begin
clrscr;
write('Do dai canh thu nhat: ');readln(a);
write('Do dai canh thu hai: ');readln(b);
write('Do dai canh thu ba: ');readln(c);
if (sqr(a) = sqr(b) + sqr(c)) or (sqr(b) = sqr(a) + sqr(c))
or (sqr(c) = sqr(a) + sqr(b))
then write('La tam giac vuong')
else write('Khong phai tam giac vuong');
readln
end.

Khách vãng lai đã xóa
Cold Wind
Xem chi tiết
tao quen roi
30 tháng 10 2016 lúc 18:32

số đối xứng là số gì ?

tao quen roi
30 tháng 10 2016 lúc 18:33

begin

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

giữa hai dòng này thiếu cái gì tôi quên rồi , lí do là ví sử dụng thư viện crt

tao quen roi
30 tháng 10 2016 lúc 19:33

với lại tôi chưa học mảnh bên pascal