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

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 18.11.2008, 11:37   #1
Pashtet
 
Регистрация: 04.11.2008
Сообщений: 7
Вопрос Прошу проверить код программы

задача была следующей: дан вектор х с координатами (х1;х2;х3;...;хk найти квадратный корень из суммы квадратов координат вектора.
Код:
program e1;
uses crt;
var m: ARRAY[1..255] of integer;
n: integer;
i: integer;
s: integer;
k: real;
begin
clrscr;
writeln('Введите число координат вектора:');
readln(n);
for i:=1 to n do
begin
writeln('Чему равна',i,'координата вектора? Ответ: );
readln(m[i]);
end;
s:=0;
for i:=1 to n do
begin
s:=s+sqr(m[i]);
end;
k:=sqrt(s);
writeln('Корень суммы квадратов координат вектора равен ',k);
readln;
end.
Спасибо всем откликнувшимся.
ЗЫ Тяжело выражать математические формулы на русском литературном языке!
Pashtet вне форума Ответить с цитированием
Старый 19.11.2008, 12:50   #2
Ganmaker
Пользователь
 
Аватар для Ganmaker
 
Регистрация: 05.11.2008
Сообщений: 22
По умолчанию

1. надо проверять сколько вводят n (0-255), иначе прога может заглючит
2. нет необходимости создавать два цикла: для ввода и для вычислений, можно сразу считать после ввода данных в одном цикле.
3.чтоб найти квадрат достаточно перемножить число само на себя, функции считаются медленнее.
4. переменные одного типа можно записать в одну строку, через запятую.

а в остальном вроде ничего
Ganmaker вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Прошу помощи в написании программы на языке СИ. PontiyPilat Общие вопросы C/C++ 0 12.10.2008 20:22
Прошу помоши в написание программы! eldar Работа с сетью в Delphi 2 12.08.2008 23:44
Вывести код программы Mr.Crowley Общие вопросы Delphi 5 11.06.2008 19:08
Прошу помощи. Нада проверить правильность составления проги. И помочь исправить ошибку Ascor Общие вопросы C/C++ 4 03.06.2008 10:54


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS