Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 09.06.2014, 09:00   #1
МаксПророк
Новичок
 
Регистрация: 09.06.2014
Сообщений: 1
Репутация: 10
По умолчанию Ребята, спасайте! Нужно решить 09.06.2014 до 10:30

В среде программирования PascalABC.NET разработать и отладить программную систему на языке Object Pascal, в которую включить:
-модуль с 2-мя процедурами и функцией;
-программу для вызова процедур и вывода результатов на экран.
В модуле объявить и определить 2 процедуры и функцию.
1-x^2/x^3+x^4-6


В функции реализовать алгоритм
В процедуре №1 (Сохранение файла) выполнить:
-Открыть новый числовой файл
-Задать число вызовов функции
-Организовать цикл для вызова функции с разными значениями X.
-В цикле выполнить:
-Вызвать функцию
-Значение функции сохранить в числовом файле
-Закрыть файл

В процедуре №2 (Загрузка файла) выполнить:
-Открыть созданный файл
-Организовать цикл
-В цикле загрузить информацию из файла в массив.
-Выдать массив на экран.
-Вычислить контрольную сумму файла.
-Завершить цикл
-Закрыть файл

В программе выполнить:
-Подключить модуль
-Установить связь с файлом
-Вызвать процедуру сохранения файла
-Вызвать процедуру загрузки файла
-Выдать на экран результаты: контрольную сумму файла

Не уверен, что правильно, но вот модуль
Код:
Unit modtip1;
interface 
function f(x:real):real;
procedure N1(var n:integer; var name:string);
procedure N2(n:integer; name:string; var max:real);
implementation
function f(x:real):real;
begin
 f:=x-exp(3*ln(x))/3+exp(5*ln(x))/5;
end;  
procedure N1(var n:integer; var name:string);
var
 i:integer;
 a,b:real;
 g:file of real;
begin 
 name:='file.txt';
 assign(g,name);
 rewrite(g);
 read(n);
 for i:=1 to n do
 begin
  a:=100.0*random;
  b:=f(a);
  write(g,b);
  write(b:12:1)
 end;
 close(g);
end;
procedure N2(n:integer; name:string; var max:real);
var
 a:array [1..100] of real;
 i:integer;
 g:file of real;
begin 
 assign(g,name);
 reset(g);
 for i:=1 to n do
 begin
  read(g,a[i]);
  write(a[i]:8:2,' ');
 end;
 close(g);
 max:=a[1];
 for i:=1 to n do
  if a[i]>max then max:=a[i];
end;
begin
end.

Последний раз редактировалось Stilet; 09.06.2014 в 09:08.
МаксПророк вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
РЕбята, спасайте, VBA... Sleier Microsoft Office Excel 3 03.03.2011 20:21
Спасайте,нужно написать очень простую програмку на Delphi mast2xx Помощь студентам 10 13.02.2010 23:12


21:02.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.