|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
03.04.2008, 16:00 | #11 |
Форумчанин
Регистрация: 30.03.2008
Сообщений: 392
|
Найти произведение ненулевых элементов в одномерном числовом массиве и напечатать.
var a:array[1..100]of integer; i:integer;pr:integer; begin write('Введите количество элементов массива'); readln(n); for i:=1 to n do begin write(' а[',i,'] = '); readln(a[i]); end;pr:=1; for i:=1 to n do if ((a[i]>0) or (a[i]<0)) then pr:=pr*a[i]; write('Произведение равно ',pr:5); readln; end.
Программирование - это великое искусство... Такое же как например и живопись!
|
03.04.2008, 16:05 | #12 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А так:
Код:
I'm learning to live...
|
03.04.2008, 16:10 | #13 |
Форумчанин
Регистрация: 30.03.2008
Сообщений: 392
|
Напиши подробнее про последнюю задачу, не понял до конца
Программирование - это великое искусство... Такое же как например и живопись!
|
03.04.2008, 18:00 | #14 |
Регистрация: 16.03.2008
Сообщений: 4
|
Пишу программы! Не дорого и качественно! Контакты на сайте:
http://programmist.moy.su/ |
03.04.2008, 19:19 | #15 |
Пользователь
Регистрация: 03.04.2008
Сообщений: 21
|
Большое спасибо за ответы.
Пожалуйста, посмотрите еще 1 и 4 задачу. Код:
|
03.04.2008, 21:16 | #16 |
Форумчанин
Регистрация: 30.03.2008
Сообщений: 392
|
к сожалению я не понял эти задачи, само условие!
Программирование - это великое искусство... Такое же как например и живопись!
|
03.04.2008, 23:19 | #17 |
Форумчанин
Регистрация: 30.03.2008
Сообщений: 392
|
Я понял эту задачу так:
12 Йогурт 15 Пироженое Вводите цену, затем название товара 7 товаров Я написал прогу: uses crt; const n=7; var cena:array[1..n] of real; tovar:array[1..n] of string; i,j:integer; tmp:real; tmp2:string; begin clrscr; writeln('Vvedite dannie'); for i:=1 to n do begin readln(cena[i],tovar[i]); cena[i]:=cena[i]*1.1; end; for i:=1 to n-1 do for j:=i+1 to n do if cena[i]<cena[j] then begin tmp:=cena[i]; cena[i]:=cena[j]; cena[j]:=tmp; tmp2:=tovar[i]; tovar[i]:=tovar[j]; tovar[j]:=tmp2; end; for i:=1 to n do writeln(cena[i]:3:3,tovar[i]); readln; end. Если что непонятно, пишите.
Программирование - это великое искусство... Такое же как например и живопись!
|
04.04.2008, 01:14 | #18 | ||
Форумчанин
Регистрация: 03.02.2008
Сообщений: 213
|
Цитата:
В задании явно сказано Цитата:
"Йогурт_20" или так "Йогурт 20".
Пишу программы на заказ, контакты под аватаром!
Отзывы тут |
||
04.04.2008, 01:25 | #19 |
Форумчанин
Регистрация: 30.03.2008
Сообщений: 392
|
Практически так же!
Если так смотреть, то нужно будет считывать после символа _ и перед ним!
Программирование - это великое искусство... Такое же как например и живопись!
|
04.04.2008, 01:26 | #20 |
Форумчанин
Регистрация: 30.03.2008
Сообщений: 392
|
Я сделал
20 Йогурт 30 Масло и т.д. потом сортируется все и цена увеличивается на 10 процентов!
Программирование - это великое искусство... Такое же как например и живопись!
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Пожалуйста помогите решить задачи по Паскалю | Vladislav_87 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 17.05.2008 22:41 |
Пожалуйста помогите решить 4 задачки на массивы и оператор цикла. | alena-yalymova | Паскаль, Turbo Pascal, PascalABC.NET | 8 | 05.04.2008 22:21 |
Оператор цикла с предусловием While. Оператор цикла с пост условием Repeat | McMilin | Помощь студентам | 7 | 11.11.2007 14:10 |
помогите решить задачи!пожалуйста!! | лиса | Паскаль, Turbo Pascal, PascalABC.NET | 9 | 12.01.2007 03:34 |