VPF::Массивы, процедуры/функции - Форум программистов

vampirek

Дата 15.3.2009, 23:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 15.3.2009

Репутация: нет
Всего: нет

Задача1: Ввести массив F из 9 вещественных чисел с помощью типизированных константБ массив G размерности 3х3 вещественных чисел из файла и массив H из 4х псевдослучайных чисел от 0-10. Найти произведение p элементов массива G. Вывести в файл F,G,H и P.
Проверьте пожалуйста... Я в программе более менее разбираюсь но вот с введением и выведением файлов как то не оч дружу=/ и проверить из-за этого не получается..

Код

program z1;

const F : array [1..9] of real = (1,2,3,4,5,6,7,8,9); n=10;

var t1:text;
    G: array[1..3,1..3] of real;
    H: array [1..4] of byte;
    j,i:byte; P:real;

begin
  assign (t1,'c:\pask');
  rewrite(t1)
  reset(t1);

  randomize;
  P:=0;
  for i:=1 to 3 do
  for j:=1 to 3 do
    begin
    read( t1, G[i,j] );
    P:=P * G[i,j];
    readln(t1);
    end;

  for i:=1 to n do
    begin
      H [i] :=  random(10)

    end;

end.
readln;
close(t1);
end.

Вторая задачка на использование функций/процедур...
Разработать 2 версии программы (с использованием как Function, так и Procedure) для вычисления и вывода в файл мах{f (t-2s;1;17), f(2,2;t;s-t}, где f(a,b,c) = (2a-b-sinc)/(5+|с|), s и t заданы во входном файле в 2х вариантах : s1=0,6; s2=2,8; t1=-14 t2=4,65
Прошу если и не решить то хотя бы намекнуть что тут и как -_- (в учебниках как-то криво написано..)

Тегами пользоваться не забывай...

Это сообщение отредактировал(а) volvo877 - 16.3.2009, 15:58

volvo877

Дата 16.3.2009, 15:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата

Код

  assign (t1,'c:\pask');
  rewrite(t1)
  reset(t1);

Оригинально. Сначала удалить все из файла, а потом пытаться считывать. Зачем тебе Rewrite здесь?

Зачем инициализировал P нулем? Я тебе сразу скажу, что произведение всех элементов матрицы G будет равно 0, я телепат? smile

Вообще-то 0 - при сложении, при умножении - единица... Ну, и наконец твоя программа (с моими изменениями) будет работать только, если каждое число записано в файле на новой строке. Иначе будут проблемы... Исправляй...

Вторую задачу - в новом топике:

Цитата(Правила Форума)

10. Запрещается создание сообщения с несколькими вопросами. На каждый вопрос должна создаваться отдельная тема. В случае возникновения таких тем администрация форума оставляет за собой право изменить текст сообщения, удалить его или закрыть тему.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »