Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Текстовые файлы :cry: в общем вот задание Текстовый файл содержит список фамилий. Создать другой текстовый файл, содержащий отсортированный список фамилий. Вот то что у меня получилось...но работает криво https://www.cyberforum.ru/ turbo-pascal/ thread411724.html	Даны действительные числа x, y. Получить min(x,y). Turbo Pascal Даны действительные числа x, y. Получить min(x,y).
Turbo Pascal Вычесть из положительных элементов 5, к отрицательным прибавить 2, нулевые элементы оставить без изменения. Дан двумерный массив чисел. Вычесть из положительных элементов 5, к отрицательным прибавить 2, нулевые элементы оставить без изменения. Вывести новый массив на экран. https://www.cyberforum.ru/ turbo-pascal/ thread411718.html	Turbo Pascal Составьте программу вычисления суммы всех двузначных чисел https://www.cyberforum.ru/ turbo-pascal/ thread411717.html Составьте программу вычисления суммы всех двузначных чисел с помощью модуля. В модуле организовать работу цикла.
Составьте программу для создания двумерного массива Turbo Pascal Составьте программу для создания двумерного массива (20x15) целых чисел и позволяющую найти сумму всех его четных элементов.	Turbo Pascal Составьте программу, в которой будет производиться деление и умножение чисел a,b. Составьте программу, в которой будет производиться деление и умножение чисел a,b. Расчеты организовать в отдельных модулях. https://www.cyberforum.ru/ turbo-pascal/ thread411712.html
Turbo Pascal Составить блок схему Дан файл, компоненты которого являются действительными числами. Найти сумму компонент файла. Составить блок схему https://www.cyberforum.ru/ turbo-pascal/ thread411710.html	Задача на одномерные массивы. Turbo Pascal Задача на одномерные массивы. Задан массив Z(12).Каждое второе число массива, если оно не равно нулю перемножить, каждое число массива , если оно равно нулю или меньше нуля переписать в новый массив. Пример массива Z(12): 0,-5.3,-3.5,0,4,4.7,0,2.8,7,-3,7,-2.5,0. Помогите пож ..
Turbo Pascal Составьте программу, позволяющую для заданного одномерного массива вычислить и напечатать сумм Составьте программу, позволяющую для заданного одномерного массива вычислить и напечатать сумму, произведение и количество его отрицательных элементов. https://www.cyberforum.ru/ turbo-pascal/ thread411708.html	Turbo Pascal Составьте программу, в которой будет производиться сложение и вычитание чисел a,b. https://www.cyberforum.ru/ turbo-pascal/ thread411707.html Составьте программу, в которой будет производиться сложение и вычитание чисел a,b. Расчеты организовать в отдельных модулях.
Turbo Pascal Помогите решить задачу в Turbo Pascal на тему двумерные массивы В матрице Z (4.5) найти сумму элементов в тех столбцах, которые начинаются с нуляя, этой суммой заменить нулевой элемент. Пример матрицы Z(4.5) -2 0 4 0 0 3 15.2 2.7 -5 4 -5.7 -2 0 2.3 -2.4 8.3 -3 0 -0.5 -0.25	Turbo Pascal Вычесть из четных элементов 5, к нечетным прибавить 2, нулевые элементы оставить без изменения https://www.cyberforum.ru/ turbo-pascal/ thread411705.html Дан двумерный массив чисел. Вычесть из четных элементов 5, к нечетным прибавить 2, нулевые элементы оставить без изменения. Вывести новый массив на экран

Tonop_0

0 / 0 / 1

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

Сообщений: 51

27.12.2011, 16:59 [ТС]

Формат вывода - Turbo Pascal - Ответ 2334755

27.12.2011, 16:59. Показов 1945. Ответов 2

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

Ответ

немного не в тему, но вот посмотрите пожалуйста, что не так с эти кодом

Pascal

program pro91;
type matr=array[1..10,1..10] of integer;
var
n,m,p,o,i,j:byte;
a,b:matr;
min1,min2:integer;
procedure W(l,k:byte; var x:matr);
begin
writeln ('Введите массив ',l,'*',k);
for i:= 1 to l do
for j:= 1 to k do read (x[i,j]);
end;
procedure Y(l,k:byte;x:matr; var min:integer);
begin
min:=x[1,1];
for i:=1 to l do
for j:=1 to k do
if min>x[i,j] then min:=x[i,j];
writeln ('min=', min);
end;
begin
writeln ('Введите n,m');
readln (n,m);
W(n,m,a);
Y(n,m,a,min1);
writeln ('Введите p,o');
readln (p,o);
W(p,o,b);
Y(p,o,b,min2);
end.

ошибка: Program1.pas(10) : Переменная цикла for должна описываться в том же блоке, что и цикл for

Вернуться к обсуждению:
Формат вывода Turbo Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

27.12.2011, 16:59

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

Формат вывода, типы данных

Формат вывода вещественного числа
народ помогите как сделать так чтобы ответ выводился с точностью 0,00001 Program G; var...

Формат вывода
Доброго времени, необходимо вывести "красиво" результаты 1200 624.2857 1939,428 Я так понимаю...

Формат вывода
Ребятки всем привет... Подскажите пожалуйста, кто может.... Такая проблема у меня, мне нужно...

	27.12.2011, 16:59

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

27.12.2011, 16:59

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

Формат вывода
Здравствуйте, уважаемые форумчане! Помогите, пожалуйста, исправить вывод, чтобы табличка ровненькой...

Неправильный формат вывода
Добрый день! Задание: Напишите программу, которая заполняет массив из N элементов случайными...

Формат вывода double
Всем привет! В своей программе вывожу переменные типа double следующим образом: std::cerr <<...

Формат вывода из ком
http://clip2net com/s/3zcT3jA вид в arduino http://clip2net com/s/3zcT4XT вид в delphi...

Наверх