Swordfish
1

Кто сможет помогите пожалуйста с задачей заранее спасибо

23.06.2008, 18:40. Показов 898. Ответов 2
Метки нет (Все метки)

Создать файл структуры наименование жевательной резинки,цена,свойство,(полезная,вредная,безвредная ).Определить среднюю цену одной полезной жевательной резинки и создать новый файл структуры цена,наименование,свойство .
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.06.2008, 18:40
Ответы с готовыми решениями:

Здравствуйте. Помогите пожалуйста написать программу. Заранее спасибо.
Вычислить произведение элементов целочисленного массива, находящихся между минимальным и...

Подскажите пожалуйста! Как заполненить дневник к производственной практике, может знает кто как это делать? Заранее спасибо)
Собственно трудности вызывает таблица в которой надо написать что я делал Каждый день! Таблица...

кто может , заранее спасибо
Написать функцию resort(int &a, int &b, int &c), которая сортирует значения a, b, c так, что в a...

Кто что знает? заранее спасибо!
1. Назовите протоколы маршрутизации, реализованные в Windows Server 2008. 2. Что такое таблица...

2
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
23.06.2008, 19:56 2
Две трети сделал, а зачем еще один точно такой же файл создавать не понял, может что-то другое надо?
Код
uses crt;
type TGum=record
          nam:string[20];
          cen:byte;
          svt:string[20];
          end;
var sp:array[1..100]of TGum;
    n,i,k:integer;
    sr:real;
    f,g:file of TGum;
begin
clrscr;
assign(f,'Gum1.dat');
rewrite(f);
assign(g,'Gum2.dat');
rewrite(g);
write('Vvedite kolichestvo zapisej:');
readln(n);
for i:=1 to n do
   begin
      writeln('Zapis ',i);
      write('Naimenovanie: ');readln(sp[i].nam);
      write('Cena: ');readln(sp[i].cen);
      write('Svojstvo: ');readln(sp[i].svt);
      write(f,sp[i]);
   end;
close(f);
reset(f);
n:=0;sr:=0;k:=0;
while not eof(f) do
  begin
    n:=n+1;
    read(f,sp[n]);
    if sp[n].svt='полезная'then
        begin
          sr:=sr+sp[n].cen;
          k:=k+1;
        end;
  end;
writeln;
sr:=sr/k;
writeln('Srednjaja cena=',sr:0:2,' rub');
readln;
close(f);
end.
0
Swordfish
23.06.2008, 20:26 3
Сенкс спасибо что всем помогаеш ты великий человек)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.06.2008, 20:26
Помогаю со студенческими работами здесь

пожалуйста факториалы. Заранее спасибо)
1+x^2/2!+x^4/4!+...+x^2n/2n!+...

Пожалуйста, вычислите. Заранее спасибо
Газ Ацетон при температуре T=473 K, имеет удельную теплоемкость при постоянном давлении C=1787,...

Сделайте пожалуйста.Заранее спасибо
ng

напишите пожалуйста код на Delphi/ заранее спасибо
1. Найти сумму отрицательных элементов массива. 2. Найти произведение элементов массива,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru