Другое > Hard'n'Soft
Помогите с информатикой
(1/1)
Slink:
Нужно решить задачку на экзамен, на завтра, помогите, пожалуйста, кто знает Фортран. Задачка естественно по Фортрану:

Составить программу вычисления и печати среднего значения элементов одномерного массива Х (100). Количество элементов N и значения Х вводятся.
.flint:
Фортран не знаю (но, если мне память не изменяет, прямой предок Pascal), поэтому напишу на паскале. Синтаксис должен быть схож, поэтому если что -- переделай.


--- Код: ---program average;

var
   n: word;    { количество элементов }
   x: array[0..1000] of integer;  { массив элементов }
   av: real;   { среднее значение }
   i: word;  { переменная главного цикла }

begin

repeat
   write("Input the elements count: ");
   readln(n);
   if (n>1000) then writeln("You stupid gorilla! You have to input natural numbers less than 1000 only!");
until (n>1000);  { так. вот на этом месте позабыл, когда у repeat..until выход? когда правда или когда ложь? Пусть будет когда ложь. }

for i:=1 to n do   { вводим всякую бяку }
begin
   write("Input ", i, " element of array: ");
   readln(x[i]);
   av := av + x[i];
end;

av := av / n;  { вычисляем среднее значение }

writeln("Average is ", av);

end.


--- Конец кода ---

Вот, собственно, и все. Может, ошибся в синтаксисе пары операторов, так как Паскаль уже давненько не видел. Если что, ориентируйся по комментариям.
Zephyr:
.flint,
Хлоп, хлоп!!! Молодец!!! Я тобою горжусь!!!
if (n>1000) then
until (n>1000);  
Тока скобки лишние
HardWareMan:

--- Цитата ---
program average;

var
   n: word;    { количество элементов }
   x: array[1..1000] of integer;  { массив элементов }
   av: real;   { среднее значение }
   i: word;  { переменная главного цикла }

begin

repeat
   write("Input the elements count (must be less than 1000): ");
   readln(n);
   if (n>1000) then writeln("You wanna enter whole ",n," numbers? Can you do it? You don't? So, don't be stupid and enter new one but less than 1000");
until (n
Zephyr:
Зачем скобки???
.flint:

--- Цитата: Zephyr ---Тока скобки лишние
--- Конец цитаты ---

Спасибо :) Скобки идут от C уже на подсознательном уровне. Только сейчас заметил :)
aUruM:
На самом деле, в данном случае абсолютно неважно, надо ставить скобки или нет, т.к. всего одно условие. Вот в случае с if (i
Навигация
Главная страница сообщений

Перейти к полной версии