Giúp mình phần pascal này với

đề là nhập vào tên cung rồi xét. Mình nghĩ là dùng câu lệnh IF then nhưng gán chữ ko dc ai biết giúp với đang cần gấp T.T
 
Sửa lần cuối:
quanltv

quanltv

Sư phụ của ADMIN
Reply: giúp mình phần pascal này với

Kiểm tra điều kiện thì chắc chắn sẽ dùng câu lệnh IF ... then ... Tên cung hoàng đạo có thể gán là string để hiển thị hoặc mã hoá là các số từ 1 đến 12. Bạn cung cấp cho mình kiến thức về vấn đề "cung hoàng đạo rồi xét xem có hợp nhau ko", mình sẽ giúp bạn.
 
B

banhxenuoc

Reply: giúp mình phần pascal này với

đây bạn
Bảo Bình (22/01 – 18/02)
* Cung “hợp cạ”: Song Ngư, Ma Kết, Song Tử và Thiên Bình rất hợp với Bảo Bình.
* “Khắc” cung: Kim Ngư, Sư Tử, Cự Giải.
Song Ngư (19/2 — 20 /3)
*Cung “hợp cạ”: có mối quan hệ rất tốt với Cự Giải, Hổ Cáp.
* “Khắc” cung: Xữ Nữ và Nhân Mã không thích Song ngư cho lắm.
Bạch Dương (21/3 – 19/4)
* Cung “hợp cạ”: Bạch Dương chơi rất tốt với: Sư Tử và Nhân Mã.
* “Khắc” cung:có vẽ như Bạch Dương không hợp với: Ma Kết, Cự Giải, Thiên Bình.
Kim Ngưu (20/4 — 20/5)
* Cung “hợp cạ”: Xữ Nữ và Ma Kết.
* “Khắc” cung: Bảo Bình và Hổ Cáp.
Song Tử (21/5 – 21/6)
* Cung “hợp cạ”: Bảo Bình, Thiên Bình
* “Khắc” cung: Xữ Nữ, Sư Tử và Nhân Mã.
Cự giải (22/6 — 22/7)
* Cung “hợp cạ”: Song Ngư, Thần Nông sẽ là những người bạn, người yêu tuyệt vời của Cự Giải.
* “Khắc” cung: Bạch Dương, Thiên Bình và Ma Kết.
Sư Tử (23/7 – 22/8)
* Cung “hợp cạ”: Nhân Mã và Bạch Dương luôn thu hút được sự chú ý và tình cảm của Sư Tử.
* “Khắc” cung: Ma Kết, Bảo Bình, Kim Ngưu luôn tìm cách để vượt lên và chiến thắng Sư Tử.
Xữ Nữ (23/8 — 22/9)
* Cung “hợp cạ”: rất hợp với Kim Ngưu và Ma Kết.
* “Khắc” cung: không hợp với Song Ngư và Song Tử.
Thiên Bình (23/9 – 22/10)
* Cung “hợp cạ”: Song Tử và Bảo Bình.
* “Khắc” cung: Bạch Dương, Cự Giải, Ma Kết.
Hổ Cáp (23/10 — 21/11)
* Cung “hợp cạ”: Song Ngư, Cự Giải.
* “Khắc” cung: Bảo Bình, Kim Ngưu và Sư Tử.
Nhân Mã (22/11 – 21/12)
* Cung “hợp cạ”: Bạch Dương, Sư Tử và Nhân Mã rất hòa hợp với nhau.
* “Khắc” cung: luôn gặp rắc rối Xữ Nữ, Song Tử và Song Ngư.
Ma Kết (22/12 — 21/01)
* Cung “hợp cạ”: Xữ Nữ và Kim Ngưu.
* “Khắc” cung: không hợp với Thiên Bình, Cự Giải.

 
quanltv

quanltv

Sư phụ của ADMIN
*Về ngày tháng sinh trong năm -> tên cung Hoàng Đạo, hoàn toàn có thể làm được, nhưng không phải yêu cầu của bài này.

*Bạn lập trình nhập tên cung có chứa dấu cách, hoa thường linh tinh cũng được, sau đó ta sẽ là hoa hết tất cả các kí tự lên để tính toán. Với Bảo Bình có thể nhập: "bao binh", "Bao Binh", "BAO BINH", "BaO BInh". Dùng hàm upcase(cung1), cung1 là tên cung hoàng đạo thứ nhất, biến xâu kí tự (string)
Câu lệnh như sau:
Mã: 
n:=length(cung1);
  for i:=1 to n do cung1[i]:=upcase(cung1[i]);

*Chỉ nên lập trình là 2 cung hợp nhau hay khắc nhau, còn thêm rất hợp thì sẽ phức tạp hơn, để sau.
VD 1 cung trong phần tính toán:
Bảo Bình (22/01 – 18/02)
* Cung “hợp cạ”: Song Ngư, Ma Kết, Song Tử và Thiên Bình rất hợp với Bảo Bình.
* “Khắc” cung: Kim Ngư, Sư Tử, Cự Giải.
Nhấn để mở rộng...

Code gợi ý, bạn nên tự hoàn thiện nốt.

Mã: 
Program cung_hoang_dao;
Var cung1, cung2: string[15];
    kq,n,i: word;


BEGIN
{Nhap ten cung hoang dao}
  write('Nhap vao ten cung thu nhat: '); readln(cung1);
  write('Nhap vao ten cung thu hai: '); readln(cung2);


{In hoa 2 ten cung vua nhap}
  n:=length(cung1);
  for i:=1 to n do cung1[i]:=upcase(cung1[i]);


  n:=length(cung2);
  for i:=1 to n do cung2[i]:=upcase(cung2[i]);


{Tinh toan ket qua}
  if cung1='BAO BINH' then
    if (cung2='SONG NGU') or (cung2='MA KET') or (cung2='SONG TU') or (cung2='THIEN BINH')
    then kq:= 1
      else if (cung2='KIM NGUU') or (cung2='SU TU') or (cung2='CU GIAI')
      then kq:= 2
        else kq:= 3;
......


{Dua ra ket qua}
  case kq of
    1: writeln('Cung ',cung1,' hop ca voi cung ',cung2,'.');
    2: writeln('Cung ',cung1,' khac cung ',cung2,'.');
    3: writeln('Khong co du lieu de so sanh 2 cung nay.');
  end;
  readln;
END.
 
Đăng nhập bằng tài khoản VFO hoặc Google

Bài viết mới nhất

Thống kê

Chủ đề
102,301
Bài viết
469,938
Thành viên
340,414
Thành viên mới nhất
cho2sung

Bài viết được quan tâm nhiều

Top