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

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

Administrator
I'm : inpain
Huân Chương : Giải đề cương Tin học. Medal145Giải đề cương Tin học. 13
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 : 5998
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
Giải đề cương Tin học. Collap10Bài gửiTiêu đề:  Giải đề cương Tin học.Giải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyThời gian: Giải đề cương Tin học. Empty13/12/2010, 8:03 pm
kim ngân is every thing of my life
avatar
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 : 4932
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
Giải đề cương Tin học. Collap10Bài gửiTiêu đề:  Giải đề cương Tin học.Giải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyThời gian: Giải đề cương Tin học. Empty13/12/2010, 8:12 pm
avatar
itringuyen 
Gà Con

Gà Con
Tổng Số Bài Gửi Tổng Số Bài Gửi : 2
Ca3Cash Ca3Cash : 4899
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
Giải đề cương Tin học. Collap10Bài gửiTiêu đề:  Giải đề cương Tin học.Giải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyThời gian: Giải đề cương Tin học. Empty13/12/2010, 8:28 pm
ThienY_9
ThienY_9 
Web Designer
Web Designer
I'm : yeehaw
Huân Chương : Giải đề cương Tin học. Medal1152Giải đề cương Tin học. Medal1012Giải đề cương Tin học. Medal145

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 : 4959
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???
Giải đề cương Tin học. Collap10Bài gửiTiêu đề:  Giải đề cương Tin học.Giải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyThời gian: Giải đề cương Tin học. Empty13/12/2010, 8:37 pm
ThienY_9
ThienY_9 
Web Designer
Web Designer
I'm : yeehaw
Huân Chương : Giải đề cương Tin học. Medal1152Giải đề cương Tin học. Medal1012Giải đề cương Tin học. Medal145

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 : 4959
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í
Giải đề cương Tin học. Collap10Bài gửiTiêu đề:  Giải đề cương Tin học.Giải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyThời gian: Giải đề cương Tin học. Empty13/12/2010, 9:09 pm
avatar
macarvt 
Gà Con

Gà Con
Tổng Số Bài Gửi Tổng Số Bài Gửi : 1
Ca3Cash Ca3Cash : 4900
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?
Giải đề cương Tin học. Collap10Bài gửiTiêu đề:  Giải đề cương Tin học.Giải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyThời gian: Giải đề cương Tin học. Empty13/12/2010, 10:37 pm
avatar
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 : 4885
Danh Vọng Danh Vọng : 0
Trả lời chủ đề này 



thank u thank u :X :X :X
Giải đề cương Tin học. Collap10Bài gửiTiêu đề:  Giải đề cương Tin học.Giải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyGiải đề cương Tin học. EmptyThời gian: Giải đề cương Tin học. Empty
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. Empty
Giải đề cương Tin học. Empty Giải đề cương Tin học. Giải đề cương Tin học. Empty
Giải đề cương Tin học. Empty
* 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
-
Giải đề cương Tin học. Empty Giải đề cương Tin học. Empty
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.