Сформировать файл из последовательности по заданному правилу

26.10.2015, 20:38. Показов 559. Ответов 0

Метки нет (Все метки)

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

Сформировать файл из последовательности (–1)k*0.3k/(k+1). Найти модуль суммы компонентов файла. Исправьте, пожалуйста, код.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Program lab;
uses crt;
var
     f:file of real;
     k,s,d,p:real;
     i,n:integer;
begin
s:=0;
assign(f,'lab.dat');
rewrite(f);
writeln('Введите целые числа признак конца ввода - 0');
repeat
     read(k);
     k:=(exp(ln(-1)*k)*exp(ln(0.3)*k))/(k+1);
     write(f,k); 
until k=0;
close(f);
reset(f);
s:=0;
d:=1;
for i:=1 to n do
begin
read(f,p);
d:=abs(p);
s:=s+d;
end;
writeln('Modyl symmu=',s:3);
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

26.10.2015, 20:38

Ответы с готовыми решениями:

Сформировать двумерный массив по заданному правилу правилу
Добрый день, помогите пожалуйста. Дана целочисленная матрица n*m. Написать программу, формирующую двумерный массив по следующему правилу:...

Сформировать вектор по заданному правилу
Даны натуральное число n и действительные числа y1 y2…yn. Получить вектор Z (Z1, Z2…Zn), Компонента Zi равняется: yi, если 0 < yi...

Сформировать последовательность по заданному правилу
Всем привет, еще раз! В общем стоит такая задача: Даны два положительных числа n и k. Надо вывести последовательность x1,x2,x3,...,xk...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

26.10.2015, 20:38

Помогаю со студенческими работами здесь

Сформировать массив по заданному правилу
Напишите программу, которая создает двухмерный массив и заполняет его по следующему принципу: пользователь вводит число (например, 3)...

Сформировать массив по заданному правилу
Дан произвольный числовой массив {х1, х2, ..., хI, ..., Хn} Сформировать массив {y1, y2, ..., yI, ..., Yn} По правилу: ...

Сформировать множество по заданному правилу
нужно сделать вот такую штуку:)сил уже нету. даны 3 множества x1={1,2,3..20}, x2={10,11,12..30},x3={1,3,5..19,21}. Сформулировать множество...

Сформировать массив по заданному правилу
плиз

Сформировать вектор по заданному правилу
Задание во вложении Прога моя работает правильно,но выводит не красиво Я бы даже сказала не так как нужно Я не понимаю что там не так...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

Наверх