Перевести в с++

@Alehiy · Регистрация: 13.10.2017

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста

Pascal

uses crt;
var x,a,y:real;
    n,i:integer;
begin
clrscr;
writeln('x,a');
readln(x,a);
write('n=');
readln(n);
y:=sqr(x+a);
for i:=2 to n do
y:=sqr(y+a);
y:=y+a;
write('y=',y:0:3);
readln
end.

@COKPOWEHEU · 17.10.2017, 15:52

C

#include <stdio.h>
#include <stdlib.h>
#define writeln(x) printf(x"\n")
#define write(x,y) printf(x"%.3f\n",y)
#define readln(x,y) scanf("%f%f",&x,&y)
#define sqr(x) ((x)*(x))
#define clrscr system("clear")
int main(){
  float x,a,y;
  int n,i;
  clrscr;
  writeln("x,a");
  readln(x,a);
  printf("n=");
  scanf("%i",&n);
  y=sqr(x+a);
  for(i=2;i<n;i++)
    y = sqr(y+a);
  y = y+a;
  write("y=",y);
}

Кликните здесь для просмотра всего текста

пусть халявщики страдают

@zss · 17.10.2017, 16:40

Сообщение от COKPOWEHEU

for(i=2;i<n;i++)

C++

1	for(i=2;i<=n;i++)

@Alehiy · 17.10.2017, 16:50 **[ТС]**

Спасибо хотя бы за это)

@Alehiy 0 / 0 / 0 Регистрация: 13.10.2017 Сообщений: 5
	17.10.2017, 16:50 [ТС]	4
	Спасибо хотя бы за это) 0

Опции темы