Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.12.2013, 15:18   #1
stalker161reg
Новичок
Джуниор
 
Регистрация: 25.12.2013
Сообщений: 2
По умолчанию PascalABC

Построить столбчатую диаграмму напряжений на резисторах (Работа на тему "типы данных. Типизированные файлы"):

В результате измерений получены напряжения (в вольтах) на зажимах каждого из двадцати различных электрических сопротивлений, не соединенных друг с другом. Характеристика (в омах) каждого сопротивления известна. Определить порядковый номер сопротивления, по которому проходит минимальный ток.

Код программы, для которой нужна диаграмма:

program Порядковый номер сопротивления ;
uses crt;
var i,j,k:integer;a:array[1..20] of integer;b:array[1..20] of integer;
Begin
clrscr;
writeln('Введите напряжение 20 зажимов через Enter');
for i:=1 to 20 do readln(a[i]);
writeln('Введите сопротивление 20 зажимов через Enter');
for i:=1 to 20 do readln(b[i]);
k:=1;
for i:=2 to 20 do if ((a[i]/b[i])<(a[k]/b[k])) then k:=i;
writeln('Минимальный ток на ',k,' зажиме');
for i:=k to 20 do if ((a[i]/b[i])=(a[k]/b[k])) then writeln('А также на зажиме №',i);
End.

Последний раз редактировалось stalker161reg; 25.12.2013 в 15:21. Причина: Добавление данных
stalker161reg вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
PascalABC Юся=) Помощь студентам 0 28.12.2011 00:42
PascalABC Юся=) Помощь студентам 8 23.12.2011 00:11
PascalABC ludan Помощь студентам 0 22.10.2011 22:50
3D в PascalABC Рудко Дмитрий Паскаль, Turbo Pascal, PascalABC.NET 6 09.02.2010 13:02
PascalABC, uses Gorny Помощь студентам 3 04.12.2009 13:12