Xem chi tiết
TT
Xem chi tiết
LB
Xem chi tiết
BK
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)

 

Bình luận (3)
BK
18 tháng 10 2016 lúc 19:44

? đây là toán mà

Bình luận (0)
TT
Xem chi tiết
GH
14 tháng 4 2017 lúc 17:00

uses crt;

var X:string;

demtu,demdc,i:word;

begin

clrscr;

write('nhap cau van X:');readln(X);

writeln('so ki tu la:',length(X));

demtu:=1;

for i:=1 to length(X)-1 do

if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;

writeln('so tu la:',demtu);

demdc:=0;

for i:=1 to length(X) do

if X[i]=' ' then demdc:=demdc+1;

writeln('so dau cach la:',demdc);

readln;

end.banhqua

Bình luận (0)
GH
24 tháng 4 2017 lúc 16:06

bài này mới đúng nè bạn:

uses crt;

var X:string;

demtu,demdc,i:word;

begin

clrscr;

write('nhap cau van X:');readln(X);

writeln('so ki tu la:',length(X));

X:=X+' ';

demtu:=0;

for i:=1 to length(X)-1 do

if (X[i]<>' ') and (X[i+1]=' ') then demtu:=demtu+1;

writeln('so tu la:',demtu);

delete(X,length(X),1);

demdc:=0;

for i:=1 to length(X) do

if X[i]=' ' then demdc:=demdc+1;

writeln('so dau cach la:',demdc);

readln;

end.banhqua

Bình luận (0)
H24
Xem chi tiết
ML
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.

Bình luận (0)
HY
Xem chi tiết
TR
15 tháng 10 2016 lúc 17:35

writeln / write = ra

read =vao

Bình luận (2)
TL
Xem chi tiết
HN
Xem chi tiết
VA
Xem chi tiết
LK
11 tháng 10 2016 lúc 23:10

program ctdt;

uses crt;

begin

                                     writeln('*');

                                writeln('*        *');

                            writeln('*       *        *');

                        writeln('*      *         *        *');

                  writeln('*        *        *        *          *');

end.

Bình luận (0)
LK
11 tháng 10 2016 lúc 23:13

thêm readln  nữa nhé, sr mik quên

 

Bình luận (0)
PN
12 tháng 10 2016 lúc 5:20

Program Ve_hinh;

Uses crt;

Begin

          Clrscr;

          Writeln('                   *                       ');

          Writeln('              *        *                  ');

          Writeln('           *       *      *             ');

          Writeln('        *      *       *      *        ');

          Writeln('     *     *       *       *       * ');

          Readln;

End.

Bình luận (0)
LK
Xem chi tiết
HH
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ó đó

Bình luận (6)
HH
11 tháng 10 2016 lúc 22:51

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

Bình luận (2)
H24
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

Bình luận (1)
LK
Xem chi tiết
NT
10 tháng 10 2016 lúc 9:01

uses crt; 
var a, b: logint; 
Begin 
write('nhap so a ='); Readln(a); 
write('nhap so b ='); readln(b); 
If (a = 0 and b = 0) 
then write ('pt co nghiem x thuoc R') 
else 
if (a=0 and b#0) then write('pt vo nghiem') 
else 
write(nghiẹm la x=': -b/a); 
readln 
end. 

Bình luận (3)
TS
8 tháng 10 2016 lúc 0:00

uses crt; 
var a, b: logint; 
Begin 
write('nhap so a ='); Readln(a); 
write('nhap so b ='); readln(b); 
If (a = 0 and b = 0) 
then write ('pt co nghiem x thuoc R') 
else 
if (a=0 and b#0) then write('pt vo nghiem') 
else 
write(nghiẹm la x=': -b/a); 
readln 
end. 

Bình luận (4)
NH
Xem chi tiết
H24
21 tháng 10 2016 lúc 21:13

Chưa chắc giống nhau nhưng tham khảo :

Câu 1 : Viết các phép tính sau trong pascal :

a) \(\frac{\sqrt{p\left(p-a\right)\left(p-b\right)^2}}{p-c}\)

b) \(a^2+b^2-5ab-\frac{43}{3}\)

c) \(\sqrt{2}+\frac{\sqrt{s+p+c}}{\sqrt{2}}\)

Câu 2 :

Viết chương trình tính diện tích và chu vi hình chữ nhật biết chiều dài và chiều rộng nhập từ bàn phím.

Câu 3 :

Viết chương trình tính diện tích hình tròn biết bán kính được nhập từ bàn phím.

 

Bình luận (1)
H24
7 tháng 10 2016 lúc 21:27

Mik thực hành thôi bạn

Bình luận (1)
AT
7 tháng 10 2016 lúc 21:33

Tớ có

Bình luận (1)