Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Botsman Статус: Практикант Рейтинг: 160 ∙ повысить рейтинг >>

Тимошенко Дмитрий Статус: 9-й класс Рейтинг: 84 ∙ повысить рейтинг >>

Micren Статус: Практикант Рейтинг: 44 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 872
от 05.05.2009, 15:05

Вопрос № 166140: Уважаемые эксперты. Не знаю как перевести исходный программный код из языка C на PASCAL, помогите пожалуйста Спасибо за внимание...

Вопрос № 166.140

Уважаемые эксперты. Не знаю как перевести исходный программный код из языка C на PASCAL, помогите пожалуйста Спасибо за внимание Приложение: #include <stdio.h> #include <conio.h> #include <math.h> #include <graphics.h> float teilor(float x); float ln(float x); void tabl1(); void tabl2(); void init_graph(); float x,x1,x0,dx=0.001; /* dx - шаг */ int main() { extern float x,x0,x1; printf("Vvedite nachalnoe i konechnoe znachenie (|x|>1) "); printf("Xnach = "); scanf("%f",&x0); printf("Xkon = "); scanf("%f",&x1); tabl1(); for(x=x0;x<=x1;x+=dx) { if(x>=-1.0-dx/2.0 && x<=1.0+dx/2.0) continue; printf("|%15.3f |%15.5f |%15.5f | ",x,teilor(x),ln(x)); } tabl2(); getch(); init_graph(); getch(); getch(); return 0; } void tabl1() { printf("********************************************************** "); printf("| x | f1 | f2 | "); printf("********************************************************** "); } void tabl2() { printf("********************************************************** "); } float teilor(float x) { float a,b,s; int i=0; if (x >=-1 && x <=1) return 0; s=0.0; a=1/x; do { b=2*i+1; i=i+1; a=a*x*x; s=s+1/(a*b); } while(fabs(1/(a*b))>0.00000001); return 2*s; } float ln(float x) { double koef=0.05; /* свободный член */ double y; if(x >= -1 && x <=1) return 0; y=log((x+1)/(x-1)); if (y>0) y+=koef; else y+=-koef; return y; } void init_graph() { extern float x,x0,x1; float sx,sy; int i; char s[2]; int GraphDriver,GraphMode,ErrorCode; GraphDriver=DETECT; initgraph(&GraphDriver,&GraphMode,""); ErrorCode=graphresult(); if (ErrorCode!=grOk) { printf("Graphics Sysytem Error: %s ",grapherrormsg(ErrorCode)); exit(1); } setviewport(10,10,620,450,25); setlinestyle(SOLID_LINE,0,NORM_WIDTH); setcolor(WHITE); line(20,220,600,220); line(320,15,320,425); outtextxy(597,217,">"); outtextxy(600,229,"X"); outtextxy(317,15,"^"); outtextxy(309,15,"Y"); setcolor(YELLOW); for (x=x0;x<=x1;x+=dx) { if(x>=-1-dx/2 && x<=1.0+dx/2) { x=1+dx; } sx=600/(-x0+x1); /* Вот здесь как бы масштабирование происходит */ sy=120/(-x0+x1); putpixel(317+x*sx,220-teilor(x)*sy,GREEN); putpixel(317+x*sx,220-ln(x)*sy,YELLOW); } }

Отправлен: 29.04.2009, 20:31 Вопрос задал: Артур Безруков (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 8)

Отвечает: Киселева Светлана Александровна Здравствуйте, Артур Безруков! Извините, что не прокомментировала программу, на работу надо бежать. Если нужны пояснения, то попозже. В функции teilor() неправильно переведён цикл. Нужно так: while (abs(1/(a*b))>0.00000001) do begin b:=2*i+1; i:=i+1; a:=a*x*x; s:=s+1/(a*b); tnd; -------- ∙ Отредактировал: sir Henry, Академик ∙ Дата редактирования: 01.05.2009, 15:02 (время московское) Приложение: program sss; uses graph; const dx=0.001; var x,x1,x0,sx,sy:real; GraphDriver,GraphMode,ErrorCode:integer; s:string[2]; function teilor(x:real):real; var a,b,s:real; i:integer; Begin i:=0; if (x>=-1) and (x<=1) then teilor:=0 else begin s:=0; a:=1/x; repeat b:=2*i+1; i:=i+1; a:=a*x*x; s:=s+1/(a*b); until (abs(1/(a*b))>0.00000001); teilor:=2*s; end; End; function log(x:real):real; var koef,y:real; Begin koef:=0.05; { свободный член } if (x>=-1) and (x<=1) then log:=0; y:=ln((x+1)/(x-1)); if (y>0) then y:=y+koef else y:=y-koef; log:=y; End; Begin writeln('Vvedite nachalnoe i konechnoe znachenie (|x|>1)'); write('Xnach = '); readln(x0); write('Xkon = '); readln(x1); writeln('**********************************************************'); writeln('| x | f1 | f2 |'); writeln('**********************************************************'); x:=x0; while x<=x1 do begin if not ((x>=-1-dx/2) and (x<=1+dx/2)) then writeln(x:15:3,teilor(x):15:5, log(x):15:5); x:=x+dx; end; writeln('**********************************************************'); readln; GraphDriver:=DETECT; initgraph(GraphDriver,GraphMode,'d:BPBgi'); ErrorCode:=graphresult; if (ErrorCode<>grOk) then begin writeln('Graphics Sysytem Error: ',grapherrormsg(ErrorCode)); exit; end; setviewport(10,10,620,450,true); setlinestyle(0,0,1); setcolor(WHITE); line(20,220,600,220); line(320,15,320,425); outtextxy(597,217,'>'); outtextxy(600,229,'X'); outtextxy(317,15,'^'); outtextxy(309,15,'Y'); setcolor(YELLOW); x:=x0; while x<=x1 do begin if (x>=-1-dx/2) and (x<=1+dx/2) then x:=1+dx else begin sx:=trunc(600/(-x0+x1)); { Вот здесь как бы масштабирование происходит } sy:=trunc(120/(-x0+x1)*3); putpixel(317+round(x*sx),220-round(teilor(x)*sy),GREEN); putpixel(317+round(x*sx),220-round(log(x)*sy),YELLOW); end; x:=x+dx; end; readln; CloseGraph; End. --------- Если помочь другим в твоих силах - помоги!

Ответ отправила: Киселева Светлана Александровна (статус: 3-й класс) Ответ отправлен: 30.04.2009, 16:23 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 248458 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 166.146

Здравствуйте уважаемые эксперты!!!!!! Делала курсовую написала с грехом пополам код для взятия 2х чисел из файла(числа в пределах от 0-100), перевод их в восьмиричную систему счисления, потом в двоичную, произвести операции над 2мя двоичными числами тоесть сложить и вычисть их, перевести обратно в восьмиричную и вывести в файл, вот что получилось (код в Приложении). Вот тут возникает загвоздка( неправильный перевод в двоичную систему) и понятие не имею как организовать сложение и вычитание между двоичными числами :( ПОмогите пожалуйста буду очень признательна!!!!! Приложение: program kursovaya; const hash_table : string = '01234567'; masBin: array[0..7] of string[3]= ('000','001','010','011', '100','101','110','111'); var i,j:integer; f,q:text; n: array [1..2] of integer; osnovanie:byte; otvet: array [1..2] of string; c2: array [1..2] of string; a,v,d,c8:string; begin assign(f, 'fileinput.txt'); reset(f); i:=0; for i:=1 to 2 do begin readln(f,n[i]); osnovanie:=8; otvet[i] := ''; while n[i] > osnovanie do begin otvet[i] := hash_table[(n[i] mod osnovanie)+1] + otvet[i]; n[i] := n[i] div osnovanie; end; if n[i]=osnovanie then otvet[i] := hash_table[n[i]] + otvet[i] else otvet[i] := hash_table[n[i] + 1] + otvet[i]; c2[i]:=''; for j:=1 to length(otvet[i]) do begin case ord(otvet[i][j]) of 48..57: c2[i]:=c2[i]+masBin[ord(otvet[i][j])-48]; //для 0..9 end; end; end; close(f); a:=c2[1]+c2[2]; c8:=''; for i:=1 to length(a) mod 3 do a:='0'+a; while length(a) > 2 do begin v:=copy(a,length(a)-2,3); {вырезаем из числа триаду (набор из трех символов)} i:=0; while v<>masBin[i] do inc(i); {выбираем из массива номер соответствующего элемента} str(i,d); c8:=d+c8; {непосредственно формируем число} delete(a,length(a)-2,3); end; assign(q, 'fileoutput.txt'); rewrite(q); writeln(q,c8); close(q); end.

Отправлен: 29.04.2009, 21:32 Вопрос задал: Ксения Подручева (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Бизин Михаил Анатольевич Здравствуйте, Ксения Подручева! Переделал Ваш код, добавил суммирование и вычитание строк с двоичным представлением числа. Код почти Ваш, надеюсь разберётесь с минимумом комментариев. Результат такой: fileinput.txt 78 69 fileoutput.txt 78 = 116 = 1001110 69 = 105 = 1000101 01001110 + 01000101 = 10010011 = 223 01001110 - 01000101 = 00001001 = 011 Приложение: program kursovaya; const masBin: array[0..7] of string[3]= ('000','001','010','011','100','101','110','111'); var i,j:integer; f,q:text; n: array [1..2] of integer; osnovanie:byte; otvet: array [1..2] of string; a,b,c2,c8: array [1..2] of string; invc2,v,d:string; Perenos: byte; function SumBits(b1,b2: char; var c: byte): char; //c - бит переноса var Sum: byte; begin Sum:=Ord(b1)-48+Ord(b2)-48+c; SumBits:=Chr(Sum mod 2 + 48); c:=Sum div 2; //бит переноса end; begin assign(f, 'fileinput.txt'); assign(q, 'fileoutput.txt'); reset(f); rewrite(q); i:=0; for i:=1 to 2 do begin readln(f,n[i]); write(q,n[i],' = '); osnovanie:=8; otvet[i] := ''; if n[i]=0 then otvet[i]:='0' else while n[i] > 0 do begin otvet[i] := Chr(n[i] mod osnovanie + 48) + otvet[i]; n[i] := n[i] div osnovanie; end; c2[i]:=''; c2[i]:=masBin[ord(otvet[i][1])-48]; //Преобразуем первое (левое) 8-миричное число Delete(c2[i],1,Pos('1',c2[i])-1); //Уберем нули в начале for j:=2 to length(otvet[i]) do c2[i]:=c2[i]+masBin[ord(otvet[i][j])-48]; writeln(q,otvet[i],' = ',c2[i]); end; close(f); { Для сложения и вычитания нужно выровнить обе строки c2 } i:=Length(c2[1])-Length(c2[2]); while i>0 do begin c2[2]:='0'+c2[2]; dec(i); end; while i<0 do begin c2[1]:='0'+c2[1]; inc(i); end; { ...и добавить дополнительный ноль, т.к. длина может удлиниться при сложении } c2[1]:='0'+c2[1]; c2[2]:='0'+c2[2]; { ---------- Сложение -------------- } { Подготовка к сложению } i:=Length(c2[1]); SetLength(a[1],i); Perenos:=0; { Цикл сложения } while i>0 do begin a[1][i]:=SumBits(c2[1][i], c2[2][i], Perenos); dec(i); end; { ---------- Вычитание ------------- } { Вычитание делается инверсией вычитаемого, потом сложением, потом + 1} { c = b - a = b + inv(a) + 1 } invc2:=c2[2]; for i:=1 to Length(invc2) do begin //Цикл инверсии invc2[i]:='0'; if c2[2][i]='0' then invc2[i]:='1'; end; { Подготовка к сложению } i:=Length(invc2); SetLength(a[2],i); Perenos:=1; //Сразу добавим 1 { Цикл сложения } while i>0 do begin a[2][i]:=SumBits(c2[1][i], invc2[i], Perenos); dec(i); end; { Преобразование результатов в восьмиричный вид } for i:=1 to 2 do begin c8[i]:=''; b[i]:=a[i]; for j:=1 to length(b[i]) mod 3 do b[i]:='0'+b[i]; while length(b[i]) > 2 do begin v:=copy(b[i],length(b[i])-2,3); {вырезаем из числа триаду (набор из трех символов)} j:=0; while v<>masBin[j] do inc(j); {выбираем из массива номер соответствующего элемента} str(j,d); c8[i]:=d+c8[i]; {непосредственно формируем число} delete(b[i],length(b[i])-2,3); end; end; Writeln(q,c2[1],' + ',c2[2],' = ',a[1],' = ',c8[1]); Writeln(q,c2[1],' - ',c2[2],' = ',a[2],' = ',c8[2]); close(q); end.

Ответ отправил: Бизин Михаил Анатольевич (статус: 6-й класс) Ответ отправлен: 01.05.2009, 11:07 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 248489 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 166.175

Здравствуйте!!! Очень нужна ваша помощь помогите бедному студенту.....у меня зачёт уже через два дня вот задание......В текстовом файле MASSIV.TXT содержится массив 5*5 чисел типа integer. Заменить на нули элементы тех строк, у которых диагональный элемент равен нулю.Записать массив в тот же файл......Заранее ОГРОМНОЕ спасибо!!!!!!!!!

Отправлен: 30.04.2009, 09:26 Вопрос задал: Никитин Никита Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Киселева Светлана Александровна Здравствуйте, Никитин Никита Сергеевич! Попробую помочь бедному студенту. Сама была в вашей шкуре на зимней сессии, когда не могла задчку на Ассемблере оформить. Приступим: program sss; var f:text; a:array[1..5,1..5] of integer; i,j:byte; Begin assign(f,'MASSIV.TXT'); {Связываем переменную f текстового типа с вашим текстовым файлом} reset(f); {Открываем файл для чтения} for i:=1 to 5 do for j:=1 to 5 do read(f,a[i,j]); {Читаем данные из файла и записываем их в массив} for i:=1 to 5 do begin if a[i,i]=0 then for j:=1 to 5 do {Если диагональный элемент массива равен нулю, то "бегаем" по строке i и записываем во все элементы строки нули} a[i,j]:=0; end; rewrite(f); {Открываем текстовый файл для перезаписи} for i:=1 to 5 do begin for j:=1 to 5 do write(f,a[i,j]:3); {Записываем туда в строчку элементы каждой строки массива,} writeln(f); end; {не забывая переходить после каждой строки на новую строку} close(f); {закрываем текствоый файл} readln End. Удачи! --------- Если помочь другим в твоих силах - помоги!

Ответ отправила: Киселева Светлана Александровна (статус: 3-й класс) Ответ отправлен: 30.04.2009, 11:08 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 248437 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 166.187

Здравствуйте помогите пожалуйста решить вот такую вот задачку......В типизированном файле INPUT.DAT содержится массив 5*5 чисел типа integer. Удалить строку в которой находится минимальный элемент массива и столбец в котором находится максимальный элемент массива....Записать массив в файл OUTPUT.DAT.....Спасибо заранее!!!!!

Отправлен: 30.04.2009, 11:26 Вопрос задал: Никитин Никита Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Boriss Здравствуйте, Никитин Никита Сергеевич! Код программы в приложении. Ежели что не понятно будет - пишите Пример окна программы после выполнения Код: 0 3 -14 20 27 -33 32 16 37 43 8 47 7 -16 6 29 -8 37 -23 33 -30 -16 -28 31 16 0 -14 20 27 8 7 -16 6 29 37 -23 33 -30 -28 31 16 Приложение: CONST inFileName = 'INPUT.DAT'; outFileName = 'OUTPUT.DAT'; N = 5; arMax = 100; VAR f: File of Integer; ar: array[1..N, 1..N] of Integer; i, j: Integer; v: Integer; min_col, min_row, max_col, max_row: Integer; BEGIN {Сначала создадим массив, а так надо будет эту часть убрать} Assign(f, inFileName); Rewrite(f); for i:=1 to N do for j:=1 to N do {Вообще-то это зря: в типзированном все подряд хранится} begin v := Round( (Random - 0.5)*arMax); write(f, v) end; Close(f); WriteLn; {Убрать до сих пор} Assign(f, inFileName); Reset(f); min_col := 1; min_row := 1; max_col := 1; max_row := 1; for i:= 1 to N do begin for j:= 1 to N do begin Read(f, ar[i,j]); if ar[i,j] < ar[min_row, min_col] then begin min_row := i; min_col := j end; if ar[i,j] > ar[max_row, max_col] then begin max_row := i; max_col := j end; write(ar[i,j]:8); end; writeLn end; close(f); Assign(f, outFileName); Rewrite(f); for i:=1 to N do if i <> min_row then for j:=1 to N do if j <> max_col then write(f, ar[i,j]); Close(f); {Прочитаем заново, чтобы убедиться} WriteLn; Assign(f, outFileName); Reset(f); for i := 1 to N-1 do begin for j:= 1 to N-1 do begin Read(f, ar[i,j]); write(ar[i,j]:8); end; WriteLn end; Close(f); END. --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск, Факультет Электронной Техники WWW: Программирование на Паскале ICQ: 320096696 ---- Ответ отправлен: 30.04.2009, 12:08 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 248446 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 166.194

Помогите решить задачу на языке Паскаль: Дан числовой ряд и малая величина Е.Найти сумму ряда с точностью Е, общий член которого задан формулой a= 1/(3n-2)*(3n+1) Заранее спасибо

Отправлен: 30.04.2009, 13:09 Вопрос задала: Solovei (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Proce Здравствуйте, Solovei! Я подозреваю, что имелось ввиду выражение a = 1/((3*n-2)*(3*n+1)) Приложение: program z_166194; var S, a, eps: Real; n: Integer; begin Write('Vvedite tochnost: '); ReadLn(eps); s := 0; n := 1; a := 0.25;{при n = 1} while a > eps do {пока член последовательности больше eps} begin s := s + a;{тогда добавляем его к сумме предыдущих} inc(n); a := 1/((3*n-2)*(3*n+1));{вычисляем следующий элемент последовательности} end; WriteLn('= ', s:0:5); ReadLn end.

Ответ отправил: Proce (статус: 4-й класс) Ответ отправлен: 30.04.2009, 21:19 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 248466 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

Отвечает: Киселева Светлана Александровна Здравствуйте, Solovei! Я просмотрела отправленную Вам программу и Ваш вопрос. Думаю, что ненарочно предыдущий человек не так воспринял условие, как Вы его задали. Строчку a := 1/((3*n-2)*(3*n+1)); надо записать a := 1/(3*n-2)*(3*n+1); а начальное значение а тогда действительно не 0.25 при n=1, а будет а:=4 в качестве начального данного. --------- Если помочь другим в твоих силах - помоги!

Ответ отправила: Киселева Светлана Александровна (статус: 3-й класс) Ответ отправлен: 01.05.2009, 12:19 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 248491 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

© 2001-2009, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru