28.10.2012, 19:07 | #1 (permalink) |
Member
Регистрация: 29.09.2012
Сообщений: 72
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Решение в Паскаль
|
28.10.2012, 19:07 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Рекомендую обратить внимание на данные топики, в них могут быть полезные ответы Подскажите решение Решение уравнения Умное решение! [2 в 1] Оригинальное решение с часами Помогите найти решение Общее решение |
29.10.2012, 10:12 | #2 (permalink) |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
такой сойдет?
100011111000110110111101 100100001001000001111010 000110100000111010000100 001001110010000100100010 Полный текст задания где? |
29.10.2012, 16:14 | #3 (permalink) |
Member
Регистрация: 29.09.2012
Сообщений: 72
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Извиняюсь за неккоректность
Числовая последовательность задана рекуррентной формулой Задать с консоли два первых члена последовательности и . Найти первые n членов последовательности и их сумму. Результаты вычислений вывести в виде таблицы с заголовком |
31.10.2012, 18:47 | #4 (permalink) |
Member
Регистрация: 29.09.2012
Сообщений: 72
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
тут бред какой то((
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(n); 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)); помогите псравить)) |
31.10.2012, 19:41 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну почему же? В целом программа составлена правильно и грамотно, вот только с форматами вывода Вам следует разобраться: ставить :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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|