Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 20.04.2011, 19:00   #1 (permalink)
Лилька
Новичок
 
Регистрация: 20.04.2011
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Паскаль

Помогите, пожалуйста, с заданием.Нужно написать програму.Очень-очень нужно:
по заданному условию сформировать одномерный массив(вектор), вывести на печать и произвести операции по обработке полученных компонентов массива.Для всех вариантов исходными данными являются одномерный массив, элементы кот. задаются с помощью датчика случ. чисел от -50до +50 и целое положительное число -50.
..нужно вычислить произведение положительных к элементов массива.
Лилька вне форума   Ответить с цитированием

Старый 20.04.2011, 19:00
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Следующие топики могут вам существенно облегчить задачу

Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл
Паскаль
Паскаль АВС

Старый 20.04.2011, 20:37   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Лилька Посмотреть сообщение
Помогите, пожалуйста, с заданием.Нужно написать програму.Очень-очень нужно:
по заданному условию сформировать одномерный массив(вектор), вывести на печать и произвести операции по обработке полученных компонентов массива.Для всех вариантов исходными данными являются одномерный массив, элементы кот. задаются с помощью датчика случ. чисел от -50до +50 и целое положительное число -50.
..нужно вычислить произведение положительных к элементов массива.
Только что проходила почти такая же задача. Осталось чуть-чуть ручонки приложить:
Помогите написать программу в Паскале
Vladimir_S вне форума   Ответить с цитированием
Старый 20.04.2011, 21:03   #3 (permalink)
Лилька
Новичок
 
Регистрация: 20.04.2011
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

по заданному условию сформировать одномерный массив(вектор), вывести на печать и произвести операции по обработке полученных компонентов массива.Для всех вариантов исходными данными являются одномерный массив, элементы кот. задаются с помощью датчика случ. чисел от -50до +50 и целое положительное число -50.
..нужно вычислить произведение последних К элементов массива.
чуть-чуть изменения)
да я видела. в том то и дело , что не могу до конца доделать(
Лилька вне форума   Ответить с цитированием
Старый 20.04.2011, 21:14   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Лилька Посмотреть сообщение
и целое положительное число -50
А его-то к чему приткнуть?
Vladimir_S вне форума   Ответить с цитированием
Старый 20.04.2011, 22:23   #5 (permalink)
Лилька
Новичок
 
Регистрация: 20.04.2011
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Не знаю.
да у меня тоже самое практически, просто я не знаю как расписать "произведение последних К элементов массива"
в общем где if и т.д.
Лилька вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 20.04.2011, 22:30   #6 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Лилька Посмотреть сообщение
Не знаю.
да у меня тоже самое практически, просто я не знаю как расписать "произведение последних К элементов массива"
в общем где if и т.д.
Код:
const  
 n=10;
 k=3; 
var  
 a:array[1..n] of integer;  
 i:integer;
 P:LongInt; 
begin  
 randomize;  
 for i:=1 to n do   
  begin    
   a[i]:=50-random(101);    
   write(a[i]:4);   
  end;  
 writeln;  
 writeln;  
 P:=1;  
 for i:=n-k+1 to n do   
  P:=P*a[i];
 writeln('Product of last ',k,' elements is ',P);  
 readln; 
end.
Vladimir_S вне форума   Ответить с цитированием
Старый 20.04.2011, 22:43   #7 (permalink)
Лилька
Новичок
 
Регистрация: 20.04.2011
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо большое !!!
Лилька вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 14:22.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.