|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.05.2011, 11:02 | #1 |
Пользователь
Регистрация: 14.11.2010
Сообщений: 26
|
определения урожайности по каждому району
Добрый день. мне задали составить программу на 2х языках программирования.(на паскале(pas) и на СИ©) на паскале я сделал задачу. но вот на СИ у меня проблема с этим. помогите составить программу на СИ. заранее благодарю!
Исходные данные – урожай в каждом районе в засеваемые площади – задать в двух массивах. Для определения урожайности по каждому району найти частное от деления элементов массивов, содержащих исходные данные. Для определения средней урожайности по области найти частное от деления сумм элементов массивов исходных данных. вот код паскаля program pr1; uses crt; const n=5; var a,b: array [1..n] of real; c: array [1..n] of real; i: integer; s,p: real; t:real; begin clrscr; writeln('massiv a'); for i:=1 to n do read(a[i]); writeln('massiv b'); for i:=1 to n do read(b[i]); p:=0;s:=0; for i:=1 to n do begin c[i]:=a[i]/b[i]; p:=p+a[i]; s:=s+b[i]; end; t:=p/s; writeln('urazhainost po oblosti= ',t:2:2); writeln('urozhainost po raionam:'); for i:=1 to n do write(c[i]:6:2); end.Я ЕГО НАПИСАЛ Т.К МНЕ СКАЗАЛИ ЧТО МОЖНО ЧЕРЕЗ НЕГО НАПИСАТЬ ДР КОД, извиняюсь если что не так. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Каждому клиенту по потоку. | ImmortalAlexSan | Работа с сетью в Delphi | 1 | 01.07.2010 17:45 |