• Webdien.com - Cầu nối dân điện


    1. [HOT] - Webdien đang tuyển các vị trí quản lý cao cấp

      ntech.com.vn

  • Kết quả 1 đến 2 của 2
    1. #1
      Tham gia
      19-06-2011
      Bài viết
      48
      Cảm ơn
      7
      Được cảm ơn 5 lần, trong 4 bài

      Mặc định Ai giỏi lập trình giúp m chuyển code từ pascal sang visua basic vs

      uses crt,graph;var
      a,b,c,d,max,k1,k2,t1,t2,t,tm,tod,xicma:real;
      gd,gm,k,km,ky,i:integer;
      y:array[0..1000]of real;
      st:string;
      BEGIN
      clrscr;
      k1:=100;
      k2:=0.5;
      t1:=0.01;
      t2:=0.02;
      t:=0.002;
      y[0]:=0;
      y[1]:=0;
      y[2]:=0;
      a:=8*t1*t2+4*t1*t+4 *t2*t+2*t*t+k1*k2*t*t*t;
      b:=-24*t1*t2-4*t1*t- 4*t2*t+2*t*t+3*k1*k2*t*t*t;
      c:=24*t1*t2-4*t1*t-4*t 2*t-2*t*t+3*k1*k2*t*t*t;
      d:=-8*t1*t2+4*t1*t+4*t 2*t-2*t*t+k1*k2*t*t*t;
      for k:=0 to 997 do
      begin
      y[k+3]:=(-b*y[k+2]-c*y[k +1]-d*y[k]+8*k1*t*t*t)/a;
      {in ra 100 gia tri}
      end;
      writeln('100 gia tri cach nhau');
      for k:=1 to 100 do
      begin
      write('y[',k*10:3,']=',y[k*10]:5:4);
      if (k mod 6)=0 then writeln;
      if k=102 then readln;
      end;

      --------------------------------------------------------------------------------
      Xem bài viết cùng chuyên mục:


    2. #2
      Tham gia
      16-10-2012
      Bài viết
      5
      Cảm ơn
      0
      Được cảm ơn 0 lần, trong 0 bài

      Mặc định Ðề: Ai giỏi lập trình giúp m chuyển code từ pascal sang visua basic vs

      cũng khó ha

    Trả lời với tài khoản Facebook

    Các Chủ đề tương tự

    1. Cần bán - Bộ chuyển đổi tín hiệu nhiệt độ Pt100, K, S, R ..sang dòng ,sang áp
      Bởi quoc198x trong diễn đàn Máy biến áp, biến dòng
      Trả lời: 0
      Bài cuối: 29-08-2014, 20:37
    2. Trợ giúp - Chuyển đổi điện 1 pha sang 3 pha .
      Bởi cmhiep trong diễn đàn Máy biến áp, máy biến dòng
      Trả lời: 63
      Bài cuối: 19-02-2014, 21:29
    3. Trợ giúp - chuyển đổi cổng com sang USB
      Bởi trungdien121 trong diễn đàn PLC
      Trả lời: 3
      Bài cuối: 28-11-2012, 23:01
    4. Trợ giúp - cách chuyển từ STL sang LAD vs S7 300
      Bởi nhoclong0811 trong diễn đàn PLC
      Trả lời: 8
      Bài cuối: 09-06-2012, 00:30
    5. Xin Code đoạn chia số hex 2 byte sang bcd
      Bởi haprohaui trong diễn đàn Vi xử lý - Vi điều khiển
      Trả lời: 2
      Bài cuối: 16-12-2010, 12:49
    Văn Võ Trạng Nguyên
    Hắc Hiệp Đại Chiến Thánh Bài 2
    Đặc Cảnh Diệt Ma
    Khử Ma Đạo Trưởng
    Cương Thi Diệt Tà
    Sự Hình Thành Của Đế Chế Mông Cổ
    NHỮNG KHOẢNH KHẮC ĐÁNG NHỚ CỦA GIẢI GOLF PHÚ MỸ HƯNG 2016