Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.12.2010, 19:34   #1
alexchromets
Пользователь
 
Регистрация: 23.12.2010
Сообщений: 49
Восклицание Не совсем корректно работает программа

Программа берет элементы векторов с четными индексами и находит среди них минимальное число.(Посмотрите пожалуйста, что надо исправить в самой проге, чтобы она работала, как написано выше(язык Turbo Pascal))
Код:
program TP6;
Uses crt;
Type
Vect=array[1..50]of real;
Var A,B,C:Vect;
x,y,z:real;
i,n,m,k:byte;
Function Min (P:Vect;n1:byte):real;
var i:byte;Min1:real;
Begin
  Min1:=P[1];
  For i:=2 to n1 do
  if(i mod 2=0)and(P[i]<Min1) then Min1:=Min1+P[i];
  Min:=Min1;
end;
Begin
  ClrScr;
  Writeln ('Vvedite n');
  readln (n);
  writeln ('Vvedite m');
  readln (m);
  writeln ('Vvedite k');
  readln (k);
  ClrScr;
  For i:=1 to n do
  begin
    write('A[',i,']=');
    read(A[i]);
  end;
  ClrScr;
  For i:=1 to m do
  begin
    write ('B[',i,']=');
    read (B[i]);
  end;
  ClrScr;
  For i:=1 to k do
  begin
    write ('C[',i,']=');
    read(C[i]);
  end;
  ClrScr;
  writeln (' Laboratorna robota TP6');
  writeln (' Studenta grupy PIit-10-1');
  writeln (' Hromca Oleksia');
  writeln (' Vhidni dani:');
  writeln (' n=',n);
  writeln (' Vector A:');
  begin
    For i:=1 to n do
    write(' ',A[i]:-9:2);
    writeln
  end;
  writeln (' m=',m);
  writeln (' vector B:');
  begin
    For i:=1 to m do
    write (' ',B[i]:-9:2);
    Writeln
  end;
  writeln (' k=',k);
  writeln (' Vector C: ');
  begin
    For i:=1 to k do
    write (' ',C[i]:-9:2);
    writeln
  end;
  writeln (' rezultat:');
  x:=Min(A,n);
  y:=Min(B,m);
  z:=Min(C,k);
  writeln (' Naimenshe znachennia');
  writeln (' vectora A=',x:-9:2);
  writeln (' Naimenshe znachennia');
  writeln (' vectora B=',y:-9:2);
  writeln (' Naimenshe znachennia');
  writeln (' vectora C=',z:-9:2);
END.
From Stilet: Вот теперь он действительно оформлен норм. А если ты не будешь читать правила форума, так и в баньке недолго оказаться.

Последний раз редактировалось Stilet; 26.12.2010 в 20:00.
alexchromets вне форума Ответить с цитированием
Старый 26.12.2010, 19:35   #2
dosha
Форумчанин
 
Регистрация: 30.08.2010
Сообщений: 224
По умолчанию

оформи код нормально
dosha вне форума Ответить с цитированием
Старый 26.12.2010, 19:45   #3
alexchromets
Пользователь
 
Регистрация: 23.12.2010
Сообщений: 49
По умолчанию

Цитата:
Сообщение от dosha Посмотреть сообщение
оформи код нормально
Код оформлен нормально. Когда сюда его вставляю, он ставится в один ряд, под линейку.
alexchromets вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Фоновая программа корректно работает только пол дня (использовал таймер) TwiX Общие вопросы Delphi 2 06.09.2010 17:57
Рекурсия. Не корректно работает прога Driver_09 Помощь студентам 0 23.12.2009 20:02
(паскаль) Обработка кв. матрицы. Программа есть. Не корректно работает функция SUM.. aslanbek999 Помощь студентам 3 02.06.2009 19:51
Программа работает не корректно Neymexa Общие вопросы C/C++ 5 24.12.2008 19:17