|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
14.10.2008, 23:48 | #1 |
Регистрация: 12.10.2008
Сообщений: 8
|
Перевод программки из Паскаля в C
Ребятки! Кто может помочь с переводом программы из Паскаля на Си??
|
14.10.2008, 23:52 | #2 |
Тупой студент
Форумчанин
Регистрация: 12.05.2007
Сообщений: 614
|
Ну смотря что переводить) мона было и код сразу кинуть
|
15.10.2008, 06:52 | #3 |
Delphi/C++/Asm
Форумчанин Подтвердите свой е-майл
Регистрация: 28.03.2008
Сообщений: 358
|
Вообще нужен ваш код...
Последний раз редактировалось AngelOfDeath; 15.10.2008 в 06:55. |
16.10.2008, 22:40 | #4 |
Регистрация: 12.10.2008
Сообщений: 8
|
Программа:
program one; uses CRT; type K_Ch= Object R_S, s, step: integer; procedure vvod(Re1, Re2, Im1, Im2: integer); procedure vivod(Re, Im: integer); function slozhenie(x1, x2: integer): integer; function stepen(St, Re1: integer): integer; end; procedure K_Ch.vvod; begin writeln('Re pervogo chisla: '); readln(Re1); writeln('Im pervogo chisla: '); readln(Im1); writeln('Re vtorogo chisla: '); readln(Re2); writeln('Im vtorogo chisla: '); readln(Im2); end; procedure K_Ch.vivod; begin writeln('summa dvux chisel: '); writeln('Re: ',Re,'Im: ',Im); end; function K_Ch.slozhenie(Re1, Re2, x1, x2: integer): integer; begin x1:= Re1+Re2; x2:= Im1+Im2; Im:= x2; Re:= x1; end; function K_Ch.stepen(st, Re1: integer): unteger; var i, R_S: integer; begin writeln('vvedite stepen: '); readln(st); i:= 0; while i<=st do begin R_S:= Re1*i; i:= i+1; end; writeln(R_S); end; begin var Chislo.K_Ch; with Chislo do begin prosedure vvod(Re1, Re2, Im1, Im2); s:=slozhenie(Re, Im); step:= stepen(R_S); procedure vivod(Re, Im); end; end. |
16.10.2008, 22:44 | #5 |
Регистрация: 12.10.2008
Сообщений: 8
|
Только там надо переделывать функцию возведения в степень (на Си уже)комплексного числа(а не только одну его часть), что я не знаю как сделать(((
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевод с Паскаля на Дельфи!. | HAMMAN | Помощь студентам | 10 | 18.01.2012 11:20 |
Перевод из Паскаля в Делфи | Родион | Общие вопросы Delphi | 2 | 28.08.2008 16:52 |
Написать 4 программки в C++ и 1 в MathCade | Garezzz | Фриланс | 1 | 03.06.2008 00:37 |
Нужно написать 2 программки | Peterone | Фриланс | 10 | 02.12.2007 19:20 |
Меняем иконку у программки. | celovec | Общие вопросы Delphi | 4 | 01.07.2007 19:06 |