Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
Zugizmund
1

Необходимо выполнить задачу с массивами с вводом из внешнего файла

15.01.2013, 14:34. Показов 589. Ответов 1
Метки нет (Все метки)

Я ее решил в принципе теперь нужно сделать ввод из внешнего файла.
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
Program ABCCC;
 
var
 A,B        :array[1..20]of real;
 T          :real;
 i,Amin,Bmax:integer;
BEGIN
 
 write('Ввод массива A: ');
 Amin:=9999;
 for i:=1 to 20 do begin
  read(A[i]);
  if A[i]<Amin then Amin:=i;
 end;
 write('Ввод массива B: ');
 Bmax:=-9999;
 for i:=1 to 20 do begin
  read(B[i]);
  if B[i]>Bmax then Bmax:=i;
 end;
 T:=A[Amin];A[Amin]:=B[Bmax];B[Bmax]:=T;
 clrscr;
 writeln;
 writeln('Полученный массив');
 writeln('A':10,'B':10);
 writeln;
 for i:=1 to 20 do begin
  writeln(A[i]:10:0,B[i]:10:0);
 end;
END.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.01.2013, 14:34
Ответы с готовыми решениями:

Выполнить поставленную задачу, используя средства управления вводом/выводом
Решить поставленную задачу, используя средства управления вводом/выводом. Дан целочисленный массив...

Необходимо выполнить задачу без рандома
В двумерном массиве целых чисел заменить все элементы, меньшие суммы элементов первой строки на...

Необходимо выполнить задачу вычисления суммы ряда с использованием подпрограмм и рекурсии.
В данной работе необходимо выполнить задачу вычисления суммы ряда с использованием подпрограмм. В...

Необходимо дополнить задачу чтением из файла
Здравствуйте всем! Дан фрагмент задачи, нужно исправить что бы выделенный фрагмет читался из файла,...

1
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,029
Записей в блоге: 1
15.01.2013, 15:10 2
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
var
 A,B :array[1..20]of real;
 T :real;
 i,Amin,Bmax,n,m:integer;
 f,g:text;
 BEGIN
 
 write('Массив A: ');
 Assign(f,'a.txt');Reset(f);
 Amin:=9999;n:=0;
 While not Eof(f) do begin
 inc(n);
 read(f,A[n]);
 if A[n]<Amin then Amin:=n;
 end;
 write('Массив B: ');
 Assign(g,'b.txt');Reset(g);
 Bmax:=-9999;m:=0;
 While not Eof(g) do begin
 inc(m);
 read(g,B[m]);
 if B[m]>Bmax then Bmax:=m;
 end;
 Close(f);Close(g);
 T:=A[Amin];A[Amin]:=B[Bmax];B[Bmax]:=T;
 writeln;
 writeln('Полученный массив');
 writeln('A':10,'B':10);
 writeln;
 for i:=1 to n do begin
 writeln(A[i]:10:0,B[i]:10:0);
 end;
 END.
Не проверял
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.01.2013, 15:10

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Требуется выполнить задачу по массовой рассылки из txt файла
Здравствуйте дорогие форумчане. Мне требуется не большая помощь. Я думаю профессионалы с этим...

Необходимо выполнить открытия и редактирования файла с помощью процедур и функций пользователя
Заданный файл таблицы базы данных (*. Dbf). Необходимо выполнить открытия и редактирования файла с...


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

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

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