Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Turbo Pascal Ввести текст произвольной длины и распечатать его в обратном порядке https://www.cyberforum.ru/ turbo-pascal/ thread335647.html
1.Ввести текст произвольной длины и распечатать его в обратном порядке. 2.Определить сколько раз в введённом тексте встречается слог еле. 3.Определить разницу между самым высоким и самым низким учеником в класе . Организовать ввод значений с клавиатуры. 		Turbo Vision и ошибка 'Unknown identifier' Turbo Pascal
Недавно я начал изучать Turbo Vision. Дошел до StatusLine, пишу код: uses App, Objects, Drivers, Menus Type TMyApp = object(TApplication) procedure InitStatusLine; virtual; end; var MyApp:TMyApp procedure TMyApp.InitStatusLine; var R:TRect;
Turbo Pascal Распечатать на экране 15 случайных чисел в диапазоне от 10 до 50 Распечатать на экране 15 случайных чисел в диапазоне от 10 до 50 https://www.cyberforum.ru/ turbo-pascal/ thread335460.html Turbo Pascal В введённом тексте вставить букву а после всех букв т https://www.cyberforum.ru/ turbo-pascal/ thread335455.html
2.В введённом тексте вставить букву а после всех букв т .
Заменить в введённом тексте слог ан на он Turbo Pascal
Заменить в введённом тексте слог ан на он 		Turbo Pascal Где ошибка Ввести m, n. Вывести квадраты чисел от m до n включительно. uses crt; var a:array of integer; m,n,i:integer BEGIN clrscr; write('Введите два числа через пробел'); read(m,n); for i:=m to n do https://www.cyberforum.ru/ turbo-pascal/ thread335382.html
Turbo Pascal Ввод имени и директории файла https://www.cyberforum.ru/ turbo-pascal/ thread335263.html
Достаточно глупый вопрос. Можете подсказать, как сделать, чтобы при записи в файл было необходимо дать ему имя и выбрать директорию записи? Файл текстовый. 		Определить количество 5,20 и 50 копеечных монет, необходимое для набора суммы 4 рубля Turbo Pascal
Определить количество 5, 20 и 50 копеечных монет, необходимое для набора суммы 4 рубля. При условии, что общее количество монет должно быть равно 20. заранее спасибо
Turbo Pascal Найти в списке служащих на предприятии работника, у которого наименьшая заработная плата https://www.cyberforum.ru/ turbo-pascal/ thread335209.html
Найти в списке служащих на предприятии работника, у которого наименьшая заработная плата. Если заработная плата меньше 4-х прожиточных минимумов, то добавить 50 % от этого прожиточного минимума. 		Turbo Pascal Построить функцию sin(x), используя сетку графики https://www.cyberforum.ru/ turbo-pascal/ thread335139.html
Пожалуйста помогите решить некоторые задачи: 1.Вычислить и построить функцию sin(x), используя сетку графики. 2.В введенной с клавиатуры матрице n*n вычислить определитель и алгебраическое дополнение. 3.Используя усечение delete, в введенном с клавиатуры массиве фамилий определить фамилии на заданную конкретную букву поиска. Список вывести на печать.
Из трех чисел вывести среднее по величине Turbo Pascal
Ввести три числа. Вывести среднее из них, т.е. то, которое располагается между минимальным и максимальным. Хотел сделать что-то типа этого: uses crt; var a,b,c:integer; BEGIN clrscr; read(a,b,c); 		Turbo Pascal Все отрицательные элементы массива заменить на их абсолютные значения Все отрицательные элементы массива A,P,R,T,Q,F заменить на их абсолютные значения, результат записать в те же файлы. https://www.cyberforum.ru/ turbo-pascal/ thread334984.html
0 / 0 / 1
Регистрация: 22.07.2011
Сообщений: 5
24.07.2011, 01:33 0

Определить разницу между самым высоким и самым низким учеником в класе . Организовать ввод значений с клавиатуры. - Turbo Pascal - Ответ 1862851

24.07.2011, 01:33. Показов 2409. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено MrRap как решение

Решение

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
30
31
32
33
34
35
36
37

const n=5;    {//n - количество учеников}
 
type spus=array[1..n] of real;
 
var d:spus;
    rezult:real;
 
procedure wod_rost(var d:spus);  {ввод данных через клавиатуру}  
var i:integer;                     
begin
writeln('vvedite rost y4enikov klassa') ;
for i:=1 to n do
readln(d[i]);
writeln('================================');
end;
 
procedure razn(d:spus);   {определяет минимальное и макс значение роста, выводит результат }
var max,min:real;
    i:integer;
begin
min:=d[1];
max:=d[1];
for i:=2 to n do
  begin
  if d[i]<min then
      begin min:=d[i];    end;
  if d[i]>=max then max:=d[i];
  end    ;
  writeln('raznica>',(max-min):5:3)
end;
 
 
begin
Wod_rost(d);
razn(d);
readln
end.


Вернуться к обсуждению:
Определить разницу между самым высоким и самым низким учеником в класе . Организовать ввод значений с клавиатуры. Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 24.07.2011, 01:33
Готовые ответы и решения:

Вычислить средний рост студентов и разность в росте между самым высоким и самым низким студентом
Одномерный массив вещественных чисел R75 содержит данные о росте группы студентов. Массив заполнить...

Определить разницу в возрасте между самым старшим и самым младшим из заданного списка
3. В массиве хранятся года рождения некоторого числа людей. Составьте программу, которая определит...

Написать пргограмму, определяющую разницу в возрасте между самым молодым и самым старым сотрудником кафедры.
Профессор Петечкин вывел формулу, по которой можно определить возраст любого из n сотрудников...

Определить, сколько элементов между самым большим отрицательным числом и самым маленьким положительным
Подскажите в чем проблема! Код определяет самое большое отрицательное число и самое маленькое...

1
24.07.2011, 01:33
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 24.07.2011, 01:33
Помогаю со студенческими работами здесь

Определить,сколько элементов массива располагается между самым большим и самым маленьким элементами являющимися простыми числами
Определить,сколько элементов массива располагается между самым большим и самым маленьким элементами...

Найти разницу в росте между высоким и низким футболистом команды
помогите пожалуйста решить задачу:cry: Найти разницу в росте между высоким и низким футболистом...

Разница между самым большим числом и самым маленьким за определенный период
Сама задача: Посчитать разницу между самым большим числом и самым маленьким за определенный...

Есть три числа. Найти среднее среди них (то есть число которое лежит между самым большим и самым маленьким)
Сделайте пожалуйста задачу. Сама задача ниже: Есть три числа. Найти среднее среди них (то есть...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru