[Djivan]

Друзья, прошу у вас помощи. Нужна помощь в решении 2 вариантов курсового проекта. Во вложении 2 файла с вариантами. Буду рад любой помощи, вплоть до решения. Могу даже отплатить за это дело)) Также есть решения некоторых других вариантов, вот здесь http://mgou-noginsk.narod.ru/HTMLs/Programming2.html. Честно сказать для меня пока Turbo Delphi глухой лес, а сдавать скоро(

[Djivan]

Срочно спасайте к понедельнику нужны коды, готов заплатить(пишите в личку) Очень прошу помощи

[chainik]

здесь задачи 2 и 3 задания 09
остальное решай по образцу.
ничего сложного здесь нет
Просто немного напрячь извилины

[Djivan]

Я может что-то неправильно делаю, но у меня не работают эти программы)
3 задача просит ввести названия, и все)

[chainik]

в задаче 3 надо предварительно создать текстовый файл.
(См задание)
Сделай это блокнотом (только не пользуйся вордом)

Проверки исключительных ситуаций я не делал!

[chainik]

Согласен. небольшой ляпсус.
Здесь исправленная версия задачи 3

Код:

program Project3;

{$APPTYPE CONSOLE}

var
Sinp,Sout:string;
Finp,Fout:textfile;
z:extended;

begin
write('InputFileName: ');readln(Sinp);
write('OutFileName: ');readln(Sout);

assign(Finp,Sinp);reset(Finp);
assign(Fout,Sout);rewrite(Fout);

while not eof(Finp) do
    begin
    read(Finp,z);
    if z >=0 then
        write(Fout,z,' ');
    end;
closefile(Finp);
closefile(Fout);
readln;
end.

[chainik]

здесь файл q.txt- исходный
w.txt- после замены гл и побочной диагонали

[lmikle]

вот реализация 11 варианта.
все задачи, где не оговорен ввод данных, заполняются случайным образом (матрицы).

Если решение устраивает, то пиши, о сырцах попробуем договориться.