|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.05.2012, 17:17 | #1 |
Пользователь
Регистрация: 15.01.2012
Сообщений: 12
|
файлы(турбо паскаль)
помогите пожалуйста.мне необходима помощь в том чтобы сделать программу с файлами.есть код программы,просто туда еще надо добавить файлы.если не сложно помогите пожалуйста
program kkr2; const nmax=1000; mmax=4; type mas=array [1..nmax,1..mmax] of real; var res:mas; nach,con,shag,tochn:real; arg,znach:real; sch,nomer:integer; {--------------------------------------------------------------} Procedure Vvod(var a,b,h,e:real); var s: string; er: integer; begin repeat writeln ('Введите начало отрезка (a)'); write ('a='); readln (s); val (s,a,er); if (er<>0) then writeln ('Вы ошиблись. Введите число'); until (er=0); repeat writeln ('Введите конец интервала (b). b должно быть>',a:3:3); write ('b='); readln (s); val (s,b,er); if (er<>0) then writeln ('Вы ошиблись. Введите число') else if (b<=a) then writeln ('Вы ошиблись.Конец отрезка должен быть >a'); until (er=0) and (b>a); repeat writeln ('Введите шаг (h); h>0'); write ('h='); readln (s); val (s,h,er); if (er<>0) then writeln ('Вы ошиблись. Введите число') else if (h<=0) then writeln ('Вы ошиблись. Шаг должен быть >0'); until (er=0) and (h>0); repeat writeln ('Введите точность вычислений (e; e>0)'); write ('e='); readln (s); val (s,e,er); if (er<>0) then writeln ('Вы ошиблись. Введите число') else if (e<=0) then writeln ('Вы ошиблись. Точность вычислений должна быть >0'); until (er=0) and (e>0); end; {--------------------------------------------------------------} Procedure Schet(a,b,h,e:real; var x,y:real; var i,k:integer); var c:real; j:integer; begin writeln ('No |x | f(x) | Номер члена ряда k, (k=1,2,3...)'); writeln ('---------------------------------------------'); i:=1; x:=a; repeat k:=0; c:=-1; y:=0; repeat inc(k); c:=c*((-1)*(sqr(x/2))/(sqr(k+1))); y:=y+c; until (ABS(c)<e); res[i,1]:=i; res[i,2]:=x; res[i,3]:=y; res[i,4]:=k; i:=i+1; x:=x+h; until (x>b); for j:=1 to i-1 do writeln (res[j,1]:3:0,'|',res[j,2]:11:7,'|',res[j,3]:11:7,'',res[j,4]:3:0); writeln; end; {--------------------------------------------------------------} {Главная программа } begin Vvod( nach,con,shag,tochn); writeln(Начало отрезка ',nach:4:2,'Конец отрезка ',con:4:2,'Шаг',shag:6:3,' Точность вычислений ',tochn:6:8); Schet(nach,con,shag,tochn,arg,znach ,sch,nomer); end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
турбо паскаль | Degster | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 03.05.2011 18:35 |
задачи на файлы в турбо паскаль | rewq_q | Помощь студентам | 1 | 14.11.2010 16:29 |
турбо паскаль | Elpis_176 | Помощь студентам | 1 | 09.06.2010 08:23 |
Турбо Паскаль | kmzd | Помощь студентам | 6 | 07.02.2010 09:58 |