Вопрос № 122075: Помогите пожалуйста!!!Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значение переменных А и В вводятся с клавиатуры)...Вопрос № 122093: Дана матрица целых чисел A[7x10]. эти элементы считывают с файла. найти количество чисел в интервале 0-9. в интервале 10-19 и в интервале 20-30. начертить матрицу и результаты...Вопрос № 122099: здраствуйте, тут завал,
помогите пожалуйста.
по данной формуле Y=cosX вычислить все значения Y, если X принадлежит интервалу [-4;4] и меняется с шагом 0.1. результаты вывести на экран и в текстовой фаил...Вопрос № 122113: Уважаемые эксперты прошу помочь!!!
1)Шахматное поле задано звездочками и пробелами,задано начальное и конечное положение короля,нужно определить за какое минимальное кол-во ходов можно дойти из одной точки в другую?...Вопрос № 122176: Уважаемые эксперты, подскажите пожалуйста как в Паскале можно реализовать таблицу, в которой содержатся сттолбцы со словами и столбцы с цифрами так, чтобы потом можно было с ней работать (сортировать по названию, перемножать столбцы с численными знач...
Вопрос № 122.075
Помогите пожалуйста!!!Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значение переменных А и В вводятся с клавиатуры)
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Бекмансуров Рамиль Рашидович!
В приложении Ваша программа. Удачи!
Приложение:
--------- И только наступив на грабли мы приобретаем драгоценный опыт!
Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 07.02.2008, 13:07 Оценка за ответ: 5
Отвечает: Евчик Сергей Александрович
Здравствуйте, Бекмансуров Рамиль Рашидович! Вот так это можно реализовать в программе. Дерзайте.
var a,b,i,summ:integer;
begin
Writeln('Введите А и В');
readln(a,b);
for i:=a to b do
if i mod 4 = 0 then summ:=summ+i;
Writeln('Сумма = ',summ);
readln
end.
Ответ отправил: Евчик Сергей Александрович (статус: 2-ой класс)
Ответ отправлен: 07.02.2008, 13:08 Оценка за ответ: 5
Отвечает: XRUST
Здравствуйте, Бекмансуров Рамиль Рашидович!
program asd;
var
i,a,b,sum:integer;
begin
sum:=0;
readln(a,b);
for i:=a to b do
if (i mod 4=0) then sum:=sum+i;
writeln(sum);
end.
Ответ отправил: XRUST (статус: 1-ый класс)
Ответ отправлен: 10.02.2008, 18:47
Вопрос № 122.093
Дана матрица целых чисел A[7x10]. эти элементы считывают с файла. найти количество чисел в интервале 0-9. в интервале 10-19 и в интервале 20-30. начертить матрицу и результаты
Отправлен: 07.02.2008, 14:52
Вопрос задал: Fil Prok (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Verena
Здравствуйте, Fil Prok !
Поскольку Вы не указали, из какого файла надо считывать данные, предположим, что из текстового, поскольку такой файл можно легко зоздать вручную. Пусть формат данных будет таким: в файле должно быть 10 строк по 7 целых чисел, разделённых пробелом (т.е. например 1 2 3 4 5 6 7). Если чисел не хватает - ошибкой не считается, если их слишком много - сообщается об ошибке. Решение в приложении.
Приложение:
--------- Эта история - не для истории, понимаешь?
Ответ отправила: Verena (статус: Студент)
Ответ отправлен: 07.02.2008, 16:23 Оценка за ответ: 5
Вопрос № 122.099
здраствуйте, тут завал, помогите пожалуйста.
по данной формуле Y=cosX вычислить все значения Y, если X принадлежит интервалу [-4;4] и меняется с шагом 0.1. результаты вывести на экран и в текстовой фаил
Отправлен: 07.02.2008, 15:12
Вопрос задал: Fil Prok (статус: Посетитель)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Verena
Здравствуйте, Fil Prok !
Задача решается элементарно, смотрите в приложении.
Приложение:
--------- Эта история - не для истории, понимаешь?
Ответ отправила: Verena (статус: Студент)
Ответ отправлен: 07.02.2008, 15:34 Оценка за ответ: 5
Отвечает: Евчик Сергей Александрович
Здравствуйте, Fil Prok !
var x,y:real
f:text;
begin
x:=-4;
assign(f,'<путь к файлу>');
repeat
append(f);
x:=x+0.1;
y:=cos(x);
Writeln(y);
Write(f,y);
close(f);
until x=4;
end.
Но файл нужно создать заранее! Или использовать за циклом сперва ReWrite(f)-(Создает и открывает новый файл) а в цикле снова append. Дерзайте
Ответ отправил: Евчик Сергей Александрович (статус: 2-ой класс)
Ответ отправлен: 07.02.2008, 15:41 Оценка за ответ: 5
Отвечает: Шемет Станіслав Васильович
Здравствуйте, Fil Prok !
var
x,y:real;
f:text;
begin
assign(f.'D:dat.txt');
rewrite(f);
x:=-4;
repeat
y:=cos(x);
writeln(f,y);
writeln(y);
x:=x+0.1;
until x=4;
close(f);
readln;
end.
Ответ отправил: Шемет Станіслав Васильович (статус: 1-ый класс)
Ответ отправлен: 07.02.2008, 21:43 Оценка за ответ: 5
Вопрос № 122.113
Уважаемые эксперты прошу помочь!!!
1)Шахматное поле задано звездочками и пробелами,задано начальное и конечное положение короля,нужно определить за какое минимальное кол-во ходов можно дойти из одной точки в другую?
Решается данная задача динамикой program asd; const maxn=10; var find,yes:bool; {неверный тип переменных, нет такого типа в Pascal-e.} find,yes:boolean;
sum:integer; m:array [1..maxn,1..maxn]; {отсутствует тип элементов массива} g,x1,y1,x2,y2:integer; begin readln(x1,y1,x2,y2); for y:=1 to maxn do for x:=1 to
maxn do m[x][y]:=0; {явно обращение к элементу массива в стиле С++} yes:=false; m[x1][y1]=1; g:=1; sum:=0; find:=false; while(!yes)and(!find) do {опять конструкция из С++} while(not yes)and(not find) do begin yes:=true;
for y:=1 to maxn do for x:=1 to maxn do begin if (m[x][y]=g)and(x=x2)and(y=y2) then fin
d:=true; else if (m[x][y]=g) begin inc(sum); inc(g); yes:=false; if (x-1>=1) then m[x][y]:=g; if (x+1<=maxn) then m[x+1][y]:=g; if (y-1>=1) then m[x][y-1]:=g; if (y+1<=maxn) then m[x][y+1]:=g; end; end; end; writeln(sum) end.
Ответ отправил: XRUST (статус: 1-ый класс)
Ответ отправлен: 08.02.2008, 11:54
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Shtamburg Andrew!
Программа в приложении.
Принцип такой вычисляется разность между координатами и берется максимальная из них. Для наглядности:
--------- И только наступив на грабли мы приобретаем драгоценный опыт!
Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 08.02.2008, 16:10
Вопрос № 122.176
Уважаемые эксперты, подскажите пожалуйста как в Паскале можно реализовать таблицу, в которой содержатся сттолбцы со словами и столбцы с цифрами так, чтобы потом можно было с ней работать (сортировать по названию, перемножать столбцы с численными значениями). Заранее благодарю!
С уважением, Елена.
Отвечает: Nazar__D
Здравствуйте, Полозова Елена Сергеевна!
Для этого следует пользоваться типом данных record.
Он евляет собой своего рода массив, но как бы со "столбцами" - полями. Пример кода с использованием рекорда - ниже. Чтоб обратится к элементу рекорда, следует писать так:
<название структуры>.<имя поля>, например в коде - a[i].number. Очень полезная штука. Советую разобраться. Если чё непонятно - пишите!
program Rec;
type
Stroka = record
name: string[10];
number: integer;
end;
var
a: array [1..10] of Stroka;
i: integer;
begin
for i:=1 to 10 do begin
write('Enter line: ');
readln(a[i].name);
write('Enter number: ');
readln(a[i].number);
end;
for i:=1 to 10 do
writeln(a[i].name,' ',a[i].number);
readln;
end.
--------- Я - українець!
Ответ отправил: Nazar__D (статус: 3-ий класс)
Ответ отправлен: 08.02.2008, 01:38 Оценка за ответ: 5
Отвечает: Евчик Сергей Александрович
Здравствуйте, Полозова Елена Сергеевна! Думаю записи вам помогут! Хотя если у Вас с ними проблемы(с записями) можно попробовать реализовать это все с массивами.
