Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу 2 задачи
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
strertkjh strertkjh вне форума
Member
 
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 30.04.2007
По умолчанию 17.05.2007, 14:17

Помогите с решением этих двух задач
Задача №1:
Составить алгоритм и программу для вычисления y=2sin0,9x в интервале 0<=x<=2п с шагом п/6 и затем для вычисления u=2,5^y, если y<=0, а если y>0, то u=1,5^(y+1).
Задача №2:
При оценке швейных изделий используют бальную систему по 10 показателям. Изделие, набравшее наивысший балл, занимает первое место. Дальнейшее распределение мест производят согласно выбранным баллам. Определить лучшую продукцию из трех изделий, показатели которых приведены ниже.
Первое изделие
“Весна”……… 18 7 12 5 8 2 1 2 7 8
Второе изделие
“Осень’……… 23 4 11 1 13 4 1 3 5 11
Третье изделие
“Лето’……… 21 5 14 2 11 6 2 4 3 9
Ответить с цитированием
  (#2 (permalink)) Старый
IL_Agent IL_Agent вне форума
Member
 
Аватар для IL_Agent
 
Сообщений: 2,015
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 03.07.2005
По умолчанию 17.05.2007, 15:11

С чем возникли трудности ?
Ответить с цитированием
  (#3 (permalink)) Старый
DOVE DOVE вне форума
Member
 
Сообщений: 67
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 10.12.2006
По умолчанию 17.05.2007, 16:49

Действительно... С первым заданием вообще не должно быть никаких проблем. Синус по разному можно посчитать-самый простой но корявый ето составить массив из 12 значений икса, а патом в цикле их просчитывать. Коряво, зато понятно. С возведением в степень тоже все просто-два условия и процедурка возведения в степень.
Ответить с цитированием
  (#4 (permalink)) Старый
strertkjh strertkjh вне форума
Member
 
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 30.04.2007
По умолчанию 18.05.2007, 10:53

Ну вот решение на первую задачу:
Код:
program var1_1;
uses crt;
var x,u,y: real;
        i: integer;
BEGIN
clrscr;
writeln('     x        y        u');
x:=0;                                   {задаем начальное значение x}
for i:=1 to 13 do begin                 {перебираем все значения i от 0 до 4}
y:=2*sin(0.9*x);                 {рассчитываем значение y по формуле}
if y<=0 then u:=exp(y*ln(2.5)) else u:=exp((y+1)*ln(1.5)); {проверяем условие}
write(x:8:2,' ',y:8:2,' ',u:8:2);                  {печатаем результат}
writeln;
x:=x+pi/6;                              {увеличиваем x на  }
end;                                  {конец цикла для i}
readln;
END.
А вот на 2:
Код:
program var1_3;
uses crt;
var a: array [1..3,1..10] of integer;
      t,buf,buf2,s,w,i,j: integer;
      d,q: array [1..3] of integer;
BEGIN
clrscr;
for i:= 1 to 3 do begin        {организуем цикл для всех значений i от 1 до 3}
if i=1 then write('Spring - ');
if i=2 then write('Autumn - ');
if i=3 then write('Summer - ');
for j:= 1 to 10 do                    {перебираем все значения j от 1 до 10}
read(a[i,j]);                        {заполняем массив с клавиатуры}
end;                                
for i:= 1 to 3 do begin                {перебираем все значения i от 1 до 3}
s:=0;                            {задаем начальное значение s}    
for j:= 1 to 10 do                    {перебираем все значения i от 1 до 3}
s:= s+a[i,j];                        {увеличиваем s на a[i,j]}
d[i]:=s;            {i-тому элементу массива d присваиваем     значение s}
q[i]:=i;            {i-тому элементу массива q присваиваем     значение i}
end;                                
writeln;
for i:= 1 to 3 do begin                {перебираем все значения i от 1 до 3}
for w:= 1 to 3 do                    {перебираем все значения w от 1 до 3}
if (w<>i) and (d[i]>=d[w]) then begin        {проверяем условие}
buf:=d[i];               {сортируем элементы массива в порядке убывания}
d[w]:=buf;                             
buf2:=q[i];
q[i]:=q[w];
q[w]:=buf2;
end;                                
end;                                
for i:= 1 to 3 do begin                {перебираем значения i от 1 до 3}
if i=1 then write('1-e');
if i=2 then write('2-e');
if i=3 then write('3-e');
for j:= 1 to 10 do begin                {перебираем значения j от 1 до 3}
t:=q[i];           {помещаем значение i-того элемента массива q в переменную t}
write(a[t,j]:4);                 {печатаем новый массив с отсортированными строками}
end;                                                 
writeln;
end;
END.
Правильно ли?
Ответить с цитированием
  (#5 (permalink)) Старый
DOVE DOVE вне форума
Member
 
Сообщений: 67
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 10.12.2006
По умолчанию 18.05.2007, 17:40

Первая по ходу правильно. Единственно что не помню точно формулы подсчета степени через экспоненту-логарифм. А так правильно=)
Ответить с цитированием
Ads.
Ads
Ответ

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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачи... Bowin Pascal 3 25.09.2011 20:15
задачи Ildar Pascal 1 10.01.2011 18:06
Задачи kortik Prolog 1 01.02.2010 20:12
с++, две задачи AieR Задания за деньги 3 12.04.2009 18:53
2 задачи MoHaxxx Задания за деньги 9 21.03.2009 00:07
2 задачи MoHaxxx Задания за деньги 2 09.01.2009 17:08
2 задачи MoHaxxx Задания за деньги 12 25.11.2008 12:46
2 Задачи на С++ Warcerg Задания за деньги 2 23.06.2008 08:19
Задачи на C# Gift Задания за деньги 2 07.01.2008 14:51
2 Задачи на SWI juver Prolog 3 17.01.2007 14:47
Алгоритмы Евклидовой задачи и задачи с каннойскими башнями KaMaZ Вопросы начинающих программистов 4 21.12.2006 20:49
2 задачи [Sp] Prolog 0 25.05.2006 21:44



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов