$\color{red}{\fbox{Group 1}\bigstar\text{Topic thực hành}\bigstar} $

M

mikelhpdatke

Chuẩn :D Cho thêm bài nào liên quan đến phần này đi :D
Thêm 1 dạng nữa nữa :D

Gia đình ông A trung bình một tháng tiêu hết x số điện (x nguyên dương )
Tính số tiền gia đình đó phải trả trong 3 tháng biết:
Nếu x >50 thì một số điện = 1000 VNĐ
Nếu x <30 thì một số điện =800 VNĐ.
Nếu 30<=x<=50 thì một số điện = 900 VNĐ

Dữ liệu nhập từ bàn phím lần lượt là số điện của từng tháng.

P/S: Hết bài này hoặc làm vài bài nữa chuyển sang câu lệnh có cấu trúc nhé, lý thuyết thì mình đã post từ mấy ngày trước rồi
 
S

sky_net115

Mã:
Program skynet115;
uses crt;
var x,y:integer;
Begin
        Write('So dien da tieu');readln(x);
        If (x<50) and (x>30) then y:=900;
        If x<30 then y:=800;
        If x>50 then y:=1000;
        Write('So tien phai tra',x*y);
        Readln;
End.

Lần đầu tiên viết rồi nhấn Ctrl + f9 mà không sai lỗi nào =))
 
M

mikelhpdatke

Mã:
Program skynet115;
uses crt;
var x,y:integer;
Begin
        Write('So dien da tieu');readln(x);
        If (x<50) and (x>30) then y:=900;
        If x<30 then y:=800;
        If x>50 then y:=1000;
        Write('So tien phai tra',x*y);
        Readln;
End.
Lần đầu tiên viết rồi nhấn Ctrl + f9 mà không sai lỗi nào =))
=)).
Mà anh đọc hết lý thuyết về câu lệnh có cấu trúc chưa :-?
 
C

cuong276

Bây giờ ta chuyển sang mảng nha. Trước khi chuyển sang mảng thì làm bài này đã nào
Viết chương trình kiểm tra một số có phải là số chính phương hay không?
Nếu có thì in ra màn hình chữ "có" và căn bậc 2 của số đó
Nếu không thì viết là "không"
 
E

englandhuynh

@incoming: thì cứ đóng góp chất xám đi rùi có ng' góp ý thoy
@cuong276: Không dùng ngôn ngữ teen
 
Last edited by a moderator:
S

sky_net115

Bây giờ ta chuyển sang mảng nha. Trước khi chuyển sang mảng thì làm bài này đã nào
Viết chương trình kiểm tra một số có phải là số chính phương hay không?
Nếu có thì in ra màn hình chữ "có" và căn bậc 2 của số đó
Nếu không thì viết là "không"

Mã:
Program skynet115;
uses crt;
var a,b:real;

Begin
        Writeln('Nhap so can kiem tra');Readln(a);
        b:=sqrt(a);

        If a/b-b=0 then Write('co')
        else Write('khong');
        readln;
End.

Rất khoái cái If Then nhá :)))
 
M

mikelhpdatke

Mã:
Program skynet115;
uses crt;
var a,b:real;

Begin
        Writeln('Nhap so can kiem tra');Readln(a);
        b:=sqrt(a);

        If a/b-b=0 then Write('co')
        else Write('khong');
        readln;
End.
Rất khoái cái If Then nhá :)))

Chỗ kiểm tra để in ra "có / không"
Có thể thay là
if b-INT(b) =0 then...

Lý thuyết về mảng đây, rất ngắn nhưng ẩn chứa nhiều bài không dễ ;)) * Nụ cười của mình nham hiểm quá, tự kỷ mất rồi =)) *

http://diendan.hocmai.vn/showpost.php?p=2146340&postcount=6

Nhóm 1 hình như có mỗi anh là hoạt động thì phải :-S
 
C

cuong276

Mã:
Program skynet115;
uses crt;
var a,b:real;

Begin
        Writeln('Nhap so can kiem tra');Readln(a);
        b:=sqrt(a);

        If a/b-b=0 then Write('co')
        else Write('khong');
        readln;
End.

Rất khoái cái If Then nhá :)))

Chương trình còn thiếu. Đề bài cho nếu số đó là số chính phương thì in ra màn hình chữ "có" và căn bậc 2 của số đó mà.
Như vậy là nếu a là số chính phương thì phải write('b') ra nữa.
Mà cái program của anh giống của em nhể.
Hồi ấy em cũng toàn program cuong9xpro; =))
 
S

sky_net115

Chương trình còn thiếu. Đề bài cho nếu số đó là số chính phương thì in ra màn hình chữ "có" và căn bậc 2 của số đó mà.
Như vậy là nếu a là số chính phương thì phải write('b') ra nữa.
Mà cái program của anh giống của em nhể.
Hồi ấy em cũng toàn program cuong9xpro; =))

:Ừa:D Quên, tại để ý mỗi tìm số chính phương thôi =))
Program skynet =)) Phong cách riêng của mỗi người mà :D =))
 
M

mikelhpdatke

Next sang mảng nhé, mọi người chuẩn bị chưa :D

p/s: Dùng từ mọi người liệu có sai không nhỉ :-S
 
M

mikelhpdatke

Viết chương trình tìm giá trị lớn nhất của một mảng chứa các số nguyên gồm N phần tử.
Thuật toán:
- Cho số lớn nhất là số đầu tiên: Max:=a[1].
- Duyệt qua các phần tử a, với i chạy từ 2 tới N: Nếu a>Max thì thay Max:=a;
 
S

sky_net115

Còn bài nào dễ hơn nữa không @.@
Đọc lý thuyết chưa hiểu cho lắm. trong quyển tin 11 viết còn khó hiểu hơn nữa :((
 
M

mikelhpdatke

Còn bài nào dễ hơn nữa không @.@
Đọc lý thuyết chưa hiểu cho lắm. trong quyển tin 11 viết còn khó hiểu hơn nữa :((

Giả sử mảng A vừa nhập vào gồm 5 số là: 5 8 2 10 9

Thế thì bây giờ.
Anh gán Max:=A[1]; Tức là Max có giá trị =5.
Sau đó, anh so sánh Max với tất cả các số còn lại, tất nhiên sẽ không so sánh với số đầu tiên. VD: So sánh Max với A[2]. Ở đây A[2] =8. Hiển nhiên max<A[2]. So sánh xong nếu max< A[2] thì sẽ gán max:=A[2]. Tương tự, tiếp tục so sánh max với A[3], A[4],.... đến A[n]. So sánh đến hết A[n] sẽ tìm được max

Hiển nhiên trong vd trên, sau khi so sánh lần đầu có max<A[2] thì max có giá trị là 8


Vậy nên ta sẽ duyẹt từ phần tử thứ 2 đến phần thử thứ n trong mảng rồi dùng lệnh If
Mã:
If A[i]>Max then max:=A[i].
{ Nếu phần tử thứ i lớn hơn max thì lại gắn giá trị của A[i] cho max}
 
Last edited by a moderator:
S

sky_net115

Cho bài toán nào đi nào :p
Lý thuyết cũng cố mãi vào được một nửa rồi :p Giờ thì cho bài tập để làm thôi ^^!
 
Top Bottom