01.02.2011, 22:52 | #1 (permalink) |
Новичок
Регистрация: 01.02.2011
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить в Паскале
Задача: По результатам продажи жилья за полгода администрацией области получена информация: Город Количество проданных квартир Количество кв.м. Сумма от продажи тыс. руб. Мыски 34 2800 41870 … … … … Напечатать таблицу, заменив последний столбец на «Средняя стоимость 1 квартиры». |
01.02.2011, 22:52 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Подскажу вам, что проблему можно решить прочитав схожие темы Помогите решить задачу в Паскале Помогите решить задачу на Паскале |
02.02.2011, 10:08 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
CONST Name:Array[1..10] of String=('Мыски','Прокопьевск','Междуреченск', 'Белово','Березовский','Кемерово', 'Новокузнецк','Осинники', 'Ленинск-Кузнецкий','Анжеро-Судженск'); TYPE DATA=Record F_Name:String; F_N:Word; F_S:LongInt; F_Sum:LongInt; F_Med:LongInt; end; VAR Flat:Array[1..10] of DATA; i,j:Integer; BEGIN Randomize; For i:=1 to 10 do With Flat[i] do begin F_Name:=Name[i]; F_N:=Random(200); F_S:=F_N*(Random(100)+50); F_Sum:=F_S*(Random(40)+30); F_Med:=ROUND((1.0*F_Sum)/(1.0*F_N)); end; WriteLn('Исходная таблица:'); For i:=1 to 10 do With Flat[i] do begin Write(F_Name); for j:=length(F_Name) to 25 do write(' '); Write(F_N:3); Write(F_S:10); WriteLn(F_Sum:10); end; WriteLn; WriteLn('Новая таблица:'); For i:=1 to 10 do With Flat[i] do begin Write(F_Name); for j:=length(F_Name) to 25 do write(' '); Write(F_N:3); Write(F_S:10); WriteLn(F_Med:10); end; ReadLn; END. |
|
02.02.2011, 17:02 | #3 (permalink) |
Новичок
Регистрация: 01.02.2011
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Vladimir_S
Благодарю за предоставленное решение А еще с одной задачей не поможете: Имеется информация о наличии N наименований торгового оборудования на складе. Определить общее количество оборудования. |
02.02.2011, 17:10 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
То есть известно количество единиц оборудования каждого наименования? И Вы не в состоянии эти N чисел просуммировать? Нет уж, извините, но тут пусть кто-нибудь другой.
|
02.02.2011, 18:01 | #5 (permalink) |
Новичок
Регистрация: 01.02.2011
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Да нет смотрите я решила - только не знаю правильно или нет. Проверьте если Вам не сложно.
uses crt; type tovar=record name:string[20]; kol:integer; end; var a:array[1..100] of prodaza; n,i,sum:byte; begin clrscr; write('Skolko naimenovaniy?'); readln(n); writeln('Vvedite harakteristiki oborudovaniya') for i:=1 to n do begin with a[i] do begin write(' Nazvanie ',i,' ');readln(name); write(' Kolichestvo ');readln(kol); end; end; sum:=0; for i:=1 to n do begin with a[i] do sum:=sum+kol; end; writeln; writeln(sum); end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
02.02.2011, 21:25 | #6 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Почти правильно - 3 ошибки: 1. Наименование записи - либо tovar, либо prodaza. Вы уж выберите что-нибудь одно. 2. В конце строки writeln('Vvedite harakteristiki oborudovaniya') нет разделителя ";". Нужно обязательно поставить. 3. В самом конце программы перед закрывающим "end." желательно поставить "readln;". Тогда программа, выведя результат, остановится и даст на этот результат посмотреть до нажатия клавиши "Enter". А остальное - правильно. |
|
03.02.2011, 00:14 | #7 (permalink) |
Новичок
Регистрация: 01.02.2011
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Может я что-то не понимаю, но позадачке, которую вы мне решили, что-то не выходит блок-схема. Может я совсем совсем не умная, как вы? Хотя это я могу сказать точно, что вы умный человек.
|
06.02.2011, 20:43 | #10 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Вам создана новая тема: Три задачи на Паскале Если не прекратите лезть в чужие и клонировать свои топики, будете наказаны.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|