Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты! Не могу найти ошибку в своей программе, решашая задачу: В массиве F(n,m) заменить все положительные элементы их квадратами, а отрицательные – их кубами:

Вопрос задала: Pervun (статус: Посетитель) Вопрос отправлен: 14 апреля 2011, 15:14 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Pervun!
добавил пару begin-end:)

{$APPTYPE CONSOLE}
uses
  SysUtils;
 
const
            n=4;
            m=2;                          // количество строк и столбцов
type
            mas=array[1..n,1..m] of real;           // тип массива
var
            F: mas;                      // массив F
            i,j:integer;                 // счетчики по строкам, столбцам
begin
    // Ввод исходных данных
    WriteLn('Type real elements of array A:');
    for i:=1 to n do
        for j:=1 to m do read(F[i,j]);      // поэлементное чтение массива
 
    for i:=1 to n do
        for j:=1 to m do begin
            if F[i,j]<0 then F[i,j]:=F[i,j]*F[i,j]*F[i,j];
            if F[i,j]>0 then F[i,j]:=SQR(F[i,j]);
        end;
    Writeln;
    for i:=1 to n do begin
        for j:=1 to m do
            Write(F[i,j]:10:2);
        Writeln;
    end;
    WriteLn('***** Press <ENTER> to finish *****');
    Readln;                    // задержка экрана
    Readln;
end.

Ответ отправил: Вадим К (статус: Академик) Время отправки: 14 апреля 2011, 15:21

Мини-форум вопроса

Вадим К (статус: Академик), 14 апреля 2011, 15:18 [#1]: А в чем заключается ошибка? - не компилируется - выводит неверный результат - выскакивает синий экран. Визуально код похож на правду. Галочка "подтверждения прочтения" - вселенское зло.

min@y™ (статус: Доктор наук), 14 апреля 2011, 16:01 [#2]: Цитата (Вадим К): А в чем заключается ошибка? - не компилируется - выводит неверный результат - выскакивает синий экран. Зря спрашиваешь! Это ж наш БП... Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.