Полная версия: Помогите решить задачу, срочно надо
Помогите решить задачу, срочно надо:дан файл f , компоненты которого являюся действительными числами найти сумму компонентов f.
решалось, используй поиск.
Смотри личные сообщения
смотри личку
Не стыдно за такое деньги брать ? r_rock если не найдёшь похожее, обращайся, помогу бесплатно.
Естественно, нельзя за такое брать деньги!
Вот примерный код:
Var r,d:Real;
begin
Assign(input,'{имя файла}');
Reset(input);
r:=0;
While not eof do
begin
Read(d);
r:=r+d;
end;
Close(input);
Writeln(r);
end.
Вот примерный код:
Код
Var r,d:Real;
begin
Assign(input,'{имя файла}');
Reset(input);
r:=0;
While not eof do
begin
Read(d);
r:=r+d;
end;
Close(input);
Writeln(r);
end.
При чем здесь "Стыдно"?
Есть правила форума.
Объявление. Читать всем.
sonic, я предупреждала. Еще раз подобное - отправишься в премод. Тем более что Tan конкретно написал: решалось.
ramzes, то же самое. предупреждение номер раз.
Есть правила форума.
Объявление. Читать всем.
sonic, я предупреждала. Еще раз подобное - отправишься в премод. Тем более что Tan конкретно написал: решалось.
ramzes, то же самое. предупреждение номер раз.
Цитата(мисс_граффити @ 19.05.2007 21:53) 
sonic, я предупреждала. Еще раз подобное - отправишься в премод. Тем более что Tan конкретно написал: решалось.
Публично извиняюсь, я не знал что подобное задание уже решалсь на форуме,а тогда, когда я начал писать в тему, сообщения Tan'a ещё не было
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.