Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Написать программу, которая вычисляет сумму чисел, не превосходящих заданного числа , содержащих только четные цифры. https://www.cyberforum.ru/ pascalabc/ thread569317.html пожалуйста помогите решить	Pascal ABC Массив. Сложить по парам элементы массива (первый и последний и т.д) сформировать одномерный массив из 50 случайных, целых чисел в диапазоне от 0 до 100. Сложить по парам элементы массива (первый и последний, второй и предпоследний и т.д), записать полученные значения в начало этого массива, обнулив вторую половину. (не могу сделать с подпрограммами)
Pascal ABC Нарисовать анимированный телевизор Помогите пожалуйста написать программу по работе с графикой!Нужно нарисовать обычный анимированный телевизор с двумя антенами ,что бы на экране была картинка или мурашки....очень срочно!помогите пожалуйста!!!!завтра нужно уже сдать,а то зачет не поставят!срочно! https://www.cyberforum.ru/ pascalabc/ thread569286.html	Pascal ABC Определить длину хорды На плоскости есть круг и прямая, пересекающая его в двух точках. Определить длину хорды. https://www.cyberforum.ru/ pascalabc/ thread569280.html
Написать программу, формирующую новый массив Pascal ABC Помогите решить Написать программу, форми¬рующую новый массив, элементами которого являются те элементы матрицы, в числовой записи которых последняя цифра не равна K .	Pascal ABC Вернуть картинку в исходное состояние https://www.cyberforum.ru/ pascalabc/ thread569261.html через SpiritABC писал прогу,потом надо было развернуть картинку на 180 градусов, с помощю FlipHorizont развернул..а как вернуть в исходное состояние без использования FlipHorizont??
Pascal ABC создать снеговика с анимацией в PascalABS(любая) Пожалуйста помогите создать снеговика с анимацией в PascalABS(любая) https://www.cyberforum.ru/ pascalabc/ thread569230.html	Pascal ABC Описать функцию,которая удаляет из строки все лишние пробелы Описать функцию,которая удаляет из строки все лишние пробелы.Пробелы считаются лишними,если их подряД идет более двух,если они стоят в конце строки после последней строчки.ПОМОГИТЕ ПОЖАЛУЙСТА!ОЧЕНЬ СРОЧНО!
Pascal ABC Определить, сколько слов заканчиваются буквой а https://www.cyberforum.ru/ pascalabc/ thread569187.html Дан набор слов,разделенных точкой с запятой (;). Набор заканчивается двоеточием (:). Определить,сколько в нем слов,заканчивающихся буквой а!СРОЧНО!ПОМОГИТЕ ПОЖАЛУЙСТА!ЗАВТРА НАДО СДАТЬ!	Pascal ABC Дано двумерный массив вещественных чисел. Найти произведение сумм всех строк. Дано двумерный массив вещественных чисел. Найти произведение сумм всех строк. https://www.cyberforum.ru/ pascalabc/ thread569180.html
Дана последовательность. Вычислить минимальный из корней модулей элементов Pascal ABC привет всем. помогите решить пожалуйста задачку. дано натуральное число n, действительные числа {a}_{1},{a}_{2}, ..., {a}_{n}. Вычислить: min(\sqrt{\left\|{a}_{1} \right\|}, ...,\sqrt{\left\|{a}_{n} \right\|})	Pascal ABC Ошибка в функции, которая ищет неповторяющиеся символы Помогите исправить ошибку в функции, которая ищет неповторяющиеся символы. Ошибка собственно в том, что если кол-во неповторяющихся символов чётное - программа работает правильно, если нечётное соотвественно не правильно Program L9_3; { Дана строка символов, состоящая из произвольного текста, слова разделены пробелами. Выведите на экран порядковый номер слова минимальной длины и количество... https://www.cyberforum.ru/ pascalabc/ thread569160.html

Exoo

25 / 22 / 15

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

Сообщений: 92

09.05.2012, 16:06

Найти удельные веса и названия всех проводников - Pascal ABC - Ответ 3008622

09.05.2012, 16:06. Показов 2044. Ответов 2

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

Ответ

я бы сделал так. я бы просто запоминал индекс самого большого и самого маленького и потом вывел на экран.
вот по вашему коду:

Pascal

{...}
    min:=99999;
    max:=0;
    //минимальный вес полупроводника
     for i:=1 to j do begin
     if (a[i].prov ='полупроводник') and (a[i].ves<min) then
      min:=i; end;
     writeln( 'полупроводник с мин весом',' ',a[min].name);
     //максимальный вес изолятора
     for i:=1 to j do begin
     if a[i].prov ='изолятор' then
     if a[i].ves>max then max:=i; end;
     writeln( 'максимальный удельный вес изолятора',' ',a[max].name);
     close(f);{......}

Вернуться к обсуждению:
Найти удельные веса и названия всех проводников Pascal ABC

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

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

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

09.05.2012, 16:06

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

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

Найти удельные веса и названия всех полупроводников
вот, надо создать программу которая создает файл .dta где содержится список ингридиентов. Потом...

Найти удельные веса и названия всех полупроводников
Собственно задача. Сведения о веществе состоят из его названия, удельного веса и проводимости...

Найти удельные веса и названия всех полупроводников
Прошу помощи, нужен код на языке С к данной задаче: Дан файл f, содержащий сведения о веществах:...

	09.05.2012, 16:06

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

09.05.2012, 16:06

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

Найти удельные веса и названия всех полупроводников
Даны сведения о веществах: указывается название вещества, его удельный вес и проводимость...

Записи. Даны сведения о веществах. Найти удельные веса и названия всех полупроводников
Помогите с задачкой) Даны сведения о веществах: указывается название вещества, его удельный вес...

Дан файл f, содержащий сведения о веществах. Найти удельные веса и названия всех полупроводников.
Дан файл f, содержащий сведения о веществах: указывается название вещества, его удельный вес и...

Найдите удельные веса и названия всех полупроводников
Народ, помогите с задачей на типизированные файлы - Дан файл f, содержащий сведения о...

Наверх