bài tập pascal khó, cần giúp đỡ

S

socola01

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Em học tin ngày càng kém, nhất là về cái khoản viết chương trình. Mai bọn em kiểm tra 1 tiết oy mà mấy bài viết chương trình trong đề cương em vẫn chưa biết viết nên em phải cầu cứu đến diễn đàn. Các anh chị giúp em với. Em học ban Xã hội nên môn tin 11 khá khó khăn đối với em. MOng các anh chị giúp đỡ. Em cảm ơn nhiều( vì thời gian gấp rùi quá rùi nên em mong anh chị nào biết thì làm ơn giúp ngay với)

Đây là mấy bài tập viết bằng chương trình con, sử dụng lệnh procedure ý
Bài 1: Viết thủ tục nhập vào 3 số a, b, c bất kì

Bài 2: viết thủ tục đưa ra màn hình giá trị 2 số thực

Bài 3: Viết chương trình giải phương trình bậc 2 với hệ số a, b, c được lấy từ tệp heso.txt và kết quả lưu vào tệp ketqua.txt

Bài 4 : Hãy tạo tệp abc.txt chứa 16 số thực bất kì. Viết chương trình tính tích 2 số liền nhau và lưu kết quả vào tệp ketqua.txt
 
S

socola01

Hjx ở trên là em nhầm, đây là viết chương trình dưới dạng tệp ạ. MOng các anh chị giúp cho, thui thì làm được bài nào hay bài đấy vây. Em xin cảm ơn

Bài 1: Viết thủ tục nhập vào 3 số a, b, c bất kì

Bài 2: viết thủ tục đưa ra màn hình giá trị 2 số thực

Bài 3: Viết chương trình giải phương trình bậc 2 với hệ số a, b, c được lấy từ tệp heso.txt và kết quả lưu vào tệp ketqua.txt

Bài 4 : Hãy tạo tệp abc.txt chứa 16 số thực bất kì. Viết chương trình tính tích 2 số liền nhau và lưu kết quả vào tệp ketqua.txt
 
Q

quanghero100

bài 1:
Mã:
procedure nhap;
var a,b,c:integer;
begin
  clrscr;
writeln('nhap vao 3 so: ');
readln(a,b,c);
end;
bai2:
Mã:
procedure xuat(a,b:real);
begin
 writeln('a=',a);
 writeln('b=',b);
end;
bai 3:
Mã:
uses crt;
var a,b,c:real;
      f:text;
procedure khoitao;
  begin
      assign(f,'heso.txt');
        reset(f);
          read(f,a,b,c);
      close(f);
  end;
procedure xuli_xuat;
var d:real;
  begin
      assign(f,'ketqua.txt');
      reset(f);
      rewrite(f);
      d:=b*b-4*a*c;
      if d<0 then
       writeln(f,'phuong trinh vo nghiem');
     if d>0 then
       begin
         writeln(f,'phuong trinh co 2 nghiem phan biet');
         writeln(f,'x1=',(-b+sqrt(d))/2*a:4:4);
         writeln(f,'x2=',(-b-sqrt(d))/2*a:4:4);
       end;
    if d=0 then
       begin
         writeln(f,'phuong trinh co nghiem kep');
         writeln(f,'x1=x2=',(-b)/2*a:4:4);
       end;
  close(f);
end;
begin
  khoitao;
xuli_xuat;
end.
bai 4:
Mã:
uses crt;
var a:array[1..16] of integer;
      f:text;
procedure khoitao;
var i:integer;
begin
   assign(f,'abc.txt');
   reset(f);
   for i:=1 to 16 do
      read(f,a[i]);
close(f);
end;
procedure xuli(a,b:integer);
var s:integer;
begin
 s:=1;
 s:=s*a*b;
 write(f,s,'  ');
end;
procedure xuat;
var i:integer;
begin
 assign(f,'ketqua.txt');
 reset(f);
 rewrite(f);
 for i:=1 to 8 do
 xuli(a[i*2-1],a[i*2]);
close(f);
end;
begin
 khoitao;
 xuat;
end.
 
Top Bottom