pascal help em

halam

Cau 2

Cac truong trinh sau in ra ket qua man hinh nhu the nao :
a-
VAR S, a, i: integer;
BEGIN
I:=0; a:=3; S=1;
REPEAT
S:= S + I;
I:=i+1;
UNTIL (i>a);
Write(a, S);
Readln:
END.

nguoiDalatCuoiCung

Cau 2

Cac truong trinh sau in ra ket qua man hinh nhu the nao :
a-
VAR S, a, i: integer;
BEGIN
I:=0; a:=3; S=1;
REPEAT
S:= S + I;
I:=i+1;
UNTIL (i>a);
Write(a, S);
Readln:
END.

a=3
s=7

ge8zvh

@ Câu II e nghĩ a= 3, s= 7 chứ anh :)

halam

cau 2 b tiep

VAR i,j,n: integer;
a: array[1..50,1..50] of integer;
BEGIN
n:=2;
FOR i:=0 TO n-1 DO
FOR j:=i+1 TO n DO
BEGIN
a := i+j;
write(a);
END;
Readln;
ẸND

nguoiDalatCuoiCung

bionline:
cau 3
viet chuong trinh nhap vao 1 mang mot chieu gom n cac so nguyen (n nhap tu ban phim). Cho biet co bao nhieu so am trong day va tinh tong cac so am do .

Program cau3;
Uses Crt ;
Const MAX = 1000 ;
Var
a: array[1 .. MAX] of integer ; n : integer ; soam: integer; tong: integer;
Begin
Writeln('Nhap N:');
Readln(n);

soam:=0;
tong:=0;

For i := 1 To n   Do     
Begin
	Writeln('Nhap a[',i,']=');
	Readln(a);
End

For i:=1 to n do
Begin
	if a< 0 then
	Begin
		soam:=soam+1;
		tong:=tong+a;
	End
End

Writeln('Co ',soam, 'so am trong mang');
Writeln('Tong = ',tong);

End.

nguoiDalatCuoiCung

Tin:
@ Câu II e nghĩ a= 3, s= 7 chứ anh :)

Sorry nhầm
nếu writeln(a,s) thì a=3 s=7
tưởng writeln(i,s)
mà ai lại hỏi a = mấy chuối vậy có lộn ko, vì a nó đâu có thay đổi

ge8zvh

Program cau3;
Uses Crt ;
Const MAX = 1000 ;
Var
a: array[1 .. MAX] of integer ; n : integer ; soam: integer; tong: integer;
Begin
Writeln('Nhap N:');
Readln(n);

soam:=0;
tong:=0;

For i := 1 To n Do
Begin
Writeln('Nhap a[',i,']=');
Readln(a);
End

For i:=1 to n do
Begin
if a< 0 then
Begin
soam:=soam+1;
tong:=tong+a;
End
End

Writeln('Co ',soam, 'so am trong mang');
Writeln('Tong = ',tong);
End.

@ Bravo :13:, sau này e có bài C nào khó pm a lun nhá a ^^...

Câu 2b, tính ra... kỳ quá, hem dám nói, hí hí :">

nguoiDalatCuoiCung

bionline:
cau 2 b tiep

VAR i,j,n: integer;
a: array[1..50,1..50] of integer;
BEGIN
n:=2;
FOR i:=0 TO n-1 DO
FOR j:=i+1 TO n DO
BEGIN
a := i+j;
write(a);
END;
Readln;
ẸND

Câu này compile sẽ error vì
vòng lập đầu tiên i=0; j=1 mà pasal mảng phải bắt đầu từ 1 nên bị lỗi tại a[0,1]
Câu nay la bẫy đấy em :22:

nguoiDalatCuoiCung

bionline:
Cau 1
a. Chuyen 67.6875(10) tu he dem thap phan sang he dem nhi phạn
chuyen 100111 (2) tu he dem nhi phan sang thap phan
b-neu khai niem thuat toan va cach bieu dien mot thuat toạn . Viet thuat toan bang so do khoi . Nhap vao 2 so nguyen duong a va b, tim uoc so chung lon nhat cua 2 so do

Dùng cal của windows dễ nhận thấy a=1000011 và b=39 :22:

halam

Hu hu . Em làm 4 7 mất rồi. Chết mất sai 1 câu >.< Nếu như tất cả còn lại đúng. Thank Anh và Ku TIN nhé ... hehehe .... Cầm quả ĐT trên tay mà run run. Sợ bị bắt .....