VPF::[С->Pascal] Организация цикла - Форум программистов

STAVR

Дата 14.5.2007, 19:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 13.5.2007

Репутация: нет
Всего: нет

Всем привет! Мне очень нужна помощь! Завтра надо эту программу сдать, а с Паскалем у меня плохо smile

Может кто поможет перевести это с Паскаля на Си:

Код

var
y,x:real;
n,z: integer;
fout:text;
fin:text;
begin
write ('1.File or 2.Keyboard');
readln (z);
assign (fout,'150.dat');
assign (fin,'150.txt');
reset (fout);
rewrite (fin);
if z=1 then
readln (fout,n);
if z=2 then
begin
write('Input N=');
read (n);
end;
x:=1;
repeat
y:=(x*x*3*x+2)/(sqrt(2*x*x*x-1));
writeln (y);
writeln (fin,y);
x:=x+0.1;
until (x>1+0.1*n);
close (fin);
close (fout);
end.

zkv

Дата 14.5.2007, 19:23 (ссылка)

(нет голосов)

Загрузка ...

Профиль
Группа: Участник Клуба
Сообщений: 2133
Регистрация: 23.7.2006
Где: Санкт-Петербург

Репутация: 21
Всего: 92

дословный перевод, в смысл не вникал smile

возможны опечатки

Код


#include <stdio.h>

int main()
{
//var
//y,x:real;
//n,z: integer;
//fout:text; assign (fout,'150.dat');
FILE *fout = fopen("150.dat", "r");
//fin:text; assign (fin,'150.txt');
FILE *fin = fopen("150.txt", "w");

//begin
//write ('1.File or 2.Keyboard');
printf("1.File or 2.Keyboard");
//readln (z);
int z;
scanf("%d", &z);
//reset (fout);
//rewrite (fin);
//if z=1 then
int n;
if(z==1)
 //readln (fout,n);
  fscanf(fout, "%d", &n );
//if z=2 then
if(z==2)
{//begin
  //write('Input N=');
  printf("Input N=");
  //read (n);
  scanf("%d", &n );
}//end;

//x:=1;
float x = 1.0, y;
//repeat
do
{
//y:=(x*x*3*x+2)/(sqrt(2*x*x*x-1));
  y = (x*x*3*x+2)/(sqrt(2*x*x*x-1));
//writeln (y);
  printf("%g\n", y);
//writeln (fin,y);
  fprintf(fin, "%g\n", y )
//x:=x+0.1;
  x += 0.1;
}
//until (x>1+0.1*n);
while( x > 1+0.1*n);
//close (fin);
fclose (fin);
//close (fout);
fclose (fout);
//end.
}

Это сообщение отредактировал(а) zkv - 14.5.2007, 19:26

STAVR

Дата 14.5.2007, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 13.5.2007

Репутация: нет
Всего: нет

Что-то не то. Там надо вычислить значения Y = (x*x*3*x+2)/(sqrt(2*x*x*x-1)) для x = 1, 1.1, 1.2, ..., 1+0.1*n. А твоя программа выдает не значения, а сколько раз считали!

zkv

Дата 14.5.2007, 21:46 (ссылка)

(нет голосов)

Загрузка ...

Профиль
Группа: Участник Клуба
Сообщений: 2133
Регистрация: 23.7.2006
Где: Санкт-Петербург

Репутация: 21
Всего: 92

Цитата(STAVR @ 14.5.2007, 19:54

)

А твоя программа выдает не значения, а сколько раз считали!

это не моя, это ваша программа, я только лишь перевел ее, а по существу вроде все верно, за исключением крайне неудачно выбранных идентификаторов файлов ввода и вывода. Плюс полностью отсутствует контроль ошибок, но как то работать должно smile

Dov

Дата 14.5.2007, 23:37 (ссылка)

(нет голосов)

Загрузка ...

аСинизатор

Профиль
Группа: Завсегдатай
Сообщений: 1721
Регистрация: 10.5.2003
Где: Эрец-Исраэль

Репутация: 50
Всего: 88

Цитата(zkv @ 14.5.2007, 19:23

)

while( x > 1+0.1*n);

По-моему в С++ do / while работает не так, как repeat / until в Паскале, поэтому нужно так:

Код

while( x <= 1+0.1*n);

Хотя могу и ошибаться. smile

--------------------

Тут вечности запах томительный,
И свежие фрукты дешевые,
А климат у нас – изумительный,
И только соседи – #уевые.
Игорь Губерман.

Alexeis

Дата 15.5.2007, 00:01 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Цитата(Dov @ 14.5.2007, 23:37

)

По-моему в С++ do / while работает не так, как repeat / until в Паскале, поэтому нужно так:

Точно

бесконечный будет

Код


do 
{

}while (true);

Код


repeat

until false;

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

zkv

Дата 15.5.2007, 05:12 (ссылка)

(нет голосов)

Загрузка ...

Профиль
Группа: Участник Клуба
Сообщений: 2133
Регистрация: 23.7.2006
Где: Санкт-Петербург

Репутация: 21
Всего: 92

Цитата(Dov @ 14.5.2007, 23:37

)

По-моему в С++ do / while работает не так, как repeat / until в Паскале, поэтому нужно так:

да да, перед тем как начать, посмотрел еще, вспомнил главное про этот факт, но потом когда добрался, забыл совершенно :(

smile

эх, подвела самонадеянность - проверить компилятором надо было, STAVR, мои извинения. smile

STAVR

Дата 15.5.2007, 07:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 12
Регистрация: 13.5.2007

Репутация: нет
Всего: нет

Большое спасибо, очень сильно выручил!!!!!!!!!!!

dizzy1984

Дата 15.5.2007, 11:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 675
Регистрация: 15.2.2007

Репутация: 10
Всего: 25

Что-то текст программы шибко знаком
http://forum.vingrad.ru/forum/topic-150547.html

smile

Винград под атакой студентов.

Это сообщение отредактировал(а) dizzy1984 - 15.5.2007, 11:56

Alyonka

Дата 15.5.2007, 20:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 15.5.2007

Репутация: нет
Всего: нет

Привет всем!Извините, что беспокою, но мне очень нужна ваша помощь.Подскажите какие-нибудь хорошие сайты, на которых я смогу найти информацию про циклы(Pascal).И общую информацию и какие-нибудь задачи(для школы).Я очень нуждаюсь в вашей помощи!!!!!Помогите, пожалуйста.
У меня нет возможности в ближайшее время зайти к вам, так что присылайте ссылки сюда: [email protected] или [email protected].

P.S.Если у кого-то есть рефераты или другая информация-пришлите.Заранее спасибо.

Alexeis

Дата 15.5.2007, 21:37 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Литературу мы ищем тут Разыскивается

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »