Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
keml
15 / 15 / 0
Регистрация: 12.03.2009
Сообщений: 51
1

Типизированый файл: найти разность первого и последнего компонентов

14.06.2009, 16:12. Просмотров 933. Ответов 1
Метки нет (Все метки)

3аписать в файл последовательно доступно N действительных чисел. Найти разность первого и последнего компонентов файла.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2009, 16:12
Ответы с готовыми решениями:

Как найти разность первого и последнего компонентов файла?
как найти разность первого и последнего компонентов файла

В векторе (одномерном массиве) найти: разность первого положительного и последнего отрицательного элемента
В заданном векторе (одномерном массиве) найти: разность первого положительного...

Типизированый файл: найти студентов, имеющих "5" по информатике
Вывести фамилии и средние баллы стедентов, имеющих "5" по информатике

Записать в файл F суммы первого и последнего элементов в каждом столбце матрицы
Сформировать матрицу A(N,M) (N<=10, M<=15). Записать в файл F суммы первого и...

Дан файл вещественных чисел. Заменить максимальный элемент суммой первого и последнего элементов
Дан файл вещественных чисел. Заменить максимальный элемент. Суммой первого и...

1
Puporev
Модератор
54732 / 42133 / 29091
Регистрация: 18.05.2008
Сообщений: 99,455
14.06.2009, 17:35 2
Лучший ответ Сообщение было отмечено keml как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
uses crt;
var f:file of real;
    a,b,r:real;
    c:char;
begin
clrscr;
assign(f,'file1');
rewrite(f);
writeln('Введите в файл числа, окончание ввода Esc.');
repeat
write('a=');
readln(a);
write(f,a);
c:=readkey;
until c=#27;
clrscr;
writeln('Содержание файла F:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:5:2);
 end;
writeln;
close(f);
reset(f);
seek(f,0);{первое число}
read(f,a);
seek(f,filesize(f)-1);{последнее число}
read(f,b);
r:=a-b;
write('Разность первого и последнего=',r:0:2);
close(f);
readln
end.
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2009, 17:35

Найти сумму первого и последнего столбца матрицы
Дана задача: В массиве a, введенном с клавиатуры, найти сумму первого и...

Найти сумму первого и последнего простых чисел
Найти сумму первого и последнего простых чисел на

Найти сумму первого и последнего элементов списка
Помогите написать процедуру задачи.Дан однонаправленный список,эл которого...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru