Отправляет email-рассылки с помощью сервиса Sendsay

Задачи и решения по программированию в среде TurboPascal

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "RFpro.ru: Программирование на языке Pascal" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Февраль 2004   →
 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
Автор
Зорин Юрий

Статистика

2.200 подписчиков
-3 за неделю
←   Все выпуски   →

Задачи и решения по программированию в среде TurboPascal Забавный конфуз


Информационный Канал Subscribe.Ru

Задачи и решения по программированию в среде Turbo Pascal

Здравствуйте, уважаемые подписчики. Перед Вами 12 номер рассылки. Подписалось 1800+

Ответ к задаче "Сумма"

(X-RayMan, Сергей Юшенов, Евгений )

var a,b,c:array[1..350]of char;

sum:array[1..350]of word;

f:text;

i,p,k,l:integer;

sa,sb:integer;

begin l:=0;

assign(f,'sum.in');reset(f);

k:=0;

repeat

inc(k);

read(f,c[k]);

until eoln(f);

for i:=350-k+1 to 350 do begin inc(l);

a[i]:=c[l];

end;

k:=0;c:=b;

repeat

inc(k);

read(f,c[k]);

until eoln(f); l:=0;

for i:=350-k+1 to 350 do begin inc(l);

b[i]:=c[l];

end;

close(f);

for i:=350 downto 1 do begin

val(a[i],sa,p);val(b[i],sb,p);

sum[i]:=sum[i]+sa+sb;

sum[i-1]:=sum[i-1]+(sum[i] div 10);

sum[i]:=sum[i]mod 10;

end;

l:=0;

for k:=1 to 350 do begin if sum[k]<>0 then begin

k:=350;

end else inc(l);

end;

assign(f,'sum.out');rewrite(f);

for k:=l+1 to 350 do write(f,sum[k]);

close(f);

end.


 

"Забавный конфуз"

(Входной файл: confuse.in)

(Выходной файл: confuse.out)

Пусть А - массив, состоящий из N элементов А1...Аn. Обозначим его максимальное и минимальное значение как max(A) и min(A) соответственно. Вычислим сумму элементов S, S=A1+A2+...+Sn. Заменим каждый элемент массива на разницу S и этого элемента: Ai=S-Ai, 1<=i<=N. Такое преобразование массива А назовенм операцией Confuse.

 Задание

Напишите программу Confuse, которая по массиву В, полученному в результате К - кратного применения опреации Confuse к некоторому массиву А, вычислит разность max(A)-min(A).

Входные данные

Первая строка входного файла содержит целые числа N и K, где N - количество элементов массива В (2<=N<=10000), а K - количество применений операции Confuse к начальному массиву А, 1<=K<=100. Вторая строка файла содержит N элементов массива В. Элементы массива В - целые числа, принадлежащие диапазону - 2000000000 до 2000000000.

Выходные данные

Единственная строка выходного файла содержит целое число: max(a)-min(a).

 

Вопросы читателей

 

дан двумерный массив. ввывести на печать массив и обратный ему массив

Ответить: mailto:zaichishka_valya@mail.ru

-----------------------------------------------------

Привет.Уменя есть задача немогу понять как её решать немогбы пожалусто помочь
её решить
Вот сама задача:
Составить процедуру ,какая находит элементы вектора как суму
соотвецтвуеших элементов двух векторов одинакового размера .Вывести
результат для трех пар векторов.
A1(N) B1(N)
A2(N) B2(N)
A3(N) B3(N)

Ответить: mailto:esauon@ukr.net

 

Вот и все! Удачи!

Если есть вопросы по программированию в Turbo Pascal или решенные и нерешенные задачи, то присылайте на mailto:vmftem@mail.ru с темой Pascal

 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное