Помогите пожалуйста решить задачи через турбо паскаль

Ответить
RenFAn
Сообщения: 1
Зарегистрирован: 15 мар 2010, 15:46

Ребята помогите пожалуйста с решением задач через турбо паскаль я восемь сделал и их не стал тут писать а остальные не как не получается
Работа с двумерными массивами:
1 Дана матрица размера 5 x 9. Найти суммы элементов всех ее четных1|нечетных2 строк3|столбцов4.
Работа со строковыми данными:
1 Дана строка. Преобразовать все строчные1|прописные2 латинские3|русские4 буквы в прописные1|строчные2.
2 Дана строка-предложение на русском языке. Вывести самое короткое1|длинное2 слово в предложении (если таких слов несколько, то вывести первое3|последнее4 из них).
Разработка программ, содержащих функции:
Даны действительные числа a, b. Получить
u = min(a, b), v = min(ab, a+b2), min(u + v, 3.14).
Разработка программ с данными типа запись
Известны данные о 16 сотрудниках фирмы: фамилия и отношение к воинской службе (военнообязанный или нет). Напечатать фамилии всех военнообязанных сотрудников.
Разработка программ для работы с файлами
Имеется файл с числами. Найти среднее арифметическое положительных чисел файла
Разработка программ с помощью модуля Graph.
4. Построить график функций:
a. а) y = 4 – x2 на отрезке [-5; 5]
b. б) Изображение
Хыиуду
Сообщения: 2442
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

1. for i:=1 to 5 do for j:=1 to 9 do if (odd/not odd)(i/j) then inc(s, A[i,j]) - в скобках выбирается только одно из двух, написанных через слеш. odd(i) определяет нечетность i, not odd(i) - соответственно четность
2. Смотрите учебник Фаронова, там это разбирается. Плюс разбиение строки на слова (раздел "Алгоритмы") и проверка длины каждого слова (функция length)
3. if a<b then min:=a else min:=b; - вот и вся функция
4. for i:=1 to 16 do if a.military then writeln a.name;
5. Считать в память, просуммировать все положительные, считая их количество, разделить сумму на количество
6. Раздел "Алгоритмы", тема "Построение графика функции" или "Табулирование функции".
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Ответить