Hỏi đáp mọi chủ đề liên qua đến công nghệ thông tin, internet, lập trình, SEO...
Nội quy chuyên mục: Hỏi đáp mọi chủ đề liên qua đến công nghệ thông tin, internet, lập trình, SEO...

- Chuyên nhận giải đáp thắc mắc sử dụng Word, Excel, Power Point

- Ai cần download driver hay Firmware cho máy tính máy in, thì vào đây nhé, tìm gì cũng có Driver 360

- Cập nhật tin tức với Mr Công nghệ tại đây
By nguyenngoc_k1_khmt
#512641 Bài 1: lập chương trình giải pt bậc nhất ax+b>0 với các hệ số a, b được nhập từ bàn phím

Bài 2: Thời khoá biểu như sau:

Thứ 2,5 : học lý thuyết

Thứ 3,7: thực tập tại trường

Thứ 4,6: tới xí nghiệp

Chủ nhật: Nghỉ

Lập chương trình cho phép nhập vào 1 ngay bất kì trong tháng 4 từ bàn phím và thông báo ngày đó phải làm gì biết rằng ngày 1/4 là chủ nhật

Em xin Thank trước ạ


Lưu ý khi sử dụng

- Gặp Link download hỏng, hãy đăng trả lời (yêu cầu link download mới), Các MOD sẽ cập nhật link sớm nhất
- Tìm kiếm trước khi đăng bài mới

Chủ đề liên quan:
Advertisement
By love_story_0880
#512647 Thật tình mấy bài này dễ... moi vào học ah ban ?? ... có thể tìm trên google dc ... mà không có cũng chả sao.... mình thấy tự làm còn nhanh hơn là đi hỏi han đấy ...!! tự tập làm mấy bài đơn giản đi ... hỏi thế này .. sau này bài khó sao làm dc chứ ....khó quá thì lên đây hỏi...mình sẽ gợi ý
By Jamiel
#512652 Thật tình mấy bài này dễ... moi vào học ah ban ?? ... có thể tìm trên google dc ... mà không có cũng chả sao.... mình thấy tự làm còn nhanh hơn là đi hỏi han đấy ...!! tự tập làm mấy bài đơn giản đi ... hỏi thế này .. sau này bài khó sao làm dc chứ ....khó quá thì lên đây hỏi...mình sẽ gợi ý dễ thì chỉ cho người ta đi.điển hình như bài 1 chẳng hạng
By Ransom
#512653 Viết chương trình giải phương trình Ax+B =0. Các hệ số A, B được nhập từ bàn phím.

@Lập trình:

Program Pt1;

Var a, b, x: integer;

Begin

Write(‘Nhap he so a,b: ‘);Readln(a,b);

If a<>0 then

Write(‘Phuong trinh co mot nghiem x = ‘,-b/a)

Else

If b=0 then
...Writeln(‘Phuong trinh co vo so nghiem.’)

Else
...Writeln(‘Phuong trinh vo nghiem.’);

Readln

End.

By justpur
#512663 Viết chương trình giải phương trình Ax+B =0. Các hệ số A, B được nhập từ bàn phím.

@Lập trình:

Program Pt1;

Var a, b, x: integer;

Begin

Write(‘Nhap he so a,b: ‘);Readln(a,b);

If a<>0 then

Write(‘Phuong trinh co mot nghiem x = ‘,-b/a)

Else

If b=0 then
...Writeln(‘Phuong trinh co vo so nghiem.’)

Else
...Writeln(‘Phuong trinh vo nghiem.’);

Readln

End.
Thế bác khai biến x thừa kia ^^!


Write(‘Phuong trinh co mot nghiem x = ‘,-b/a)

>> nên viết lại là : Write(‘Phuong trinh co mot nghiem x = ‘,-b/a:2:2)


Để 2 khoảng trống + lấy 2 phần thập phân .. nếu số đó chia ra bị lẻ nhìu
By tieucongchua_chodoi1tinhiu
#512670 Mình bỏ vừa lâu có biết đến Pascal đâu! Đúng như bạn lũy ý, nhưng chỉ cần bạn ấy nắm được căn bản thôi rồi sau này mở rộng lớn thêm! Có khi ct viết xong lúc chạy ta mới phát hiện thêm những cái cần thêm.
By thangtaulai_deptrai
#512671 Thank các bạn nha. En không thấy nút Thank đâu cả. Nói thật em hồi cấp 3 không học tin nên chẳng biết cái gì cả. Ngày mai phải đi thực tập tin mà bài tập chưa biết làm nên lên nhờ các bạn làm hộ. Hôm sau em học lại lý thuyết.
By Trentin
#512678 bài 2 thì làm theo case

mấy cái này lâu lắm rồi nên chỉ gợi ý được thôi
Kết nối đề xuất:
Nơi này có anh English Lyrics
Synonym dictionary
Advertisement
Advertisement