Diễn Đàn Pascal|dien Dan Pascal|nhung Bai Tap Pascal Hay|giai Cac ...

dien dan pascal

HOME

thảo luận

CHAT

06/02/13

Người sáng lậpngô quang vĩnh trọng

hay su dung tring duyet UC Browser de tai trang dien dan tot nhat nhe !

Trình duyệt UC Browser[Tải ngay][Hướng dẫn]code pascal giai phuong trinh bac 3 gai bai tap pascal trong sach giao khoaTop 10 bai tap pascal hayhoc pascal online Thông báo!-ban quan tri dien dan xin thong bao : cac ban co nhung bai tap pascal hay nhung sang kien hay giai cac bai toan bang ngon ngu pascal thi hay chia se tren dien dan nhe ! hoac lien he voi admin qua so 01649255669 -Hiện tại wap đang bảo trì có nhiều phần sẽ không vào được xin mọi ngừơi thông cảm!•nhung bai tap pascal cap nhat

1. Giải PT bậc 1 (ax+b=0)PROGRAM NCK; VAR A,B:REAL;BEGIN WRITELN('NHAP A, B: ');READLN(A,B); IF (A=0) AND (B<=0) THEN WRITELN('VO NGHIEM'); IF (A=0) AND (B>0) THEN WRITELN('X THUO^.C R'); IF A<0 THEN WRITELN('NGHIEM: X<',-B/A:0:2); IF A>0 THEN WRITELN('NGHIEM: X>',-B/A:0:2);READLN;END.

2.a.Hãy tìm ra dãy hoán vị của dãy duoc nhap tu ban phim

Ví dụ:dãy vừa nhập : 2 3 4 7 1 5Hoàn vị của nó là : 0 1 2 3 0 3b. Từ dãy hoán vị ở trên hãy sinh ra dãy thuận thế :

code:

type Array_Type = array [1..100] of integer;var day_thuan_the, day_hoan_vi: Array_Type; tam, i, j, n: integer;begin write('Nhap vao do dai cua day [1..100]: '); readln(n); write('Nhap vao day thuan the: '); for i:=1 to n do begin read(day_thuan_the[i]); day_hoan_vi[i] := i; end; if (day_thuan_the[1] <> 0) then write('Day thuan the khong hop le.') else begin for i := 1 to n do begin if day_thuan_the[i] < (i - 1) then begin tam := day_hoan_vi[i]; for j := i downto (day_thuan_the[i] + 1) do day_hoan_vi[j] := day_hoan_vi[j - 1]; day_hoan_vi[day_thuan_the[i] + 1] := tam; end; end; writeln; write('Day so hoan vi la: '); for i := 1 to n do for j := 1 to n do if (day_hoan_vi[j] = i) then write(j:4); end; readlnend.

3.Tính tích các số chắn trong dãy

vd: Dãy A gồm 7 phần tử: 5 13 4 7 2 10

 Tich cac so chan la: 80

BÀI GIẢI:

USES CRT;

VAR A: ARRAY[1..100] OF INTEGER;

I,N: INTEGER;

TICH: LONGINT;

BEGIN

WRITELN('NHAP SL PHAN TU: ');

READLN(N);

FOR I:=1 TO N DO

BEGIN

WRITELN('NHAP SO THU: ',I,' ');

READLN(A[I]);

END;

TICH:=1;

FOR I:=1 TO N DO

IF A[I] MOD 2 =0 THEN TICH:=TICH*A[I];

WRITELN('TICH CAC SO CHAN LA: ',TICH);

READLN

END.

•GAME GIAI TRITHAO LUAN

HAY VAO DAY BAN NHE !

THAO LUANKhác Kqxs | bóng đá|Thời Tiết| lịch Tivi | ĐTDĐ |google | sms free | đọc truyện | Mẹo vặt | Hình ảnh | Nhạc Midi | đọc báo| Tin 24h | Soha | Kênh 14| Truyện tình cảm taps tim kiemdien dan pascal,thao luan pascal truc tuyen,nhung bai tap pascal hay,giai phuong trinh bac 3 bang pascal,giai cac bai tap trong sah giao khoa tin hoc 11,giai cac bai tap trong sach giao khoa trang 50-51,huong dan giai cac bai tap pascal trong sanh giao khoa, Thống kê0nline : 1Hôm nay : 15Tổng cộng : 121003 GAME HOT .VINH TRONG. • UC Browser trình duyệt nhanh download mạnh

HOME

BÁO LỖI

• Chia sẻ trang này : Facebook TwitterLink:http://diendanpascal.wapsite.me/indexBBcode:[url=http://diendanpascal.wapsite.me/index]Bạn ơi hãy xem trang này giúp Vinh Trong nhé![/url] © Copyright Vinh Trong97Powered by dd pascalsdt admin:01649255669Gọi AdminGửi SMSLưu số email:[email protected]