Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal сложная задача см.вложение https://www.cyberforum.ru/ turbo-pascal/ thread1868750.html	Программа ищет сумму ряда и количество учтенных слагаемых, нужно также чтобы искала значение функции Turbo Pascal здравствуйте. помогите пожалуйста доработать программу. она ищет сумму ряда и количество учтенных слагаемых, нужно также чтобы искала значение функции. помогите кому не трудно program prog5; const e=0.001; var x, sum, a : double; n : Integer; function fact(x:byte):real; begin if x=0 then fact:=1
Turbo Pascal Найти среднее значение положительных компонентов каждой диагонали произвольной матрицы. Найти среднее значение положительных компонентов каждой диагонали произвольной матрица. Отобразить все в отдельных окнах. Применить защиту от неправильного ввода компонентов. Program p_1; uses crt; var a,b:array of integer; i,j,k,n,m,s:integer; sr:real; begin s:=0; clrscr; write('n ');write('m '); https://www.cyberforum.ru/ turbo-pascal/ thread1868320.html	Turbo Pascal Записать уравнение https://www.cyberforum.ru/ turbo-pascal/ thread1868121.html Как записать в Паскале lg( x + 5) = cos x
Доработать систему обработки данных однотабличной базы Turbo Pascal Помогите с дописать модуль Unit DataBase; Interface const MAXNUMBER=11; MAXNAME=25; Type TSysDate=class //тип номера зачетной книжки TNumber : String;	Turbo Pascal Вычисление таблицы значений суммы S(x) и функции Y(x) в произвольном диапазоне Составить программу вычисления таблицы значений суммы S(x) и функции Y(x) в произвольном диапазоне изменения аргумента x с произвольным шагом h. ////// n S(x)=∑(-1)^k(2k)^2k/(2k)! , y(x)=2(cosx-1); ////// k=1 плииз хелп https://www.cyberforum.ru/ turbo-pascal/ thread1868056.html
Turbo Pascal Составить код программы для решения задачи в TurboPascal 7.0 https://www.cyberforum.ru/ turbo-pascal/ thread1868051.html Всем добрый день. Помогите пожалуйста составить код программы для решения задачи в TurboPascal 7.0. В ответах мейл ру прислали часть кода: " if a=0 then b:=0 else b:=2.1*a; " Но как правильно составить задачу я к сожалению не знаю. Всем огромное спасибо, кто откликнется! Задание: Вещественную матрицу A(3;4) преобразовать в матрицу B(3,4) по правилу: b_{ij}=\begin{cases}a_{ij} &...	Если сумма элементов массива > 0, переписать в массив В положительные элементы, иначе – отрицательные Turbo Pascal Ввести массив А(n). Найти сумму элементов массива. Если она >0, переписать в массив В положительные элементы, иначе – отрицательные. Сумму и новый массив В распечатать.
Turbo Pascal Если последний элемент массива отрицательный, то заменить его max значением среди всех положительных элементов https://www.cyberforum.ru/ turbo-pascal/ thread1867931.html Ввести массив вещественных чисел В(n). Если последний элемент массива отрицательный, то заменить его max значением среди всех положительных элементов. Иначе – сделать сообщение. Массив распечатать.	Turbo Pascal Табулирование функции Дана функция f(x)= x2-25. х. Найти среднее арифметическое SA значений f(x). Шаг по х=0.5. Если SA>=1.5, то отпечатать его, в ином случае – «0». https://www.cyberforum.ru/ turbo-pascal/ thread1867920.html
Не считывается переменная из файла Turbo Pascal Файл переменных типа записи. При выполнение строки {*} Компилятор выдает ошибку. type tkniga = record iz : string; fam : string; kn : string; tir : real48; var kniga : tkniga; fv : file of tkniga;	Turbo Pascal Преобразование элементов массива в шестнадцатеричную систему счисления Приветствую, надо написать программу: Дан массив строк, каждый элемент которого (строка длиной 4 символа) может быть интерпретирован как целое двоичное число без знака. Разработать программу преобразования представления значений элементов массива в шестнадцатеричную систему счисления. Спасибо https://www.cyberforum.ru/ turbo-pascal/ thread1867862.html

Puporev

Почетный модератор

64303 / 47600 / 32742

Регистрация: 18.05.2008

Сообщений: 115,181

05.12.2016, 13:14

Поход в музей. - Turbo Pascal - Ответ 9855203

05.12.2016, 13:14. Показов 1613. Ответов 5

Метки (Все метки)

Ответ

Pascal

var n,i,v,s:integer;
    f:text;
begin
assign(f,'input.txt');//файл в папке с программой
reset(f);
read(f,n);
s:=0;
for i:=1 to n do
 begin
  read(f,v);
  if (v>10)and(v<19) then s:=s+50
  else if v>18 then s:=s+100;
 end;
close(f);
assign(f,'output.txt');
rewrite(f);
writeln(f,s);
close(f);
end.

Вернуться к обсуждению:
Поход в музей. Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

05.12.2016, 13:14

Готовые ответы и решения:

Поход
Ограничение по времени: 1 секунда ограничение по памяти: 64 мегабайта стас собрался в поход и...

Музей
В одной из комнат музея установлена электронная система, которая регистрирует время прихода и...

Поход
В новой игре Atod 2 наш герой (суперкрип) Serega решил убить босса. Serega хочет взять с собой...

поход к клиенту
Здравствуйте завтра утром я должен ехать к клиенту для разработки софта, и нужно расспросить его,...

	05.12.2016, 13:14

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

05.12.2016, 13:14

Помогаю со студенческими работами здесь

Меняю поход в боулинг на 1 час
Меняю 1 час боулинга на одной дорожке стоимостью 690 рублей в развлекательных комплексах пн-чт...

Музей
Группа студентов и школьников собирается в музей. Для школьников до 10 лет (включительно) вход в...

БД Музей
Надо создать три таблици которев будущем будут связаны с формами делфи помогите какие таблицы...

Решить задачу про поход в кино
Добрый вечер! Задание: Семья состоит из отца,матери и сыновей A,B,C. Они собираются в кино, но при...

Наверх