Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Ветвление.Оператор Выбора <Ветвление.Оператор Выбора> Здравствуйте помогите пожалуйста решить задачю.Имеется пронумерованный список деталей:1)шуруп,2)гайка,3)винт,4)гвоздь,5)болт.Сос тавить программу,которая по номеру детали выводит на экран ее название. Заранее спасибо)))) Добавлено через 12 минут если не сложно напишите пожалуйста блок схему https://www.cyberforum.ru/ pascal/ thread147014.html	дан массив. вычислить его отрицательные элементы Pascal помогите!!!
Pascal Найти все дружественные числа, не превосходящие K два числа называются дружественными если каждое число равно сумме делителей другого исключая его самого. найти все дружественные числа не превосходящие K https://www.cyberforum.ru/ pascal/ thread146994.html	Pascal Множества https://www.cyberforum.ru/ pascal/ thread146989.html Надо написать программу, задание: В некотором районе города находится 5 продовольственных магазинов. В каждый из низ завезли некоторые продукты из тех, что есть на базе: хлеб, масло, молоко, мясо, рыбу, соль, сыр, сахар, чай, кофе, творог, муку. Определить, какие продукты есть во всех магазинах, какие-хотя бы в одном; каких нет ни где. получилось следующие: Program Lab3_test_par; uses...
Pascal Шифровка и дешифровка Написать программы шифрования и дешифрования текста методом перестановки с матрицей 6х5 Помогите!!!!!!!))	Pascal Как реализовать возможность отмены действия из самой программы а НЕ компелятора ? Доброго всем времени суток ! Пытаюсь реализовать возможность отмены действий в програме ( ввода и соотвецтвенно вывода данных ) после каждого шага цикла ( на случай если была ошибка при вводе данных в конкретном шаге цикла) из самой програмы а НЕ компелятора ! Но не знаю как это реализовать ? Может кто подскажет ? вот фрамент программы : uses CRT,Graph; https://www.cyberforum.ru/ pascal/ thread146982.html
Pascal Создние Базы данных. ТП 7.0 Создание ( разработка) базы данных и примитивной системы управления базой данных. TP 7.0 и использование базы данных.Электронная телефонная книжка. По идее программа должна предусматривать сбор хранение и выдачу данных по мере необходимости. сделал блок схему...написал программу...выдает ошибку при компилировании....немогу понять что я не учел...либо уже крыша едет. Прошу помочь... https://www.cyberforum.ru/ pascal/ thread146972.html	составить блок-схему к Pascal Uses CRT; Var i,sum:longint; begin Clrscr; sum:=0; i:=0; repeat begin
Pascal Сравнение чисел Составить алгоритм вычисления функции для сравнения с одним неизвестным в паскале. https://www.cyberforum.ru/ pascal/ thread146964.html	Pascal В группе 7 видов товара. Известны данные о стоимости каждого.Определить общая сумма товара больше 1500 рублей или нет??? I need help! Тема "Цикл с параметром!" В группе 7 видов товара. Известны данные о стоимости каждого товара. Определить общая сумма товара больше 1500 рублей или нет??? https://www.cyberforum.ru/ pascal/ thread146962.html
КОЛИЧЕСТВО СЛОВ, СРОЧНО Pascal помогите пожалуйста! { B.Найдите количество слов начинающихся на гласную букву и заканчивающихся на согласную. Если таких слов нет, то вывести "no". Гласные латинские: a,e,i,o,u,y.}	Pascal Известен вес трех пакетов с цементом. Определить, одинаковы пакеты по весу или нет? Уважаемые знатоки помогите пожалуйста, туплю по страшному! Известен вес трех пакетов с цементом. Определить, одинаковы пакеты по весу или нет? https://www.cyberforum.ru/ pascal/ thread146956.html

Artishok

ЧакЭ одобряЭ

285 / 284 / 86

Регистрация: 27.12.2009

Сообщений: 1,767

18.06.2010, 11:40

Дан файл Bagazh, содержащий сведения ... - Pascal - Ответ 812704

18.06.2010, 11:40. Показов 2010. Ответов 1

Метки (Все метки)

Сообщение было отмечено Nike style как решение

Решение

Pascal

type
  bag = record
    kolvo: integer;
    ves: real;
  end;
 
var
  f: file of bag;
  z: bag;
  i, n: integer;
  k: real;
 
 
begin
  assign(f, 'bagazh.dat');
  rewrite(f);
  readln(n);
  for i := 1 to n do 
  begin
    with z do 
    begin
      writeln('вес');
      readln(ves);
      writeln('колв-о');
      readln(kolvo);
    end;
    write(f, z);
  end;
  close(f);
  reset(f);
  readln(k);
  for i := 0 to filesize(f) - 1 do 
  begin
    read(f, z);
    if (z.kolvo = 1) and (z.ves < k) then begin
      writeln('есть');
      break
    end;
  end;
  close(f);
  writeln('программа завершена');
end.

Вернуться к обсуждению:
Дан файл Bagazh, содержащий сведения ... Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

18.06.2010, 11:40

Готовые ответы и решения:

Дан файл f, содержащий сведения об учениках
Доброго времени суток! Крайне необходима помощь экспертов в Pascal Вот задания: Дан файл f,...

Дан файл KAT, содержащий сведения о книгах
Дан файл KAT, содержащий сведения о книгах: 1) фамилия автора 2) название 3) год издания 4)...

Дан файл Assort, содержащий сведения об игрушках
Дан файл Assort, содержащий сведения об игрушках: указываются название игрушки, ее стоимость в у.е....

Дан текстовый файл Bibl, содержащий сведения о книгах
Дан текстовый файл Bibl, содержащий сведения о книгах. Сведения о каждой из книг — это фамилия...

	18.06.2010, 11:40

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

18.06.2010, 11:40

Помогаю со студенческими работами здесь

Дан файл f, содержащий сведения о кубиках. Найти количество каждого из цветов и их суммарный объем
Дан файл f, содержащий сведения о кубиках: размер каждого кубика (длина ребра в сантиметрах), его...

Дан файл f, содержащий сведения о веществах. Выбрать данные о проводниках с заданным удельным весом
Дан файл f, содержащий сведения о веществах: 1) название 2) удельный вес 3) проводимость...

Дан текст содержащий сведения об успеваемости учащихся. Определить средний балл каждого ученика
Задача:Дан текст содержащий сведения об успеваемости учащихся, разделенное запятой.Каждое сведение...

Создать файл, содержащий сведения о пациентах поликлинники.
Приветствую! прошу решить следующую задачку: Создать файл, содержащий сведения о пациентах...

Наверх