Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > помогите горюююююю

Автор: sabrina 23.12.2005, 20:42

1. Записать в формате турбо паскаля выражения
a) 3cosx-4sinsinx
c) tgx-cos(в квадрате)x
2. Чему будет равно значение переменной nod1 при a=12 b=9 c=21
q:=a;z:=b
while q<>z do
if q>z then q:=q-z
else z:=z-q
nod1:=q;
(нахождение НОД 3-х чисел)
z:=c;
while nod1<>z do
if nod1>z then nod1:=nod1-z
else z:=z-nod1;
writeln(' ' , nod1:4);
3. Найти сумму всех вводимых с клавиатуры чисел, больших заданного числа d.
4. В линейный массив целых чисел на место минимального элемента вставить максимальный элемент.

Вот это контрольная за полугодие помогите плииииииииииииииз ! Благодарности не будет предела!!!!!!!!!!!!!!!

Автор: mvdr 24.12.2005, 07:22

Цитата(sabrina @ 23.12.2005, 20:42)

1. Записать в формате турбо паскаля выражения
a) 3cosx-4sinsinx
c) tgx-cos(в квадрате)x

Код


t:=sin(x); 
y:=3*cos(x) - 4 * sin(t)

Код


y:=tan(x) - cos(x)*cos(x); 
{или} y:=tan(x) - cos^2(x) ;

Автор: mvdr 24.12.2005, 07:33

Цитата(sabrina @ 23.12.2005, 20:42)

. Чему будет равно значение переменной nod1 при a=12 b=9 c=21
q:=a;z:=b
while q<>z do
if q>z then q:=q-z
else z:=z-q
nod1:=q;
(нахождение НОД 3-х чисел)
z:=c;
while nod1<>z do
if nod1>z then nod1:=nod1-z
else z:=z-nod1;
writeln(' ' , nod1:4);

а так не понятно из курса математики что ПОД (9,12,21)=3

Автор: mvdr 24.12.2005, 07:48

Цитата(sabrina @ 23.12.2005, 20:42)

3. Найти сумму всех вводимых с клавиатуры чисел, больших заданного числа d.

Код


programm1;
uses crt;
var mas:array[1..15] of integer;
     i, d, Summa:integer;
begin clrscr;
{ввод массивая забыл}
write('введите число-ограничитель ');
readln(d);
for i:=1 to 15 do
if mas[i]>d then Summa:=Summa+mas[i];
write('сумма элементов,больших заданного равна ',Summa);
readln;
end.

Добавлено @ 07:51

Цитата(sabrina @ 23.12.2005, 20:42)

4. В линейный массив целых чисел на место минимального элемента вставить максимальный элемент

времени уже нет:
Идея:
> ввод массива,
> цикл от 1 до кол-ва элементов, и ищем мах и min элементы
принимаем первый за минимальный, потом сравниваем первый и второй, если второй меньше, то второй становится минимальным, если нет, то берем третий.
> формируем новый массив, где на соотв-ие позиции вставляем минимальный и максимальный.

Автор: sabrina 25.12.2005, 19:35

Спасибо помогли моя оценка спасена!!!!!!!!!

Автор: mvdr 26.12.2005, 00:26

sabrina хоть правильно? И что поставили. Я просто без проврки smile

Автор: sabrina 27.12.2005, 21:26

мне сказали доделать все до четверги если можете помочь помогите!!!

Автор: Albinos_x 27.12.2005, 21:53

поточнее, чго у тебя не хватает до комплекта?

Автор: mvdr 28.12.2005, 08:33

sabrina

Цитата(sabrina @ 27.12.2005, 21:26)

мне сказали доделать все до четверги если можете помочь помогите!!!

что конкренто?

Автор: Sabrina 30.12.2005, 20:31

Четвертой не хватает я не знаю паскаль совсем!!! И в 3 говорят нет массива или чего такого!!!

Автор: sabrina 30.12.2005, 21:14

ну вот и всё Я ОФИЦИАЛЬНЫЙ ЧЛЕН ФОРУМА ПОЗДРАВЬТЕ МЕНЯ!!!!!!!!

Автор: mvdr 31.12.2005, 08:53

sabrina

Цитата(Sabrina @ 30.12.2005, 20:31)

И в 3 говорят нет массива или чего такого!!!

написал жеЁ что забыл как красиво вводится в паскале массив smile

Автор: Rick 31.12.2005, 10:38

1 вариант - вручную

Код


programm1;
uses crt;
const n=15;
var mas:array[1..n] of integer;
     i, d, Summa:integer;
begin 
  clrscr;
  for i:=1 to n do
  begin
    read(a[i]);
  end;
  readln;
  write('введите число-ограничитель ');
  readln(d);
  for i:=1 to n do
  begin
    if mas[i]>d then Summa:=Summa+mas[i];
  end;
  write('сумма элементов,больших заданного равна ',Summa);
  readln;
end.

2 вариант - случайные

Код


programm1;
uses crt;
const n=15;
var mas:array[1..n] of integer;
     i, d, Summa:integer;
begin 
  clrscr;
  randomize;
  for i:=1 to n do
  begin
    a[i]:=random(100);
    write(a[i],' '): 
  end;
  writeln;
  write('введите число-ограничитель ');
  readln(d);
  for i:=1 to n do
  begin
    if mas[i]>d then Summa:=Summa+mas[i];
  end;
  write('сумма элементов,больших заданного равна ',Summa);
  readln;
end.

4 задача

Код


programm4;
uses crt;
const n=15;
var mas:array[1..n] of integer;
     i, max, min, pos_min, pos_max:integer;
begin 
  clrscr;
  randomize;
  for i:=1 to n do
  begin
    a[i]:=random(100);
    write(a[i],' '); 
  end;
  writeln;
  min:=a[1]; max:=a[1];
  pos_min:=1; pos_max:=1;  
  for i:=1 to n do
  begin
    if a[i]>max then 
    begin
      max:=a[i];
      pos_max:=i;   
    end; 
    if a[i]<min then 
    begin
      min:=a[i];
      pos_min:=i;   
    end;
  end;
  a[pos_min]:=max;
  a[pos_max]:=min;
  for i:=1 to n do write(a[i], ' ');
  readln;
end.

не проверял.