3 задачи на массивы и запись, сможете решить очень нужна Опции

[maksimla]

задачу решите пожалста .
сделаите програмку
если выстрелить N раз. если попадет премия 2 дополнительных патрона. в фаиле tiras.txt в первай строчке написана число N. В других N строчках вписан ноль (0) если непопал, а если попал (1). если выстрел был удачный в этойже строчке о дополнителных точности выстрела.
пример
5 семь выстрлов удачных
0
1 0 0
1 1 0 0 0
0
1 0 1 1 1 0 0 0 0
напишите программу каторая в фаил taikyk.txt написала скока выстрелов удачных.
в программе нельзя применять eoln и eof функций вместо их пишите циклы.


следущая задача
радился у отца сын и он решил откладывать деньги на свадьбу сына. первичные данные считываются с файла Pinigai.txt. В первой строчке напишите на угад когда сын женится натуральное число. скоко он будет лет собирать.
каждый год откладывает деньги.
пример
18
100
100
100
150
200
68
300
100
300
500
20
30
38
80
90
30
100
1000
вот ответ 3306
напишите программу скока денег собрал в фаил Ves.txt.


следущая задача
в древнеяпонском календаре было 60 лет циклы сделаны из 12 лет вложенных циклов. вложенных циклов обозначали красок название: зеленый,красный,жолтый, белый и черный. каждого идетога цикла год имел животных названия :крыса,корова,тигр, заец, дракона, змея,лошади,овечки, обезьяны,петуха, собаки и кошки.
(1984 год - зеленой крысы - было нового цикла начало)
напишите программу которая пичатала введенных нашей эры года по названию по японскому календарю .

и последняя задача
акций курс постоянна меняется. акции лутше покупать когда они дешевые а продавать когда дорогие.
первичные данные - курс акций в первый день года и их изменение в массиве в каторам указываем на скока поднялась акция по сравнению с прошлым днем (от 2 до 365 года дней ).
напишите
а) идеи решения
б) процедуру , результатам было бы два числа
1 кагда акция наивыгодней покупать
2 кагда акцию выгодней продать.
пример 1 дне года акция была 155,5 а потом минялась так :
Metų diena 2 3 4 5 6 7 8 9 10 11 12 13 14
Akcijų kurso pokytis 2 0,5 –1 1,5 –2 –3 –1,5 1 1,5 0,5 6 –0,5 0
значит наивыгодней покупать акции 8 дня , а продать 12 дня.
первичные данные вводите в один массив каторый написан так
Код
const MAX = 365
type Tpokytis = array [1..MAX] of real;

первичных данных массив назовите pokytis
а резултаты переменных назовите dPirkti и dParduoti.
зделайте программу.

[Client]

ко второй Задачи связанные с календарем.

[maksimla]

а что з другими задачами зделаеть?

[maksimla]

так сделаете пжалста за меня мне скора сдавать нада будет я даже непонял как календарь делать

[Michael_Rybak]

!

6. Одна тема - один вопрос (задача) Создавай по отдельной теме для каждой задачи. В этой можешь оставить одну. И стараемся писать по-русски.

[maksimla]

запустил календарь выводит названия животных все правильна толко неправильна выводит цвет что надо сделать чтобы цвет правельно выводило

[volvo]

толко неправильна выводит цвет

Чего это вдруг?

Input year
1984
Green Rat

- чего здесь неправильного? Это и был год Зеленой Деревянной Крысы ...

[maksimla]

а ты другие года введи и будет постоянна зеленный цвет

[volvo]

Насколько я понимаю, вот так выводит то, что нужно?

const
  y : array [0..11] of string = (
    'Rat',
    'Cow',
    'Tiger',
    'Rabbit',
    'Dragon',
    'Snake',
    'Horse',
    'Sheep',
    'Monkey',
    'Chicken',
    'Dog',
    'Pig'
  );

  d : array[0..4] of string = (
    'Green',
    'Red',
    'Yellow',
    'White',
    'Black'
  );


var
  year, color: Integer;

begin
   writeln('Input year'); readln(year);
   year := (year mod 60) - 4;
   If year < 0 then year := year + 60;

   color := (year mod 10) div 2;
   writeln(d[color],' ',y[year mod 12]);
end.

2 moders: поправьте в FAQ-е тоже...

[maksimla]

следущая задача
родился у отца сын и он решил откладывать деньги на свадьбу сына. первичные данные считываются с файла Pinigai.txt. В первой строчке напишите наугад когда сын женится натуральное число. скоко он будет лет собирать.
каждый год откладывает деньги.
пример
18
100
100
100
150
200
68
300
100
300
500
20
30
38
80
90
30
100
1000
вот ответ 3306
напишите программу скока денег собрал в файл Ves.txt.
вот сам написал программку

program vestuves;
var n,
a,b, i: integer;
pradDuom,
rezult: text;
begin
assign (pradDuom, 'Pinigai.TXT');
assign (rezult, 'Vest.TXT');
reset (pradDuom);
rewrite (rezult);
read (pradDuom, n);
for i := 1 to n do
begin
read (pradDuom, a);
b := b + a;
end;
write (rezult, b);
close (pradDuom);
close (rezult)
end.

правильна сделал я программку?

Сообщение отредактировано: maksimla - 16.02.2008 22:16

[Michael_Rybak]

!

Тема закрыта, см. выше.