Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите с паскалем!
Помогите с паскалем!
У меня почему то 1 и 3 происходит зацикливание а 2 вообще не выходит!

Розв’язати задачі, використовуючи оператори циклу.
2)Побудувати таблицю відповід¬ностей між мірами. Початкове значення міри, крок зміни цього значення та кількість рядків у таблиці (10-15) задати самостійно у режимі діалогу. Оформити таблицю якнайкраще, використовуючи формати виведення.
24. 1 дюйм = 2.54 см = 12 ліній;
3)Протабулювати функцію f(x)=cos(2,1*x)*sin|x|/0,15-5,8 на проміжку [0; і] з кроком h=0.1і, де і -номер варіанта. Результати обчислень вивести на екран у вигляді таблиці пар чисел х, у. Виконати завдання пошуку даних. Якщо шуканих даних немає, вивести про це повідомлення.
24. Обчислити кількість та добуток тих значень функції у, для яких виконуються нерівності 1,3<у<5.

Заранее спасибо!
1 | Автор: ruslancomua | 2012-11-08, 23:58 | Изменено: ruslancomua - Чт, 2012-11-08, 23:59   |  Репутация: [ + 0 ]
кидай свои исходники, гляну

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-11-09, 08:59   |  Репутация: [ + 211 ]
http://www.ex.ua/view_storage/345210611075
3 | Автор: ruslancomua | 2012-11-11, 18:04   |  Репутация: [ + 0 ]
сюда кидай

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-11-11, 18:36   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2012-11-11, 18:36   |  Репутация: [ + 211 ]
Задача №1
Code
uses crt;
var i, x: integer;
     a, b, z, S1, S2: real;
begin
clrscr;
writeln('‚ўҐ¤ЁвҐ §­ зҐ­ЁҐ е: ');
readln(x);
S2:=1;
for i:=1 to 9 do
begin
       a:=cos(x*x)*sin(2*x-1)+4.29;
       S1:=S1+a;
end;

for i:=1 to 6 do
begin
       b:=cos(x*x)*sin(2*x-1)+4.29;
       S2:=S2*b;
end;
writeln('i=1');
writeln('a=',S1:4:2);
writeln('b=',S2:4:2);
writeln('z=',S1+S2:4:2);
readln;
end.

Добавлено (11.11.12, 19:01)
---------------------------------------------
Задача №2

Code
uses crt;
var a, b, c, i: integer;
     const duym=28.353495; duym1=142;
begin
clrscr;
writeln('‚ўҐ¤ЁвҐ ­ з «м­®Ґ §­ зҐ­ЁҐ: ');
readln(a);
writeln('‚ўҐ¤ЁвҐ и Ј: ');
readln(b);
writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® бва®Є: ');
readln(c);
writeln(*);
writeln('duym       ','sm       ','linii');
if (c<10) or (c>15) then
         writeln('ЋиЁЎЄ ! Љ®«ЁзҐбвў® бва®Є ¤®«¦­® Ўлвм ®в 10 ¤® 15!')
else

begin
for i:=a to a+c do
         begin
         duym:=a*duym;
         duym1:=a*duym1;
         a:=a+b;
         writeln('  ', a-1, '         ', duym:6:4, '      ', duym1:6:4);
         end;
end;
readln;
end.

ТРетий нету!
5 | Автор: ruslancomua | 2012-11-11, 19:01   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите с паскалем!
  • Страница 1 из 1
  • 1
Поиск: