|
Решения задач на Паскале!Срочно нужно!
|
|
Помогите решить пожалуйста задачи.
1 Задача)Написать программу, которая читает с клавиатуры произвольнуюстроку символов, преобразует ее и выводит результат на дисплей в виде строки.- Длина строки заранее не вводится, а определяется послеокончания ввода с клавиатуры.
- В строке группы символов разделяются одним или несколькими пробелами. Пробелы
могут находиться в начале и в конце строки. Группа символов -последовательность букв, цифр или знаков, отделенная пробелами от других групп
или находящаяся в начале/конце строки.- Все буквысчитать вводимыми только в нижнем регистре, Заглавные буквы не рассматривать.- В заголовок окна программы записать свои данные: имя,фамилию и номер варианта. Примеры возможных строк: ‘ 12.3 tryi yu ()?*‘, ‘ 6е-1
swty +12_3‘ Напечатать Группы символов, состоящие только из цифр, еслицифры расположены по убыванию.2 Задача)
- Ввести произвольную размерность квадратной матрицы винтервале 1..10.- Предложить ввод данных (чисел целого типа) двумяспособами: 1. Черездатчик случайных чисел на интервале -100..100. - Склавиатуры в виде «Х[i],[j]=», где i и j – числа, соответствующие номеру строки и столбца.- После окончания ввода данных вывести на экранматрицу в отформатированном виде по строкам и столбцам. Например: 2 5 -12 11 18 3 23 -31 72- Обработать данные согласно заданию в варианте ивывести результат.- Если результатами вычислений являются вещественныечисла, то выводить их с точностью до 2-х знаков после точки.
2)Найти среднее арифметическое из всех отрицательных элементов этой матрицы, если онибольше -10.
3 Задача)- Ввести произвольную размерность одномерного массивав интервале 1..10.- Ввести данные (тип данных указан в вариантах) склавиатуры в виде «Х[i]=», где i – индекс элемента.- После окончания ввода для контроля данных вывести наэкран массив. - Обработать данные в подпрограмме (тип подпрограммы испособ обработки указан в вариантах) и вывести результат.- Ввод данных и вывод результатов на экран должныпроизводиться в головной программе, все вычисления – в подпрограммах. Оформить подпрограммы в отдельном модуле.Подключить модуль к головной программе.- Все символьные элементы считать вводимыми только внижнем регистре.- Если результатами вычислений являются вещественныечисла, то выводить их с точностью до 1-го знака после точки.
3) Массив символов. В процедуре отсортировать массивпо алфавиту в обратном порядке.
|
|
|
|
Здраствуйте, помогите пожалуйста с решением шифрования и дешифрования: Методом Цезаря с лозунгом. Использовать русский алфавит, сдвиг на 3 знака, работа с файлами (лозунг и текст брать из файла).
Например:
лозунг: пришел,_увидел,_победил ( "_" - пробел)
текст: ручка
алфавит: абвгдежзийклмнопрстуфхцчшщъыьэюя
алф. лозунга: пришёл,_увдеобагжзйкмнстфхцчщъыьэюя .
шифр: ёеысз
Алфавит лозунга должен получиться из лозунга+алфавит, без повторяющихся букв. Потом берем первую букву текста "Р" и ищем в алф. лозунга соответствующую ей по счету букву (сдвиг +3), получается "ё" и т.д., так и получается шифр.
---------------------------------------------
У меня есть готовый код Шифра Цезаря но я не могу переделать в шифр Цезаря с лозунгом, вот код:
Код unit Unit1;
{$mode objfpc}{$H+}interfaceuses Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, ComCtrls;
type { TForm1 } TForm1 = class(TForm) Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
OpenDialog1: TOpenDialog;
ProgressBar1: TProgressBar;
SaveDialog1: TSaveDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject); private
{ private declarations } public
{ public declarations } end; var Form1: TForm1;
{ TForm1 }procedure TForm1.Button1Click(Sender: TObject);
begin
if form1.OpenDialog1.Execute
then
form1.Edit1.Caption:=form1.OpenDialog1.FileName;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if form1.SaveDialog1.Execute
then
form1.Edit2.Caption:=form1.SaveDialog1.FileName;
end;
procedure TForm1.Button3Click(Sender: TObject);
var f1,f2: file of byte;a,b,c:byte;
fs,fp:int64;
begin
assignFile(f1,form1.Edit1.Text);
reset(f1);
assignfile(f2,form1.Edit2.Text);
rewrite(f2);
fs:=filesize(f1);
while not eof(f1) do
begin fp:=filepos(f1);
read(f1,a);
b:=a+3; write(f2,b);
c:=round(fp/fs*100); form1.ProgressBar1.Position:=c;
end;closefile(f2);
closefile(f1);
end;
procedure TForm1.Button4Click(Sender: TObject);
var f1,f2: file of byte;a,b,c:byte;
fs,fp:int64;
begin
assignFile(f2,form1.Edit1.Text);
reset(f2);
assignfile(f1,form1.Edit2.Text);
rewrite(f1);
fs:=filesize(f2);
while not eof(f2) do
begin
fp:=filepos(f2); read(f2,a);
b:=a-3;
write(f1,b);
c:=round(fp/fs*100); form1.ProgressBar1.Position:=c;
end;
closefile(f2);
closefile(f1);
end;
Нужно сделать точно также как в этой программе только с шифром Цезаря с лозунгом, сделать так же с файлами.
№ 682 | Автор: Jenya |
2013-03-27, 07:05 | Изменено: Jenya - Ср, 2013-03-27, 07:23
|
Репутация: [ + 0 ]
|
|
|
|
Помогите решить задачи по прикладному программированию)))
1)напечатать все значения переменной Х для которых 1<X<2
и прилагается таблица
Х -0.1; 0.05; 0.7; 0.8; -1.5; 0.2; 0.4; -1; 0.1; 1.5;
у 0.1; 0.3; -0.9; 0.2; -0.4; 0.01; 1; 0.25 -0.1 -0.3;
Помогите пожайлуста))
|
|
|
|
что-то задание непонятное какое-то..)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
1. Сформулировать и вывести на печать массив A(25), элементы которогопринадлежат интервалу [-50;20]. Подсчитать среднее арифметическое положительных
элементовю В массиве A поменять местами наибольший и наименьший элементы.
2. Пусть дана вещественная матрица размером n x m, в которой не все элементыравны нулю. Получить новую матрицу путем деления всех элементов данной матрицы
на ее наибольший по модулю элемент.
|
|
|
|
Найти наименьший по модулю элемент массива для которых 1<X<2
и прилагается таблица
Х -0.1; 0.05; 0.7; 0.8; -1.5; 0.2; 0.4; -1; 0.1; 1.5;
у 0.1; 0.3; -0.9; 0.2; -0.4; 0.01; 1; 0.25 -0.1 -0.3;
помогите плиииз))
|
|
|
|
помогите!!!!
Задача №1. Имеется садовый участок, имеющийформу прямоугольника со сторонами А метров и В
метров. Составьте алгоритм и программу, которая
определит сколько досок надо купить, чтобы
поставить сплошной забор. Ширина одной доски 10
см.Задача №2. В магазине продается костюмнаяткань. Ее цена В руб. за квадратный метр.
Составьте алгоритм и программу, которая
подсчитает и выведет на экран стоимость куска
этой ткани длиной Х метров и шириной 80 см.Задача №3. Хозяин хочет оклеить обоямидлинную стену в своем доме. Длина этой стены
равна А метров, а высота - В метров. Рулон обоев
имеет длину 12 метров и ширину K см. Составьте
алгоритм и программу, которая определит
стоимость обоев для всей стены, если цена одного
рулона К руб.
|
|
|
|
Помогите пожалуйста!!!
упорядочить числа больше 50 в порядке возрастания
Vik
|
|
|
|
какие входные данные?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Пожалуйста помогите!!!
С генерируйте массив от 0 до 100, вывести на экран:
1) Упорядочить элементы стоящие на местах делящихся на 3в порядке возрастания;
2) Упорядочить элементы больше 50 в порядке убывания;
3) Упорядочить элементы нечётные в порядке убывания;
4) Упорядочить массив в порядке возрастания, если сведения арифметически больше 50, в противном случае в порядке убывания;
5) Упорядочить элементы стоящие на чётных местах в порядке возрастания, а не на нечётных в порядке убывания.
Vik
|
|
|
|
рандомом забивать, что-ли?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
А пункты это разные программы или всё в одной должно быть?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
|
Пиши В контакт
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите с заданием, пожалуйста, буду очень признателен.
Для задания нужно написать программу для паскаля, используя циклы.
Задание следующее:
Даны результаты N измерений, вычислить среднее арифметическое и геометрическое.
Для определения плотности популяций проводили отлов и замеры косуль (вес) в трех зонах: А - площадь 15 га, В - площадь 23 га,
С - площадь 9 га. Было обнаружено N1,N2,N3 - особей и
зафиксированы их веса. Определить средний вес в каждой группе,
средний вес для всего отлова в целом и плотности популяций в зонах А,В,С.
|
|
|
|
|
Требуется разработать программу определения отрицательных элементов в строках матрицы A(6,6),где после возведения в квадрат они будут располагаться в таблице TAB под матрицей. Использовать процедуру,процедуру с параметром,функцию,функцию с параметром.
|
|
|
|
помогите решить, срочно!!!
Имеется массив А из N произвольных чисел (А(N) – одномерный массив), среди которых есть положительные, отрицательные и равные нулю. Используя оператор цикла, составить программу, выполняющую задачу в соответствии с вариантом. Оформить протокол работы программы.
- Вычислить количество положительных и нулевых и сумму отрицательных.
|
|
|
|
var
i,n,number,amount0,amount,sum:integer;
begin
read(n);
for i:=1 to n do begin
read(number);
if number = 0 then amount0:=amount0 + 1;
if number > 0 then amount:=amount + 1
else sum:=sum+number;end;
writeln(amount0,' ',amount,' ',sum);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите пожалуйста найти что не так
Используя объявлены типа:
type t1 = (золото, медь, серебро, нефть, железо, ртуть, свинец, марганец, уголь, газ) построить пять множеств, состоящих из различных комбинаций этого списка. Вывести на экран названия объектов, которые есть во всех множествах одновременно. Определить, каких объектов нет ни в одной множестве. Выполнить дополнительно задачи своего варианта, а именно определить, какие объекты: входящие во вторую и третью множества.
uses crt
type t1=(zl,md,sr,nf,gl,rt,sv,mr,ug,gz);
mnz=set of t1;
const n=5;
k=10;
sp:array[0..k-1] of string=('золото','медь','серебро','нефть','железо',
'ртуть','свинец','марганец','уголь','газ');
var m:array[1..n] of mnz;
m1:mnz;
i:t1;
j,v:byte;
begin
writeln('Перечислите в каком из ',n,' множеств какие ископаемые)');
for j:=1 to n do
begin
writeln('Множество ',j);
m:=[];
writeln('Выберите ископаемые');
writeln('0-золото 1-медь 2-серебро 3-нефть 4-железо 5-ртуть 6-свинец');
writeln('7-марганец 8-уголь 9-газ 10-выход');
repeat
readln(v);
if v in [0..k-1] then m:=m+[t1(v)];
until v=10;
end;
writeln('Полный список ископаемых:');
for i:=zl to gz do
write(sp[ord(i)]:10);
writeln;
writeln;
writeln('Список ископаемых во множествах:');
for j:=1 to n do
begin
write(j:2,' - ');
for i:=zl to gz do
if i in m then write(sp[ord(i)],' ');
writeln;
end;
writeln('Ископаемые, которые есть в каждом множестве:');
m1:=m[1];
for j:=1 to n do
m1:=m1*m;
if m1=[] then writeln('Таких ископаемых нет')
else
for i:=zl to gz do
if i in m1 then write(sp[ord(i)],' ');
writeln;
writeln('Ископаемые, которых нет ни в одном множестве:');
m1:=[zl,md,sr,nf,gl,rt,sv,mr,ug,gz];
for j:=1 to n do
m1:=m1-m ;
if m1=[] then writeln('Таких ископаемых нет')
else
for i:=zl to gz do
if i in m1 then write(sp[ord(i)],' ');
writeln;
writeln('Ископаемые, которые есть в 2 и 3 множествах:');
j:=0;
for i:=zl to gz do
if (i in m[2])and(i in m[3]) then
begin
write(sp[ord(i)],' ');
j:=1;
end;
if j=0 then writeln('Таких ископаемых нет');
readln
end.
|
|
|
|
