Форум АНТИЧАТ - Студентам с лабораторными сюда

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

18.01.2010, 10:18

hallboy

Новичок

Регистрация: 11.11.2008

Сообщений: 7

Провел на форуме:
16970

Репутация: 0

Помогите,пожалуйста!Нужно написать програму на С...
С меня + и голоса вконтакте.

Задание:
Задана последовательность действительных чисел. Найти сумму квадратов чисел,
значение которых принадлежит промежутке [a, b].
Входные данные программы
считываются из текстового файла. В результате работы программы на
диске формируется текстовый файл, в котором записываются ФИО и
группа исполнителя работы, задания к работе, содержание входного
файла данных, результаты расчета;

Вот она же готовая на паскале:

Код:

uses crt;
var
i,o:text;
a,b,x,k:integer;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
assign(i,'in1.txt');
reset(i);
assign(o,'out1.txt');
append(o);
while not eof(i) do
 begin
 read(i,x);
 if (x>a) and (x<b) then
  begin
  write(x,' - ');
  x:=sqr(x);
  writeln(x);
  k:=k+x;
  end;
 end;
writeln('k=',k);
writeln(o,' - ',k);
close(i);close(o);
readln;
end.