задачки для общего развития

[pelsh]

делал но море ошибок не знаю как исправить по ходу весь алгоритм не правильный предложите свой пожалуйста и если можно решение

тема 1
Типизированные файлы

Дан файл, компоненты котоpого являются действительными числами. Hайти: пpоизвеление компонент файла f




Дан файл вещественных чисел. Поменять в нем местами минимальный и максимальный элементы


тема2
Текстовые файлы


Дана строка S и текстовый файл. Добавить строку S в середину файла.



Дан текстовый файл. Пеpеписать в файл g все компоненты файла f с заменой в них символа 0 на символ 1 и наобоpот.



тема3
Положение и размеры элемента управления на экране


Написать программу движения кнопки зигзагом, отражаясь от границ верхней (0,100) и левой (0,100)




Поместите кнопку в центр формы. По нажатию на кнопку кнопка должна поочередно увеличиваться в размерах в 2 раза и возвращаться к первоначальному состоянию

[Stilet]

тема 1

Считываеш эти все данные в массив и уже в массиве выполняеш все операции, потом если массив изменился его можно записать обратно уже измененным. Ну или считывать поэлементно но на Максимуме и Минимуме запоминать позицию из файла, потом просто вписать в позицию максимума минимум и наоборот

тема2
Текстовые файлы

Опять таки в цикле, по первому ереписываем первую половину во временный файл, вставляем строку и дописываем остальную половину
по второму считываем ну скажем посимвольно (побайтно если хочеш) сразу все в массив, и меняем байты "0" на "1" и наоборот, потом массив высаживаем ф вайл

Написать программу движения кнопки зигзагом

Ну в цикле менять Top и Left до некоторого значения, причем сначала несколько раз менять скажем Top потом несколько раз подряд менять Left

Поместите кнопку в центр формы. По нажатию на кнопку кнопка должна поочередно увеличиваться в размерах в 2 раза и возвращаться к первоначальному состоянию

Увеличение:
Left:=Left-1; Top:=Top-1; Width:=Width+1;Height:=Height+1;
Уменьшение наоборот.

Усек?

[pelsh]

ну я впринцапе тоже самое делал и гдето в решении не получается!!!


сможишь решение преложить???

[Stilet]

Могу. Например по увеличению примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var k,e,i:integer;
begin
i:=Button1.Width;
k:=-1;
e:=i+100;
while i<>e do begin
 with button1 do begin
 Left:=Left+k; Top:=Top+k; Width:=Width-k+2;Height:=Height-k+2;
  i:=i-k;
end;end;
end;

Твоя задача добавить пару операторов которые позволят этот код превратить в "анимацию"

[mihali4]

я впринцапе тоже самое делал и гдето в решении не получается

Второй раз автор похваляется своими безуспешными попытками... А сможем ли мы лицезреть ваш, хоть и неправильный, код?
Сдается мне, вам просто лень самому разбираться - за сладкой халявой пришли?

[-=<[Evklidd]>=-]

тема 1 Задача 1:
program prfile;
var
f : text;
ar: array [1..1000] of real;
i, n, code: integer;
pr:= real;
s: string;
begin
assign(f,'путь к файлу');
reset(f);
i:= 0;
while not eof(f) do
begin
inc(i);
read(f, s);
Val(s,ar[i],code);
end;
n:= i;
pr:= 1;
for i:= 1 to n do
begin
pr:= pr*ar[i];
end;
write('Произведение = ', pr);
readln;
end.
переменную code не проверяю, так как было сказано, что в файле присутствуют только действительные числа!!!

[Somebody]

Ээ... Это вроде как текстовый файл, а не типизированный. Почему бы сразу не читать real'ы, зачем нужны строки? А если всё-таки нужны, то читать надо readln'ом, а не read'ом.

[pu4koff]

Сообщение от -=<[Evklidd]>=-

тема 1 Задача 1:

у меня один вопрос: зачем массив тут? нельзя сразу при прочтении числа из файла его перемножить, зачем еще лишний цикл делать?

[Stilet]

Это вроде как текстовый файл, а не типизированный

Топикпастер пишет:тема 1
Типизированные файлы
Евклид пишет: тема 1 Задача 1:
Читай посты внимательно.

[pu4koff]

Сообщение от Stilet

Топикпастер пишет:тема 1
Типизированные файлы
Евклид пишет: тема 1 Задача 1:
Читай посты внимательно.

это ты Евклиду?)