| Nơi trao đổi thông tin Văn Lang Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal |
| | đề 1 2016 ctruong | |
| | Tác giả | Thông điệp |
---|
pqtoan Admin
Posts : 76 Danh tiếng : 3 Join date : 10/11/2014
| Tiêu đề: đề 1 2016 ctruong 15/9/2016, 10:27 | |
| Bài 1: Nhập vào thời gian 1 công việc nào đó là x giây. Hãy chuyển đổi và viết ra màn hình số thời gian trên dưới dạng bằng bao nhiêu giờ, bao nhiêu phút, bao nhiêu giây. Bài 2: Nhập vào một số nguyên không âm ( kt điều kiện nhập), kiểm tra xem nó có phải là số nguyên tố hay không? Bài 3: Viết chương trình tìm số đảo của một số nguyên dương và xuất ra màn hình hiệu của chúng ( kết quả số dương) Ví dụ: - Số = 12345 - Số đảo = 54321 - Hieu cua chung la : 41976 Bài 4: Dãy Fibonaci là dãy gồm các số: 1, 1, 2, 3, 5, 8, .... được xác định bởi công thức sau: F1=1, F2=1, Fi=Fi-1+Fi-2 với i>2. Em hãy biểu diễn một số tự nhiên N thành tổng của ít nhất các số Fibonaci khác nhau. Bài 5: Hãy viết chương trình nhập giá trị cho ma trận vuông cấp n. a. Tính tổng các phần tử nằm trên đường chéo chính b. Tính tổng bình phương các số nằm trên hàng chẵn. c. Tính tổng căn bậc hai các số không âm trên cột lẻ. d. Đếm số phần tử có giá trị trong khoảng [1..5]. Bài 6: Viết chương trình nhập vào một ma trân, tính tổng bình phương của các số âm trong ma trận trên. Bài 7: Viết chương trình nhập vào một chuỗi kí tự, sau đó nhập vào một kí tự bất kì và đếm số lần của nó trong chuỗi đã nhập.
| |
| | | pqtoan Admin
Posts : 76 Danh tiếng : 3 Join date : 10/11/2014
| Tiêu đề: BAI 4 12/10/2016, 10:54 | |
| Bai 4: uses crt; var x:array[1..100] of integer; a,b,c,n,tong,i:integer; {-} procedure dat(var a,b,c,d,e:integer); begin a:=0;b:=1;c:=0;d:=0;e:=0; end; procedure w(var a,b,c:integer); begin c:=a+b;b:=a;a:=c; end; {-} begin clrscr; write('Nhap n:');readln(n); dat(a,b,c,tong,i); while n>tong do begin w(a,b,c); tong:=tong+c; i:=i+1; x[i]:=c; end; if tong>n then writeln(n,' ko phai la tong cac so fibonaxi khac nhau') else for c:=1 to i do begin write(x[c]);if c<i then write('+'); end; readln; end.
Được sửa bởi pqtoan ngày 13/10/2016, 18:37; sửa lần 1. | |
| | | pqtoan Admin
Posts : 76 Danh tiếng : 3 Join date : 10/11/2014
| Tiêu đề: Re: đề 1 2016 ctruong 13/10/2016, 18:36 | |
| Bai 5: uses crt; type mang=array[1..100,1..100] of integer; var a:mang; n,i,j:integer; kq:real; {-} procedure nmt(var a:mang;n:integer); var i,j:integer; begin for i:=1 to n do for j:=1 to n do begin write('a[',i,',',j,']:');readln(a[i,j]); end; end; procedure xmt(var a:mang;n:integer); var i,j:integer; begin for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3);writeln; end; end; {-} begin clrscr; write('Nhap cap ma tran vuong:');readln(n);nmt(a,n);xmt(a,n); kq:=0; for i:=1 to n do kq:=kq+a[i,i]; writeln('Tong cac phan tu tren duong cheo chinh:',kq:3:2); kq:=0; for i:=1 to n do if i mod 2=0 then for j:=1 to n do kq:=kq+a[i,j]*a[i,j]; writeln('Tong binh phuong cac phan tu tren hang chan:',kq:3:2); kq:=0; for i:=1 to n do for j:=1 to n do if (j mod 2=1) and (a[i,j]>0) then kq:=kq+sqrt(a[i,j]); writeln('Tong can bac hai cac phan tu khong am cua cot le:',kq:3:2); kq:=0; for i:=1 to n do for j:=1 to n do if (a[i,j]>0) and (a[i,j]<=5) then kq:=kq+1; writeln('So phan tu trong khoang [1..5] la:',kq:3:2); readln; end. | |
| | | pqtoan Admin
Posts : 76 Danh tiếng : 3 Join date : 10/11/2014
| Tiêu đề: Re: đề 1 2016 ctruong 13/10/2016, 18:44 | |
| Bai 6: uses crt; type mang=array[1..100,1..100] of integer; var a:mang; n,m,i,j,tong:integer; {-} procedure nmt(var a:mang;n,m:integer); var i,j:integer; begin for i:=1 to n do for j:=1 to m do begin write('a[',i,',',j,']:');readln(a[i,j]); end; end; procedure xmt(var a:mang;n,m:integer); var i,j:integer; begin for i:=1 to n do begin for j:=1 to m do write(a[i,j]:3);writeln; end; end; {-} begin clrscr; write('Nhap so dong ma tran:');readln(n); write('Nhap so cot ma tran:');readln(m); nmt(a,n,m);xmt(a,n,m); tong:=0; for i:=1 to n do for j:=1 to m do if a[i,j]<0 then tong:=tong+a[i,j]*a[i,j]; writeln('Tong binh phuong cac phan tu am trong am tran la:',tong); readln; end. | |
| | | pqtoan Admin
Posts : 76 Danh tiếng : 3 Join date : 10/11/2014
| Tiêu đề: Re: đề 1 2016 ctruong 13/10/2016, 18:51 | |
| Bai 7: uses crt; var a:string;b:string[1]; i,dem:integer; begin clrscr; write('Nhap chuoi:');readln(a); write('Nhap ki tu (1 ki tu):');readln(b); dem:=0; for i:=1 to length(a) do if b=a[i] then dem:=dem+1; writeln(b,' xuat hien trong chuoi tren ',dem,' lan'); readln; end. | |
| | | thuynganhb
Posts : 10 Danh tiếng : 1 Join date : 09/01/2017
| Tiêu đề: Re: đề 1 2016 ctruong 10/2/2017, 10:31 | |
| Bạn ơi bạn giải luôn bài 3 được không? Cảm ơn bạn nhiều | |
| | | nhathuyvanlang
Posts : 49 Danh tiếng : 10 Join date : 26/03/2016
| Tiêu đề: Re: đề 1 2016 ctruong 19/2/2017, 08:08 | |
| - thuynganhb đã viết:
- Bạn ơi bạn giải luôn bài 3 được không? Cảm ơn bạn nhiều
Mình đây - Code:
-
uses crt; var st:string; i:integer; begin clrscr; {Lam string cho de thoy :)). Lm = so kho lam} write('nhap so:');readln(st); for i:=length(st) downto 1 do write(st[i]); readln; end. | |
| | | Sponsored content
| Tiêu đề: Re: đề 1 2016 ctruong | |
| |
| | | | đề 1 2016 ctruong | |
|
Trang 1 trong tổng số 1 trang | |
Similar topics | |
|
| Permissions in this forum: | Bạn không có quyền trả lời bài viết
| |
| |
| |
|