Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.11.2015, 19:26   #1
Дарья1111
Новичок
Джуниор
 
Регистрация: 10.11.2015
Сообщений: 1
По умолчанию помогите пожалуйста

1. Напечатать таблицу перевода температуры из градусов по шкале Цельсия в градусы шкалы Фаренгейта для значений от М градусов до N грвдусов с шагом k градусов. перевод осуществляется по формуле F=1.8*C+32. В турбо паскале
2. в массиве A(n) подсчитать количество минимальных элементов. тоже в турбо паскале
Дарья1111 вне форума Ответить с цитированием
Старый 10.11.2015, 20:37   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
1. Напечатать таблицу перевода температуры из градусов по шкале Цельсия в градусы шкалы Фаренгейта для значений от М градусов до N грвдусов с шагом k градусов. перевод осуществляется по формуле F=1.8*C+32. В турбо паскале
Код:
const n=100;k=0.0001;
var m:real;
begin
  m:=-100;
  writeln('Цельсий':20,'Фаренгейт':20);
  while m<=n do begin   writeln(m:20:5,(1.8*m+32):20:5); m:=m+k; end;
  Readln;
end.
Цитата:
в массиве A(n) подсчитать количество минимальных элементов.
Код:
const n=2; a:array[1..n] of integer=(1,2);
var i,m,c:integer;
begin
 for i:=1 to n do if (i=1) or (a[i]<m) then m:=a[i];
 for i:=1 to n do if (a[i]=m) then inc(c);
 Write('Минималочек: ',c);
 Readln;
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите создать програму для роботы с файлами, пожалуйста помогите нужно очень срочно Сергей Человек Фриланс 3 06.07.2009 19:30
Помогите Помогите Пожалуйста Решить Одну Задачку в Паскале!!! VisTBacK Помощь студентам 6 19.09.2008 13:44