|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.12.2013, 15:18 | #1 |
Новичок
Джуниор
Регистрация: 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. Причина: Добавление данных |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
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 |