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


Ответ
 
Опции темы Опции просмотра
Старый 08.05.2012, 02:03   #1 (permalink)
alexandrra
Новичок
 
Регистрация: 08.05.2012
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите, пожалуйста, решить задачки в Паскале по одномерным массивам

1) заполнить массив А по правилу для всех х=-4..4 с шагом 1: y[x]=tgx-5x^2

2) задать массив случайным образом. Найти кол-во и сумму элементов,попадающих в отрезок [7;14]

3) ввести массив, состоящий из 10 элементов с клавиатуры . Вывести сумму без учета максимального значения
alexandrra вне форума   Ответить с цитированием

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

Эти темы могут вам помочь

Помогите, пожалуйста, решить задачки
Delphi. Помогите, пожалуйста, решить две задачки
Помогите, пожалуйста, решить задачки в Паскале
Помогите решить задачки на Паскале
Пожалуйста, помогите решить задачу на Паскале

Старый 08.05.2012, 20:13   #2 (permalink)
Gruvi
VIP user
 
Аватар для Gruvi
 
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
По умолчанию

поясните 3е задание подробнее ?
заполнить массив с клавиатуры числами, и программа должна считать сумму всего массива или что ?
Gruvi вне форума   Ответить с цитированием
Старый 08.05.2012, 21:49   #3 (permalink)
alexandrra
Новичок
 
Регистрация: 08.05.2012
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

программа должна считать сумму элементов массива, без учета max элемента
alexandrra вне форума   Ответить с цитированием
Старый 09.05.2012, 00:49   #4 (permalink)
Gruvi
VIP user
 
Аватар для Gruvi
 
Регистрация: 10.03.2011
Сообщений: 765
Записей в дневнике: 1
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
По умолчанию

Писал в блокноте, по этому могу сделать ошибки (давно к тому же на pascal'е что-то делал)
Цитата:
const
max = 100;
var
arr: array[1..max] of real;
n: integer;
sum. max: real;
i: integer;

begin
write('Количество элементов: ');
readln(n);

write('Укажите значения: ');
; max:=a[1];
for i:=2 to n do
begin
if max<a[i] then
max:=a[i];
end;
sum := 0
for i := 1 to n do
sum := sum + arr[i] - max;

writeln('Сумма элементов: ', sum:10:2);
end.
Gruvi вне форума   Ответить с цитированием
Старый 09.05.2012, 02:58   #5 (permalink)
alexandrra
Новичок
 
Регистрация: 08.05.2012
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо, Вы мне очень помогли
alexandrra вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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