Cần giúp gấp bài Tin hoc 11 này với ! Em ga`[[ PasCan ]]

[tran_quan]

Viết câu lệnh rẽ nhánh:

a)
z=x­­­2 + y2 nếu x­­­2 + y2 <= 1
z=x + y nếu x2 + y2 > 1 và y>= x
z= 0,5 nếu x2 + y2 >1 và y < x


x2 là x bình phương
Cái bài này ở sách tin .Giúp em gấp nhanh với nha !!!!! thanks nhiều

[bavuong1]

Bạn Sang Bên Tài Liệu Mà Hỏi Nha ... Ở Đây Chắc hem Ai Nói Đâu ?! ... Cái Nì PasCan Hả ?! .... :k1 BaVuong Mù

[thienhavodinh]

z=x­­­2 + y2 nếu x­­­2 + y2 <= 1
z=x + y nếu x2 + y2 > 1 và y>= x
z= 0,5 nếu x2 + y2 >1 và y < x

LG:
program tenchuongtrinh;
var x,y,z:integer;
begin
writeln('nhap so x,y,z');
readln(x);readln(y);readln(z);
if x2+y2<=1 then
begin
z=x­­­2 + y2;
end;


còn lại làm như trên

[ahappyboy89]

z=x­­­2 + y2 nếu x­­­2 + y2 <= 1
z=x + y nếu x2 + y2 > 1 và y>= x
z= 0,5 nếu x2 + y2 >1 và y < x

LG:
program tenchuongtrinh;
var x,y,z:integer;
begin
writeln('nhap so x,y,z');
readln(x);readln(y);readln(z);
if x2+y2<=1 then
begin
z=x­­­2 + y2;
end;


còn lại làm như trên
thôi cha nội,x2 la x bình phuong ông viết nhự vậy làm seo nó hỉu phai viết là sqr(x),còn 2 câu dưới phải kết hợp thêm lẹnh "and" ví dụ if (sqr(x)+sqr(y)>1) and (y>=x) then x:=x+y.

[hoangtuthuychung2730]

sao hiểu được ba ,....

[orion_vista]

z=x2 + y2 nếu x2 + y2 <= 1
z=x + y nếu x2 + y2 > 1 và y>= x
z= 0,5 nếu x2 + y2 >1 và y < x

program loigiai;
var x,y,z:integer;
begin
writeln(' Nhap so x,y,z');readln(x,y,z);
if x*x+y*y<=1 then z=x*x + y*y
else
begin
if y>=x then z:=x+y
else z:=0,5;
end;
readln
end.

[hoaianhmonster]

SQr là lấy lấy căn bậc 2 chịu khó về học lại mấy cái hàm với cấu trúc điều khiển nha .Chìu...:byebye::byebye:

[huy_b1p_1012]

Dễ ợt, tối làm cho....
Pác để cái avatar khiếp quá...... ko dám dọc bài nữa :((

[huy_b1p_1012]

Giải nha ^^
program huy_b1p; <hí hí>
uses crt;
var x, y, z, G: real;
begin
clrscr;
Write('x = '); Readln(x);
Write('y = '); Readln(y);
Write('z = '); Readln(z);
G:= x2 + y2; (*x bình + y bình*)
if G <= 1 then z:= x2 + y2
else begin
if y < x then z:= 0,5
else z:= x + y;
end;
Writeln('Giá trị của z là ', z:8:4);
Readln
end.

Còn bài nào post tiếp đi, thx giải bài tập Pascal lắm....... :)

[nguoi_dan_ong_chan_chinh]

viết chương trình nhập một mảng số thực vuông (mảng hai chiều) .Tính tổng các phần tử của đường chéo chính và đường chéo phụ sau đó đưa ra phần tử có giá trị lớn nhất trên đường chéo chính.( đường chéo chính là đường chéo hình vuông , đường chéo phụ là đường chéo còn lại.)

[namtuoc2345]

máy you làm thì phải cho nó chạy chứ ? sem thử có đúng hay không ? mà cứ nói chi cho lắm .

[nguoi_dan_ong_chan_chinh]

viết chương trình nhập một mảng số thực vuông (mảng hai chiều) sau đó tính tổng các phần tử trên đường chéo chính và đường chéo phụ và đưa ra phần tử có giá trị lớn nhất.(đường chéo chính và đường chéo phụ là 2 đường chéo của hình vuông)
Bài khó dã man mong các pác giúp đỡ.:surrender:
Làm bằng Pascal nha !

[huy_b1p_1012]

hic......... đoạn code tui viết thế mà ko đúng nữa hả cha.......... éc....... nghe ghê quá
Còn bài tính tổng đường chéo chính + đường chéo phụ thì dễ ợt ahahahah
Bx gọi đi chơi, đi chơi tí rồi về giải cho yên tâm

[huy_b1p_1012]

Viết code này... vì đó là dãy mảng 2 chiều mà hình vuông thì cực dễ, còn nếu ko vuông thì khó hơn 1 chút
Làm nha ^^ Hay thanks cho phát động viên ^___^
Mấy phần cơ bản thì tự làm nha bạn
Bài này ví dụ kiểu mảng 2 chiều có 5 hàng 5 cột <ma trận 5x5>

var A:array[1..5,1..5] of integer
Sc, Sp, S, i, j: integer;
begin
clrscr;
For i:= 1 to 5 do
For j:= 1 to 5 do
begin
Writeln('Nhập giá trị của phần tử ', i ,', ', j); Readln(A[i,j]);
end;
Sc:= 0;
Sp:= 0;

For i:= 1 to 5 do
For i:= 1 to 5 do
begin
if i:= j then Sc:= Sc + A[i,j]; {tính tổng đừong chéo chính}
if (i + j = 6) and (i <> j) then Sp:= Sp + A[i,j]; {để ý ta thấy đường chéo phụ có tổng i + j = 6 :p: và nếu i = j tức là đã có 1 phần tử trùng với ở đường chéo chính :p:}
end;
Writeln('Vậy tổng giá trị các phần tử nằm trên đường chéo chính + đường chéo phụ là', Sc + Sp);
Readln
end.
Đoạn code này mới nghĩ ra thôi, nhưng 90% là đúng, dạo này ham chơi game quá, nên del cái Pascal trong máy chưa cài nên chưa có cơ hội test, bạn thử test coi nhá
Đúng thì thanks cho phát, mà ko đúng thì nói để mình coi lại :D