Решение в Паскаль

[vitjok]

Решение в Паскаль

помогите составить код у уравнению:

буду очень благодарен

 

[AlexZir]

такой сойдет?
100011111000110110111101
100100001001000001111010
000110100000111010000100
001001110010000100100010

Полный текст задания где?

 

[vitjok]

Извиняюсь за неккоректностьtehno015
Числовая последовательность задана рекуррентной формулой
Задать с консоли два первых члена последовательности и . Найти первые n членов последовательности и их сумму.
Результаты вычислений вывести в виде таблицы с заголовком

 

[vitjok]

тут бред какой то((
program Vitjok_part2;
uses crt;
var s,a1,a2,a:real; k,n:byte;
begin
Write('a1=');
readln(a1);
Write('a2=');
readln(a2);
write('n=');
readln;
Writeln;

Writeln('-----------------') ;
writeln(' k a s');
writeln('-----------------');
s:=sqrt(a2)/exp(1/3*ln(a1));
For k:=3 To n Do
begin
a:=sqrt(a2)/exp(1.0/3.0*ln(a1));
s:=s+a;
a1:=a2;
a2:=a;
Writeln(k:3, ' ',a:3, ' ',s:3);

end;
Writeln('-----------------');
writeln;
end.

думаю что проблема в этом s:=sqrt(a2)/exp(1/3*ln(a1));
помогите псравить))

 

[Vladimir_S]

тут бред какой то((

Ну почему же? В целом программа составлена правильно и грамотно, вот только с форматами вывода Вам следует разобраться: ставить :3 для вещественных (real) чисел - абсурд. Возможно, с этим и связаны косяки.
Та строка, на которую Вы грешите, написана абсолютно правильно, ошибок там нет.
Единственное замечание - не следует присоединять ненужные модули "на всякий случай". В частности, строка "uses CRT;" в Вашей программе абсолютно не нужна. CRT - это модуль, добавляющий к списку стандартных операций Паскаля еще некий класс команд, ни одной из которых Вы не пользуетесь. Так что и незачем.
Вот несколько исправленный и причесанный код:

var
 s,a1,a2,a:real;
 k,n:byte;
begin
 Write('a1=');
 readln(a1);
 Write('a2=');
 readln(a2);
 write('n=');
 readln(n);
 Writeln;

 Writeln('-----------------------') ;
 writeln('  k      a         s');
 writeln('-----------------------');
 Writeln('  1',a1:10:5,a1:10:5);
 s:=a1+a2;
 Writeln('  2',a2:10:5,s:10:5);
 For k:=3 to n do
  begin
   a:=sqrt(a2)/exp(1.0/3.0*ln(a1));
   s:=s+a;
   a1:=a2;
   a2:=a;
   Writeln(k:3,a:10:5,s:10:5);
  end;
 Writeln('-----------------------');
 Readln;
end.