Giải đề cương Tin học.

 Go down 
Share
Gửi bài mới Trả lời chủ đề này
Bài gửiTiêu đề:  Giải đề cương Tin học.Thời gian: 13/12/2010, 6:26 pm
ABCDEFG
avatar
Mr.X 
Administrator

Administrator
I'm : inpain
Huân Chương :
Giới tính Giới tính : Nam
Tổng Số Bài Gửi Tổng Số Bài Gửi : 267
Ca3Cash Ca3Cash : 4071
Danh Vọng Danh Vọng : 93
Nơi ở : Nơi ở : : Vũng Tàu 2school
»Châm Ngôn Sống : ABCDEFG
Job/hobbies : Super mod
Trả lời chủ đề này 

Message reputation : 100% (2 votes)


Bài 1:
Program tenchuongtrinh;
Var a,b,h,S:real;
Begin
Repeat
Writeln('nhap vao day lon a,day nho b va chieu cao h');readn(a,b,h);
Until (a>0) and (b>0) and (h>0);
S:=(a+b)*h/2;
Writeln('S la',S);
Readln;
End.
Bài 2;
Program timmax;
Var a,b:integer;
Begin
Writeln('nhap a va b');readln(a,b);
If a>b then Write('max:=a')
Else write('max:=b');
Readln;
End.
Bài 3
Program chanle;
Var n:integer;
Begin
Write('nhap n'),readln(n);
If n mod 2=0 then write('n la so chan')
Else write('n la so le');
Readln;
End.

Bài 4:

Program bai_4_a_b;
Var i,k,n,Sa,Sb:interger;
Begin
Repeat
Writeln('nhap n');readln(n);
Until n>0;
Sa:=0;
For i:=2 to 1000 do
Sa:=Sa+i;
Sb:=2000;
For k:=5 to n do
Sb:=Sb+k;
Writeln('Sa=',Sa);
Writeln('Sb=',Sb);
Readln;
End.
Bài 5:
Program bai5;
Var m,n,i,s:interger;
Begin
Writeln('nhap m,n');readln(m,n);
s:=0;
For i:=m to n do
Begin
if i mod 3=0 then S:=S+i;
end;
Readln;
End.
Chúc các bạn thi tốt nếu có thắc mắc gì gọi số 01664714922 cho mình

Very Happy
Bài gửiTiêu đề:  Giải đề cương Tin học.Thời gian: 13/12/2010, 8:03 pm
kim ngân is every thing of my life
diepgenipopo 
Binh Nhì

Binh Nhì
Giới tính Giới tính : Nam
Tổng Số Bài Gửi Tổng Số Bài Gửi : 24
Ca3Cash Ca3Cash : 3005
Danh Vọng Danh Vọng : 8
»Châm Ngôn Sống : kim ngân is every thing of my life
Trả lời chủ đề này 



hay wa' ko co kai' nay` chak' mạ chet' lun we' Very Happy
Bài gửiTiêu đề:  Giải đề cương Tin học.Thời gian: 13/12/2010, 8:12 pm
itringuyen 
Gà Con

Gà Con
Tổng Số Bài Gửi Tổng Số Bài Gửi : 2
Ca3Cash Ca3Cash : 2972
Danh Vọng Danh Vọng : 3
Trả lời chủ đề này 

Message reputation : 100% (1 vote)


Program bai5;
Var m,n,i,s:interger;
Begin
Repeat
Writeln('nhap m,n');readln(m,n);
until m<=n;
s:=0;
For i:=m to n do
Begin
if i mod 3=0 then S:=S+i;
end;
writeln('tong cac so chia het cho 3 la:",S);
Readln;
End.
Tao nghĩ bài 5 phải vầy mới đúng
Bài gửiTiêu đề:  Giải đề cương Tin học.Thời gian: 13/12/2010, 8:28 pm
avatar
ThienY_9 
Web Designer
Web Designer
I'm : yeehaw
Huân Chương :

Giới tính Giới tính : Nam
Tổng Số Bài Gửi Tổng Số Bài Gửi : 15
Ca3Cash Ca3Cash : 3032
Danh Vọng Danh Vọng : 5
Nơi ở : Nơi ở : : Vũng Tàu
Trả lời chủ đề này 



cuối cùng là cái nào đúng???
Bài gửiTiêu đề:  Giải đề cương Tin học.Thời gian: 13/12/2010, 8:37 pm
avatar
ThienY_9 
Web Designer
Web Designer
I'm : yeehaw
Huân Chương :

Giới tính Giới tính : Nam
Tổng Số Bài Gửi Tổng Số Bài Gửi : 15
Ca3Cash Ca3Cash : 3032
Danh Vọng Danh Vọng : 5
Nơi ở : Nơi ở : : Vũng Tàu
Trả lời chủ đề này 



đã test, bài 5 của Trí đúng, các bạn làm theo bài của Trí
Bài gửiTiêu đề:  Giải đề cương Tin học.Thời gian: 13/12/2010, 9:09 pm
macarvt 
Gà Con

Gà Con
Tổng Số Bài Gửi Tổng Số Bài Gửi : 1
Ca3Cash Ca3Cash : 2973
Danh Vọng Danh Vọng : 0
Trả lời chủ đề này 



"đếm từ 1 đến 100 có bao nhiu số chia hết cho 5" làm sao bay?
Bài gửiTiêu đề:  Giải đề cương Tin học.Thời gian: 13/12/2010, 10:37 pm
supermit 
Tân Binh

https://www.facebook.com/marsupilami_mit
Tân Binh
Giới tính Giới tính : Nữ
Tổng Số Bài Gửi Tổng Số Bài Gửi : 6
Ca3Cash Ca3Cash : 2958
Danh Vọng Danh Vọng : 0
Trả lời chủ đề này 



thank u thank u :X :X :X
Bài gửiTiêu đề:  Giải đề cương Tin học.Thời gian:
Sponsored content 

Trả lời chủ đề này 







Gửi bài mới Trả lời chủ đề này

Giải đề cương Tin học.
* Viết tiếng Việt có dấu, là tôn trọng người đọc.
* Chia sẻ bài sưu tầm có ghi rõ nguồn, là tôn trọng người viết.
* Thực hiện những điều trên, là tôn trọng chính mình.

-Nếu chèn smilies có vấn đề thì bấm A/a trên phải khung viết bài
Permissions in this forum:Bạn không có quyền trả lời bài viết
-
Chuyển đến:
Chia Sẻ Bài Viết Qua Các Mạng Xã Hội
|Gửi thông tin này vào Tagvn|


Trang 1 trong tổng số 1 trang
Ca3Forum. Style by DienDanSPKT. Rip & Fix by Việt K.
Powered by phpbb® Version 2.0. Copyright ©2000 - 2011, GNU General Public License.