Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

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
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 cấp trường 1

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
pqtoan



Posts : 72
Danh tiếng : 3
Join date : 10/11/2014

Bài gửiTiêu đề: cấp trường 1   28/9/2015, 16:21

Đề ôn tập
Bài 1 : Nhập vào 1 số nguyên dương ( kiểm tra điều kiện ). Cho biết số đó có bao nhiêu chữ số và tính tổng các chữ số đó.
Bài 2 : Nhập vào một chuỗi gồm chữ và số . Hãy xóa các khoảng trắng không cần thiết. Cho biết trong chuỗi đó có bao nhiêu chữ số, xuất các chữ số đó.
Bài 3 : Nhập vào 2 số nguyên dương. Hãy tìm UCLN và BCNN của hai số đó.
Bài 4 : Cho dãy số : 1;-4;9;-16;25…..; n2. Hãy nhập vào số nguyên dương n. Tính Tổng các số của dãy.
Bài 5 : Nhập vào ma trận vuông cấp 4. Xuất ma trận. Sắp xếp ma trận tăng dần theo hàng ngang.
Về Đầu Trang Go down
Xem lý lịch thành viên
nhathuyvanlang

avatar

Posts : 49
Danh tiếng : 9
Join date : 26/03/2016

Bài gửiTiêu đề: Re: cấp trường 1   16/1/2017, 19:27

Bài 2:
Code:
uses crt;
var so:string;
    i,tong:integer;
begin
clrscr;
write('nhap so:');readln(so);
for i:=1 to length(so) do
begin
write(ord(so[i])-48:3);
tong:=tong+(ord(so[i])-48);
end;
writeln;
write('tong la:',tong);
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
thuynganhb



Posts : 10
Danh tiếng : 1
Join date : 09/01/2017

Bài gửiTiêu đề: Re: cấp trường 1   24/1/2017, 09:37

tác giả có giải hem
Về Đầu Trang Go down
Xem lý lịch thành viên
nhathuyvanlang

avatar

Posts : 49
Danh tiếng : 9
Join date : 26/03/2016

Bài gửiTiêu đề: Re: cấp trường 1   19/2/2017, 08:59

thuynganhb đã viết:
tác giả có giải hem
Bài 1:
Code:
uses crt;
var st:string;
    so,tong,i:integer;
begin
clrscr;
write('nhap so:');readln(so);
str(so,st);
writeln('so chu so:',length(st));
for i:=1 to length(st) do tong:=tong+ord(st[i])-48;
writeln('tong la:',tong);
readln;
end.
Bài 2:
Code:
uses crt;
const tt=['0'..'9'];
var st:string;
    i,j,k,n:integer;
begin
clrscr;
write('nhap chuoi:');readln(st);
while pos(#32,st)<>0 do delete(st,pos(#32,st),1);
writeln(st);
for i:=1 to length(st) do if st[i] in tt then
    begin
        k:=k+1;
        write(ord(st[i])-48);
    end;
writeln('co ',k,' chu so');
readln;
end.
Bài 3:
Code:
uses crt;
var a,b:integer;
function ucln(a,b:integer):integer;
begin
    while a<>b do
          begin
                if a>b then a:=a-b;
                if b>a then b:=b-a;
          end;
ucln:=a;
end;
{-}
function bcnn(a,b:integer):integer;
begin
bcnn:=a*b div ucln(a,b);
end;
{-}
begin
clrscr;
write('nhap hai so:');readln(a,b);
writeln(ucln(a,b));
writeln(bcnn(a,b));
readln;
end.
Bài 4: N2 là n^2 nhé bạn Smile
Code:
uses crt;
var tong,i,j,n:integer;
begin
clrscr;
write('nhap so do:');readln(n);
for i:=0 to n do if i*i mod 2=0 then tong:=tong +i*i*(-1) else tong:=tong+i*i;
write('tong la:',tong);
readln;
end.
Bài 5:
Code:
uses crt;
var a:array[1..100,1..100] of integer;
    i,j,n,k:integer;
procedure dc(var a,b:integer);
var t:integer;
begin
t:=a;a:=b;b:=t;
end;
{-}
begin
clrscr;
for i:=1 to 4 do
for j:=1 to 4 do
    begin
        write('a[',i,',',j,']:');readln(a[i,j]);
    end;
for i:=1 to 4 do
    begin
        for j:=1 to 4 do write(a[i,j]:4);
        writeln;
    end;
writeln;
for i:=1 to 4 do
for j:=1 to 4 do
for k:=1 to 4 do
if a[i,j]<a[i,k] then dc(a[i,j],a[i,k]);
for i:=1 to 4 do
    begin
        for j:=1 to 4 do write(a[i,j]:4);
        writeln;
    end;
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: cấp trường 1   

Về Đầu Trang Go down
 
cấp trường 1
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Các bộ đề thi-
Chuyển đến