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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

задача была следующей: дан вектор х с координатами (х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
Репутация: 10
По умолчанию

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Прошу помощи в написании программы на языке СИ. 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


13:25.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.