Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 12.01.2010, 16:55   #1 (permalink)
Justinn
Member
 
Регистрация: 12.01.2010
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите студенту в сложной ситуации

Помогите пожалуйста у меня пять задач((по турбо поскалю) у меня сейчас практика ((я бы рад решить сам но нечего в нём не соображаю ну только стандартные функции ((я пытался добиться от нашего учителя хоть штони будь но он полный дебил говорит что в школе мы должны были пройти это(("чево в помине и не было" я очень вас прошу помогите решить задачи.Зарание спс.Как говориться я в ваших руках)))ну или точнее в пальцах

1
Вводятся длины двух сторон треугольника А и Б, и угол между ними в градусах. Определить длину третьей стороны С при помощи формулы теоремы косинусов.

2
Вводятся радиусы оснований и высоты для двух циллиндров. Определить, какой из циллиндров выше, а какой - шире в основании. Ответ вывести в формате "A выше B", "B выше А", "A и B равны в высоте (или ширине основания)"

3
Подсчитывать сумму случайных чисел, пока количество отрицательных, попавшихся среди них, не превысит N

4
Подсчитать сумму элементов квадратной матрицы N на N. Если сумма отрицательная, то заменить нулями главyю диагональ матрицы. Если положительная - то дополнительную. Если сумма = 0, то сообщить об этом и ничего в матрице не менять

5
Вводится предложение. Подсчитать, сколько слов в нем следует через запятую.
Justinn вне форума   Ответить с цитированием

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

Посетители форума могли уже решить эту проблему в какой то из этих тем

Зацените юмор ситуации, или может кому поможет моя беда...
Поскажите как не пускать вируса в ситуации

Старый 12.01.2010, 17:32   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,853
Сказал(а) спасибо: 317
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
1
Вводятся длины двух сторон треугольника А и Б, и угол между ними в градусах. Определить длину третьей стороны С при помощи формулы теоремы косинусов.
Код:
VAR
 a,b,alpha:REAL;
BEGIN
 Write('a= ');
 ReadLn(a);
 Write('b= ');
 ReadLn(b);
 Write('alpha= ');
 ReadLn(alpha);
 WriteLn('c= ',SQRT(SQR(a)+SQR(b)-2.0*a*b*Cos(alpha/180*Pi)));
 ReadLn;
END.
Цитата:
2
Вводятся радиусы оснований и высоты для двух циллиндров. Определить, какой из циллиндров выше, а какой - шире в основании. Ответ вывести в формате "A выше B", "B выше А", "A и B равны в высоте (или ширине основания)"
Код:
VAR
 r1,r2,h1,h2:REAL;
BEGIN
 Write('r1= ');
 ReadLn(r1);
 Write('h1= ');
 ReadLn(h1);
 Write('r2= ');
 ReadLn(r2);
 Write('h2= ');
 ReadLn(h2);
 If h1>h2 then
  writeln('Cylinder1 is higher then cylinder2') else
 If h2>h1 then
  writeln('Cylinder2 is higher then cylinder1') else
  writeln('The hights of cylinder1 and cylinder2 are equal');
 If r1>r2 then
  writeln('Cylinder1 is wider then cylinder2') else
 If r2>r1 then
  writeln('Cylinder2 is wider then cylinder1') else
  writeln('The widths of cylinder1 and cylinder2 are equal');
 ReadLn;
END.
Остальные - попозже.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 12.01.2010, 17:38   #3 (permalink)
Justinn
Member
 
Регистрация: 12.01.2010
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

ваще спс тибе!!!!!да ты даже не предстовляешь какое тебе спасибо даже за две задачки
Justinn вне форума   Ответить с цитированием
Старый 12.01.2010, 17:43   #4 (permalink)
DDS
Member
 
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
По умолчанию

Задача 2
Код:
Var 
   r1,r2,h1,h2:byte;
 Begin
   Writeln('r1 h1');
   Read(r1,h1);
   Writeln('r2 h2');
   Read(r2,h2);
   If r1=r2 then writeln('А и В равны по ширине основания');
   If r1>r2 then writeln('А шире В') else writeln('В шире А');
   If h1=h2 then writeln('А и В равны по высоте');
   If h1>h2 then writeln('А выше В') else writeln('В выше А'); 
   Readln;
 End.
Эх, пока приводил программу в нормальный вид Vladimir_S уже выложил 2 задачу.

Последний раз редактировалось DDS; 12.01.2010 в 17:45 Причина: добавление
DDS вне форума   Ответить с цитированием
Старый 12.01.2010, 17:49   #5 (permalink)
Justinn
Member
 
Регистрация: 12.01.2010
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спс и тебе DDS я очень циню вашу помощьВладимир буду ждать и надеетсяспасибо кароче всем кто откликнулся))вы ребят прямо людей делаете счастливыми))
Justinn вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 12.01.2010, 17:56   #6 (permalink)
DDS
Member
 
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
По умолчанию

Задача 3
Код:
Var a,b,n,s,k:integer;
Begin
  Randomize;
  Read(n);
  k:=0;
  Repeat
  a:=random(100)-50;
  b:=random(100)-50;
  If (a<0) or (b<0) then k:=k+1;
  s:=a+b;
  Writeln(a:5,b:5,s:5);
  s:=0;
  Until k>=n;
End.
DDS вне форума   Ответить с цитированием
Старый 12.01.2010, 18:05   #7 (permalink)
Justinn
Member
 
Регистрация: 12.01.2010
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спс DDS))
Justinn вне форума   Ответить с цитированием
Старый 12.01.2010, 18:33   #8 (permalink)
DDS
Member
 
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
По умолчанию

Задача 4
Код:
Const n=5;
Var i,j,k:byte;a:array[1..n,1..n]of integer;s:integer;
Begin
  Randomize;
  s:=0;
  For i:=1 to n do
  For j:=1 to n do
  a[i,j]:=random(100)-50;
   For i:=1 to n do
   begin
  For j:=1 to n do
  write(a[i,j]:5);
  writeln;
  end;
  writeln;
  For i:=1 to n do
  For j:=1 to n do
  s:=s+a[i,j];
  k:=n+1;
  If s<0 then
            for i:=1 to n do
            a[i,i]:=0;
  If s>0 then
            for i:=1 to n do
            for j:=1 to n do
            begin
            k:=k-1;
            a[k,j]:=0;
            end;
  If s=0 then writeln('summa=0');
  For i:=1 to n do
   begin
  For j:=1 to n do
  write(a[i,j]:5);
  writeln;
   end;
End.
Возможно я не лучшим образом реализовал заполнение дополнительной диагонали, но ничего лучше не придумал.
DDS вне форума   Ответить с цитированием
Старый 12.01.2010, 18:47   #9 (permalink)
DDS
Member
 
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
По умолчанию

Задача 5
Код:
 Var 
        i,k:byte;
        s:char;
        text:string;
 Begin
  S:=',';
  Readln(text);
  Writeln(text);
  k:=0;
  For i:=1 to length(text) do
  If text[i]=s then k:=k+1;
  If k<>0 then
  K:=k+1; 
  Writeln(k);
 End.

Последний раз редактировалось DDS; 12.01.2010 в 18:55 Причина: Исправление
DDS вне форума   Ответить с цитированием
Старый 12.01.2010, 18:51   #10 (permalink)
Justinn
Member
 
Регистрация: 12.01.2010
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо тебе DDS!!!!.Помог так что не забуду.
Justinn вне форума   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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