Chào mừng quý vị đến với Tài liệu Tin học - Chia sẽ cùng mọi người.
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tư liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy đăng ký thành viên tại đây hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay ô bên phải.
bài pascal 1
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn: TỰ LÀM
Người gửi: Nguyễn Minh Tú
Ngày gửi: 14h:37' 05-09-2012
Dung lượng: 33.5 KB
Số lượt tải: 122
Nguồn: TỰ LÀM
Người gửi: Nguyễn Minh Tú
Ngày gửi: 14h:37' 05-09-2012
Dung lượng: 33.5 KB
Số lượt tải: 122
Số lượt thích:
0 người
Bài 1 bạn hãy sử dụng ngôn ngữ lập trình pascal để thực hiện các yêu cầu sau: a) Nhập vào từ bàn phím một số nguyên dương n. b) Hãy tính và đưa ra màn hình giá trị biểu thức S:=1-2+3-4+...+(-1)^(n-1)n c) Với giá trị lớn nhất của n bằng bao nhiêu thì S
Bài 6
nhập từ bàn phím n số thực ,đếm và tính tổng các số dương của chúng(kiểu mảng)
Bài 1
Program bt1;
uses crt; var i, n, s, a: integer; BEGIN clrscr; write(`Nhap n: `); readln(n); s:=0; for i:=1 to n do if i mod 2=0 then s:=s-i else s:=s+i; writeln(`Ket qua: `,s); n:=0; s:=0; i:=1; write(`Nhap a: `); readln(a); repeat if i mod 2=0 then s:=s-i else s:=s+i; i:=i+1; n:=n+1; until(s>=a); writeln(`Gia tri lon nhat cua n: `,n-1); readln ; END.
Bài 2
Program bt2;
uses crt; const phay=`,`; type ArrInt = array[1..50, 1..50] of integer; var i, j, n, m, tong, h: integer; a: ArrInt; begin clrscr; write(`Nhap so dong N va so cot M: `); readln(n,m); for i:= 1 to n do for j:= 1 to m do Begin write ( ` A[`, i, phay , j, `] = ` ) ; readln ( a[i, j] ) ; End; tong:=0; writeln(`Cac phan tu nguyen trong ma tran: `,m*n); write(`Nhap hang can tim: `); readln(h); writeln(`Cac phan tu am trong hang `,h,`: `); for j:=1 to m do begin if a[h,j]<0 then write(a[h,j],` `); if a[h,j] mod 2=0 then tong:=tong+a[h,j]; end; writeln; write(`Tong cac phan tu chia het cho 2 trong hang `,h,`: `,tong); readln; end.
Bài 3
Program bt3; uses crt; var s: string; i, n: integer; BEGIN clrscr; write(`Nhap mot xau ki tu : `); Readln(s); n:=length(s); for i:=1 to n
Bài 6
nhập từ bàn phím n số thực ,đếm và tính tổng các số dương của chúng(kiểu mảng)
Bài 1
Program bt1;
uses crt; var i, n, s, a: integer; BEGIN clrscr; write(`Nhap n: `); readln(n); s:=0; for i:=1 to n do if i mod 2=0 then s:=s-i else s:=s+i; writeln(`Ket qua: `,s); n:=0; s:=0; i:=1; write(`Nhap a: `); readln(a); repeat if i mod 2=0 then s:=s-i else s:=s+i; i:=i+1; n:=n+1; until(s>=a); writeln(`Gia tri lon nhat cua n: `,n-1); readln ; END.
Bài 2
Program bt2;
uses crt; const phay=`,`; type ArrInt = array[1..50, 1..50] of integer; var i, j, n, m, tong, h: integer; a: ArrInt; begin clrscr; write(`Nhap so dong N va so cot M: `); readln(n,m); for i:= 1 to n do for j:= 1 to m do Begin write ( ` A[`, i, phay , j, `] = ` ) ; readln ( a[i, j] ) ; End; tong:=0; writeln(`Cac phan tu nguyen trong ma tran: `,m*n); write(`Nhap hang can tim: `); readln(h); writeln(`Cac phan tu am trong hang `,h,`: `); for j:=1 to m do begin if a[h,j]<0 then write(a[h,j],` `); if a[h,j] mod 2=0 then tong:=tong+a[h,j]; end; writeln; write(`Tong cac phan tu chia het cho 2 trong hang `,h,`: `,tong); readln; end.
Bài 3
Program bt3; uses crt; var s: string; i, n: integer; BEGIN clrscr; write(`Nhap mot xau ki tu : `); Readln(s); n:=length(s); for i:=1 to n
Các ý kiến mới nhất