Экзамен. Паскаль. Несколько задач

@_ЕГОР_ · Регистрация: 26.02.2010

Студворк — интернет-сервис помощи студентам

Помогите плиз решить задачи по паскалю. Очень надо. Сессия горит у подруги из за одного программирования.
Вот задачки:

@nadyush-princes · 22.02.2012, 11:58

на работоспособность не проверяла. первая.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses crt;
var a,b,c,sum,F:real;
    max,min,min2,max2:real; //max=max(a,b,c) min=min(a,b,c) min2=min(a,b) max2=max(a,c)
    
Begin
  writeln('Âû÷èñëåíèå çíà÷åíèÿ ôóíêöèè.');
  writeln('Ââåäèòå çíà÷åíèÿ ïàðàìåòðîâ');
  write('a -> '); readln(a);
  write('b -> '); readln(b);
  write('c -> '); readln(c);
  sum:=a+b+c;
  max:=0; min:=0; max2:=0; min2:=0;
  if a>=b then begin
    max:=a;
    min:=b;
    end else begin
    max:=b;
    min:=a;
    min2:=a;
    end;
    if max<c then max:=c;
    if min>c then min:=c;
    if a>=c then max2:=a;
  
  if (sum<45) then F:=max/min2;
  if (sum>55) then F:=min/max2;
  if (sum>45) and (sum<55) then F:=max+min;
  writeln('a+c+b=',sum,' ,ïðè a=',a,', b=',b,', c=',c,', F=',F)
End.

@Puporev · 22.02.2012, 12:14

Комментарий модератора

_ЕГОР_, Почитайте с подругой на досуге Правила форума. У нас вообще-то не разрешается посылать по ссылкам на файлопомойки, изображения следует загружать в тему, как, читайте это
https://www.cyberforum.ru/abou... 03521.html
Второе, один вопрос, 1 одна тема.
А посему ваше творчество удаляю, действуйте по Правилам.

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@_ЕГОР_ Тест 383 / 162 / 57 Регистрация: 26.02.2010 Сообщений: 1,245

	Экзамен. Паскаль. Несколько задач 21.02.2012, 20:21. Показов 2415. Ответов 2 Метки нет (Все метки) Помогите плиз решить задачи по паскалю. Очень надо. Сессия горит у подруги из за одного программирования. Вот задачки: 0

Экзамен. Паскаль. Несколько задач

Решение