|
Решения задач на Паскале!Срочно нужно!
|
|
Решите пожалуйста((
1)Заданную строку А перепишите в обратном порядке в строку В.
и
2)Найдите самое длинное и самое короткое слово в заданном предложении
|
|
|
|
помоги тебе пожалуйста,очень срочно нужно....(по теме файлы)
Задание1. Запишите в файл исходных данных числовой двумерный массив.
Задание 2. Напишите программу, изменяющую в файле исходных данных из задания 1 элементы, соответствующие вашему варианту (файл в оперативную память не читать):
2. третий столбец;
Задание 3. Прочитать из полученного файла элементы, соответствующие вашему варианту (весь файл в оперативную память не читать):
2. элементы (1;3) и (3;3);
Задание 4. Создать текстовый файл (3-4 строки). Дописать в конец файла 2 строки. Вывести на монитор исходный и полученный файлы.
|
|
|
|
Есть специальный раздел работы с файлами в ТП, найти можешь на сайте, там есть примеры такие-же
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Уважаемые знатоки)) нужна ваша помощь есть программа
Quote Program ABC;
var
A:array[1..50,1..50]of integer;
B:array[1..50,1..50]of integer;
C:array[1..50]of integer;
max,d,n,m,s,i,j:integer;
begin
writeln('Введите n,m');
readln(n,m);
writeln(‘Как будем вводить1 – с клавиатуры,2 – генератором случайных чисел');
readln(d);
if d=1 then
begin
for i:=1 to n do
begin
for j:=1 to m do
read(A[i,j]);
readln
end;
end
else
begin
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
A[i,j]:=10-random(20);
end;
writeln;
end;
end;
max:=A[i,j];
for i:=1 to n do
for j:=1 to m do
if(A[i,j]>max)then
max:=A[i,j];
for i:=1 to n do
for j:=1 to m do
B[i,j]:=A[i,j]*max;
for i:=1 to n do
for j:=1 to m do
if i=j then (C[i]=B[i,j])
for i:=1 to n do
for j:=1 to m do
if(C[j]>C[j+1]) then
begin
s:=C[j+1];
C[j]:=s;
end;
writeln('Полученная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
write(B[i,j],' ');
writeln;
end;
writeln('Полученный вектор:');
for i:=1 to n do
write(C[i],' ');
end.
была введена в паскаль, раза два я вводила значения она работала, теперь когда ввожу матрицуне работает пишет ошибка проверки диапазона вот в этом месте A[i,j]:=10-random(20);, может кто знает что с ней не так? могу скинуть файл паскаль
|
|
|
|
|
а ты бы не мог,пожалуйста,написать ссылку на этот раздел именно,а то здесь много информации по поводу файлов....зарание спасибо
|
|
|
|
Привет всем :)
Помогите решить задачу.
Написать модуль программы в delphi.
Вот сама задача.
Дан числовой ряд от A до B, нужно все числа которые делются
на 4 вывести на экран.
|
|
|
|
Quote (babenok_kseniya) а ты бы не мог,пожалуйста,написать ссылку на этот раздел именно,а то здесь много информации по поводу файлов....зарание спасибо
Где самостоятельность?)
Это тебе нужно - ты и ищи)
Если бы нужно было бы мне - то я нашёл бы, тем-более зная, что вся инфа тут есть)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (darkle) Привет всем :) Помогите решить задачу. Написать модуль программы в delphi. Вот сама задача. Дан числовой ряд от A до B, нужно все числа которые делются на 4 вывести на экран.
Это в раздел Делфи нужно написать
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Даны координаты трех вершин треугольника, Найти его площадь и периметр.
( по всей вероятности координаты этих вершин нужно получать рандомно, или черт его знает)
Если есть такая возможность то сделать так, чтоб координаты этим точкам можно было задавать самостоятельно в уже готовой задаче.
Заранее спасибо, если кто-то поможет...
|
|
|
|
Помогите получить допуск к сессии.
В файле находиться список учащихся всей школы фамилия, класс и т.д , надо вывести список учащихся сортированы по классам с 1 по 11.
type
reals = file of real;
var f: reals;
Опишите рекурсивную функцию sum без параметров для
нахождения суммы элементов файла f.
программу написал но не могу понять где ошибка.
reals = file of real;
var f:reals;
y,n,s:real;
function sum( f:reals):integer;
var
sum,x:integer;
begin
sum:=0;
while not eof(f) do
begin
read(s,x);
if x<>0 then sum:=sum+x
end;
end;
begin
assign (f,'sum.txt');
rewrite(f);
close(f) ;reset(f);
n:=sum(f);
writeln(' n=',n:10:3);
readln;
close(f);
end.
сумма элементов файла n=1954051118.000
Заранее спасибо.
№ 530 | Автор: M@RECS |
2012-06-03, 09:54 | Изменено: M@RECS - Вс, 2012-06-03, 12:01
|
Репутация: [ + 0 ]
|
|
|
|
а где ошибка?)
ты напиши хоть в какой строке что выдаёт - поможем:)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
дописал после программы он выводит это значение хотя файл пуст
|
|
|
|
Как показывает мой опыт:
Если код не работает - выкинь его и напиши заново)
Попробуй - обычно раза с 3-8 получается отлично)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
помогите написать программу
Составьте программу для вывода таблицы умножения целых чисел от 1 до 9 на любое целое число, которое вводится с клавиатуры
|
|
|
|
var
a:integer;
begin
read(a);
writeln(a*9);
end.
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
А Вы 541 сообщение пропустили или просто помочь не сможете?? =(
Найти бы бесплатный самоучитель по программированию %)
|
|
|
Найти бы бесплатный самоучитель по программированию %)
|
|
|
|
Quote (Berestovskiy) var
a:integer;
begin
read(a);
writeln(a*9);
end.
тут через for to do вроде надо было
|
|
|
|
Помогите пожалуйста решить задачку в паскале)))0очень надо,а сам не могу догнать как их решать)))
Дан целочисленный двумерный массив А,состоящий из N строк и M столбцов.найти сумму элементов в тех столбцах,которые не содержат отрицательных элементовДобавлено (04.06.12, 09:38)
---------------------------------------------
Дан целочисленный двумерный массив А,состоящий из N строк и M столбцов.Определить произведение элементов в тех столбцах,которые не содержат отрицательных элементов.
|
|
|
|
Quote (Oki) А Вы 541 сообщение пропустили или просто помочь не сможете?? =(
Напиши ещё раз задание
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
помогите написать программу c помощью циклических операторов
Составьте программу для вывода таблицы умножения целых чисел от 1 до 9 на любое целое число, которое вводится с клавиатуры
|
|
|
|
