Turbo Pascal

[HED]

такс. ну я сделал перестановки элементов массива. от тока дело тут в том, шо вариантов на столько много выходит, шо работает мой алгоритм только до 6 элементов включительно (получается 720 вариантов, для семи получается 5040, для 8 - 40320, 9 -- 362 880, 10 -- 3 628 800). я есче посмотрю шо можно сделать шоб увеличить возможное количество элементов, но если 6 устроит пиши в ЛС.

 

[Nalivai]

Help!
Створити файл, який містить довідки про співробітників інституту. Структура запису: прізвище працюючого, назва відділу, рік народження, стаж роботи, посада, оклад. Кількість записів довільна.
Написати програму, яка дозволяє одержати таку інформацію: середній стаж працюючих у відділі Х.
Написати процедури додавання інформації у файл. Обробку інформації здійснювати за допомогою меню.

1 – перегляд вмісту файлу
2 – запис даних у файл
3 – додавання інформації
4 – друк відомостей
5 - вихід

ну поможет ктото?

 

[Tom d`Cat]

Народ! Помогите пожалуста! задача: программа должна заполнить одномерный массив цифрами Фибоначи

Похожая

You must be registered for see links

 

[GrAndSE]

Ну помогите плыыыыыззз ! Девушке требуецца помощ ! сесия .. курсач ...

Может я конечно и злой и мой пост полный оффтоп, но всё же выскажу своё мнение. А оно неутешительное: а зачем идти в высшие учебные заведения, если не учится? Если уж учиться, то нужно браться за дело всерьёз...
Это касается фактически всей темы даной... неужели такие сложные программы то?

 

[KILLER]

Она учицца на Экологии ! Ей этот паскаль нах ненада ! Просто он входит в программу Информатики

 

[HED]

в универе действительно достает уйма лишнего, сам с трудом тяну. но програмирование - штука довольно интересная.
кароче, киллер, щас посмотрю твою програмку. задание не интересное - делать влом, но все же посмотрю.

 

[AkeL.php]

Подскажите, где ошибка.
Написал небольшой модуль.

unit Modi;
interface
type
mas=array[1..100] of real;
var
f:text;
procedure vvod(var c:mas; k:byte);
implementation
procedure vvod(var c:mas; k:byte);
          var
          i:integer;
          begin
          for i:=1 to k do
          read(f,c[i]);
          end;
end.

Сама прога:

program O1DZ3_1;
uses modi,crt;
type mas=array[1..100] of real;
var
a:mas;
f:text;
begin
assign(f, 'C:\mass.txt');
reset(f);
vvod([B]a[/B],10); - [FONT="Georgia"][COLOR="Red"]Type mismatch[/COLOR][/FONT]
close(f);
end.

 

[KILLER]

и на том псб

 

[HED]

1) киллер, твое задание почти доделал;
2)акел, у тебя ошибка в программе
type mas=array[1..100] of real;
от эта строка в программе не нужна. если ты в модуле описал тип mas, то в программе его описывать уже не надо, а сразу пишеш
var
a:mas;


попробуй, вроде так.

 

[quant]

Відповідь: Turbo Pascal

You must be registered for see links

[highlight]предлагаю посылать сюда назойливых с децкими вопросами/просьбами[/highlight]