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 | 
 

 đề thi thử 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 đề: đề thi thử 1   17/1/2017, 08:49

CÂU 1: cho dãy số A gồm n phần tử bất kỳ nhập từ bàn phím, viết chương trình tính tổng các số chia hết cho 3 và 5. Lưu vào file, đặt tên file là so1.out
CÂU 2: Viết chương trình tìm n nhỏ nhất để tổng của các số từ 1 đến n lớn hơn 1000. Lưu vào file, đặt tên file là so2.out
CÂU 3: Cho mảng A một chiều gồm 10 phần tử nhập từ  bàn phím. Viết chương trình tìm số lần xuất hiện của phần tử  x trong mảng. Xuất ra file ma1.out với nội dung gồm:
- Dòng 1 : 10 số nguyên là các phần tử của mảng.
- Dòng 2 : số x
- Dòng 3 : số lần xuất hiện của x.
CÂU 4: Viết chương trình nhập vào một chuỗi kí tự, chuẩn hóa chuỗi, sắp xếp các số trong chuỗi tăng dần nhưng không đổi các kí tự khác trong chuỗi.
Xuất ra file ch1.out với nội dung gồm:
- Dòng 1 : chuỗi ban đầu.
- Dòng 2 : chuỗi chuẩn hóa
- Dòng 3 : chuỗi đã sắp xếp.
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: đề thi thử 1   17/1/2017, 09:15

Bài 1:
Code:
uses crt;
var a:array[1..100] of integer;
    f:text;
    i,n,j,k,tong:integer;
begin
clrscr;
assign(f,'bai1.txt');
rewrite(f);
write('nhap so phan tu cua day:');readln(n);
for i:=1 to n do
    begin
        write('a[',i,']:');readln(a[i]);
        write(f,a[i]:3);
    end;
writeln(f);
write(f,'tong la:');
for i:=1 to n do
if (a[i] mod 15=0) then tong:=tong+a[i];
write(f,tong);
writeln(tong:3);
close(f);
readln;
end.
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: đề thi thử 1   17/1/2017, 09:24

Bài 2:
Code:
uses crt;
var a,i,n,j,k:integer;
    f:text;
begin
clrscr;
assign(f,'lactroi.txt');
rewrite(f);
for a:=1 to 500 do
if (a*(a+1))/2>1000 then
  begin
        write('so do la:',a);
        write(f,a);
        close(f);
        readln;
        exit;
  end;
readln;
end.
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: đề thi thử 1   17/1/2017, 09:31

Bài 3:
Code:
uses crt;
var a:array[1..100] of integer;
    f:text;
    i,j,n,k,l,m:integer;
begin
clrscr;
assign(f,'bai3.txt');
rewrite(f);
write('nhap so phan tu cua day:');readln(n);
for i:=1 to n do
    begin
        write('a[',i,']:');readln(a[I]);
        write(f,a[i]:3);
    end;
writeln(f);
write('nhap so:');readln(j);
writeln(f,j);
for i:=1 to n do
if a[i]=j then m:=M+1;
write(f,m);
close(f);
readln;
end.
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: đề thi thử 1   17/1/2017, 09:46

Bài 4:
Code:
uses crt;
var st:string;
    i,n,j,k:integer;
    f:text;
const so=['0'..'9'];
procedure dc(var a,b:char);
var t:char;
begin
t:=a;a:=b;b:=t;
end;
{-}
begin
clrscr;
assign(f,'bai4.txt');
rewrite(f);
write(f,st);
write('nhap chuoi:');readln(st);
if st[length(st)]=' 'then delete(st,length(st),1);
if st[length(st)]<>'.' then insert('.',st,length(st)+1);
while pos('  ',st)<>0 do delete(st,pos('  ',st),1);
if st[1]=' ' then delete(st,1,1);
st[1]:=upcase(st[1]);
write(st);
write(f,st);
writeln(f);
writeln;
for i:=1 to length(st)-1 do
for j:=i+1 to length(st) do
if (st[i] in so) and (st[j] in so) and (st[i]>st[j]) then dc(st[i],st[j]);
write(st);
write(f,st);
close(f);
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
pqtoan



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

Bài gửiTiêu đề: Re: đề thi thử 1   17/1/2017, 09:54

Bài 4:
Code:
uses crt;
const so=['0'..'9'];
var f:text;
    i,j:integer;
    a:char;
    s:string;
begin
clrscr;
assign(f,'B4');
rewrite(f);
  write('Nhap chuoi:');readln(s);writeln(f,s);
  while s[length(s)]=' ' do delete(s,length(s),1);
  while pos('  ',s)>0 do delete(s,pos('  ',s),1);
  while s[1]=' ' do delete(s,1,1);
  s[1]:=upcase(s[1]);
  if s[length(s)]<>'.' then insert('.',s,length(s)+1);
  writeln(s);writeln(f,s);
  for i:=1 to length(s)-1 do for j:=i+1 to length(s) do
  if (s[i] in so) and (s[j] in so) and (s[i]>s[j]) then
  begin
      a:=s[i];
      s[i]:=s[j];
      s[j]:=a;
  end;
  writeln(s);writeln(f,s);
close(f);
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
pqtoan



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

Bài gửiTiêu đề: Re: đề thi thử 1   17/1/2017, 09:59

Bài 2:
Code:
uses crt;
var f:text;
    tong,n:integer;
begin
clrscr;
assign(f,'B2');
rewrite(f);
  tong:=0;n:=0;
  repeat
  n:=n+1;
  tong:=tong+n;
  until tong>1000;
  write(f,'So can tim la:',n,'');
close(f);
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: đề thi thử 1   

Về Đầu Trang Go down
 
đề thi thử 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 :: Thảo luận :: đưa bài-
Chuyển đến