VPF::помогите горюююююю - Форум программистов

sabrina

Дата 23.12.2005, 20:42 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 7
Всего: 42

Цитата(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 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 7
Всего: 42

Цитата(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 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 7
Всего: 42

Цитата(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 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

mvdr

Дата 26.12.2005, 00:26 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 7
Всего: 42

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

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

sabrina

Дата 27.12.2005, 21:26 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Albinos_x

Дата 27.12.2005, 21:53 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108

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

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

mvdr

Дата 28.12.2005, 08:33 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 7
Всего: 42

sabrina

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

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

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

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Sabrina

Дата 30.12.2005, 20:31 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

sabrina

Дата 30.12.2005, 21:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 30.12.2005

Репутация: нет
Всего: нет

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

mvdr

Дата 31.12.2005, 08:53 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

Репутация: 7
Всего: 42

sabrina

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

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

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

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Rick

Дата 31.12.2005, 10:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 122
Регистрация: 4.11.2005
Где: Новосибирск

Репутация: 2
Всего: 3

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.

не проверял.

Это сообщение отредактировал(а) Rick - 31.12.2005, 10:40

--------------------

Не бывает атеистов в окопах под огнем

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »