/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 589
от 01.03.2008, 11:05

Вопрос № 124.591

Здравствуйте! Помогите выполнить такое задание: Дан двумерный массив. Выполнить следующее преобразование - в каждой строке сменить знак максимального по модулю элемента на противоположный. С уважением, Saiks.

Отправлен: 24.02.2008, 11:38 Вопрос задал: Saiks (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Saiks! Программа в приложении. Удачи! Приложение: const N = 10; M = 5; var A : array[1..N,1..M] of integer; function FindMax(line:integer):integer; var i,max : integer; begin max := 1; for i := 2 to M do if abs(A[line,i]) > abs(A[line,max]) then max := i; FindMax := max; end; var i, j, max : integer; begin randomize; for i := 1 to N do begin for j := 1 to M do begin A[i,j] := random(20)-10; Write(A[i,j]:3); end; WriteLn; end; WriteLn; for i := 1 to N do begin max := findmax(i); A[i,max] := -A[i,max]; end; for i := 1 to N do begin for j := 1 to M do Write(A[i,j]:3); WriteLn; end; ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 24.02.2008, 12:12 Оценка за ответ: 5

Отвечает: Шемет Станіслав Васильович Здравствуйте, Saiks! Наконецто ее написал долго я с ней мучался, но все ж интересная задача была. Программа в приложении. Приложение: const X=5; Y=5; Var M:array[1..x,1..y]of integer; i,j:word; MaxX:word; begin Randomize; for i:=1 to x do for j:=1 to y do Begin m[i,j]:=random(25); m[i,j]:=m[i,j]-Random(27); (*если написать всместо етих 2 строк одну: m[i,j]:=random(25)-Random(30), то будет ошибка Runtime Error 215*) end; Maxx:=1; for i:=1 to y do For j:=1 to x do Begin if abs(m[MaxX,i])<m[j,i] then MaxX:=j; if j=x then begin m[maxx,i]:=-m[maxx,i]; maxx:=1; end; end; For i:=1 to y do for j:=1 to x do if j<>x then Write(M[j,i],#32) else Writeln(M[j,i]); Readln; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 3-ий класс) Ответ отправлен: 24.02.2008, 20:34 Оценка за ответ: 5

Отвечает: Попов Владимир Иванович Здравствуйте, Saiks! В данной задачке используются стандартные алгоритмы ввода двухмерного массива, поиска максимального по модулю элемента с фиксацией его индекса и вывода массива на экран. Для удобства реализован цикл запроса на повторный запуск. Исходник в приложении. Успехов. Приложение: program q124591; uses crt; const Nmax=10; var a:array[1..Nmax,1..Nmax] of integer; m,n,i,j,k,max:integer; ch:char; begin repeat clrscr; writeln; write(' Enter the dimention of your array ( m <space> n ) : '); readln(m,n); if (n>Nmax) or (n<=1) or (m>Nmax) or (m<=1) then begin writeln; writeln(' Input error : m & n must be > 1 and <= ',Nmax); writeln(' -------------------------------------------'); end else begin writeln; writeln(' Input your array"s elements :'); for i:=1 to m do begin writeln; for j:=1 to n do begin write(' a[',i,',',j,'] = '); read(a[i,j]); end; end; for i:=1 to m do begin max:=abs(a[i,1]); k:=1; for j:=2 to n do if max<abs(a[i,j]) then begin max:=abs(a[i,j]); k:=j; end; a[i,k]:=-a[i,k]; end; writeln; writeln(' The transforming matrix is : '); writeln(' ------------------------------'); for i:=1 to m do begin for j:=1 to n do write(' ',a[i,j]:5); writeln; end; end; writeln; write(' Again (y/n) ? - '); ch:=readkey; until ch='n'; end. --------- Physics forever !

Ответ отправил: Попов Владимир Иванович (статус: 2-ой класс) Ответ отправлен: 27.02.2008, 19:50 Оценка за ответ: 5

Вопрос № 124.592

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

Отправлен: 24.02.2008, 11:41 Вопрос задал: Saiks (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Saiks! Программа в приложении. Удачи! Приложение: var s : string; i, count : integer; begin WriteLn('Vvedite stroku:'); ReadLn(s); count := 0; for i := 1 to length(s) do if s[i] in ['0'..'9'] then inc(count); WriteLn('Cifr: ',count); ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 24.02.2008, 11:52 Оценка за ответ: 5

Отвечает: Шемет Станіслав Васильович Здравствуйте, Saiks! Вот вам программка. Кстати хороший вопрос 124591 вот на дним уже час парюсь Приложение: var S:string; Col:integer; i:byte; begin col:=0; Write('Write String: '); readln(s); for i:=1 to length(s) do if s[i] in ['0'..'9'] then inc(col); Writeln(col); Readln; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 3-ий класс) Ответ отправлен: 24.02.2008, 12:24 Оценка за ответ: 4

Отвечает: Попов Владимир Иванович Здравствуйте, Saiks! Для подсчёта количества цифр в введённом тексте необходимо определить длину рядка (общее количество символов) и в цикле с параметром по этой длине последовательно перебрать все символы с отсечкой цифр (символов в диапазоне от '0' до '9') с помощью оператора выбора case. Исходник в приложении. Цикл repeat-until используется для организации запроса на повторный запуск. Успехов. Приложение: program q124592; uses crt; var s:string; ch:char; i,k,L:byte; begin clrscr; repeat writeln; write(' Input your text row : '); readln(s); L:=length(s); k:=0; for i:=1 to L do begin ch:=s[i]; case ch of '0'..'9': k:=k+1; end; end; if k=0 then writeln(' There are not any figures in your text.') else writeln(' There are ',k,' figures in your text.'); writeln; write('Again ? (y/n) - '); ch:=readkey; writeln; until ch='n'; end. --------- Physics forever !

Ответ отправил: Попов Владимир Иванович (статус: 2-ой класс) Ответ отправлен: 29.02.2008, 11:08

Вопрос № 124.635

Помогите пожалуйста! Дано матрицу А размерности m x n. Получить новую матрицу R, в которой элементы побочной диагонали и последнего рядка переставлены местами, предварительно упорядочив элементы диагонали по убыванию.

Отправлен: 24.02.2008, 17:04 Вопрос задал: Щербаков Евгений Николаевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 8)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Щербаков Евгений Николаевич! Программа в приложении. Удачи! Приложение: const N = 5; var A, R : array[1..N,1..N] of integer; function findmax(k:integer):integer; var i, max : integer; begin max:= k; for i := k+1 to N do if R[N, i] > R[N, max] then max := i; findmax := max; end; procedure change(var a,b:integer); var t : integer; begin t := a; a := b; b := t; end; procedure sort; var i:integer; begin for i := 1 to N-1 do change(R[N, findmax(i)], R[N, i]); end; var i,j : integer; begin randomize; for i := 1 to N do begin for j := 1 to N do begin A[i,j] := random(20); Write(A[i,j]:3); end; WriteLn; end; WriteLn; for i := 1 to N do for j := 1 to N do R[i,j] := A[i,j]; for i := 2 to N do change(R[N-i+1,i], R[N,i]); sort; for i := 1 to N do begin for j := 1 to N do Write(R[i,j]:3); WriteLn; end; ReadLn; end.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 24.02.2008, 20:04

Вопрос № 124.657

помогите пожалуйста составить программы, заранее спасибо! 1. Составить программу, позволяющую из текста, введенного с клавиатуры, выбрать слова , начинающиеся на букву Я и из них сформировать новый текст. 2. Для произвольного целого числа Х определить, сколько цифр, составляющих число, находятся в диапазоне от 0 до 3. Если таких цифр больше 1, заменить эти числа на 7, из полученного числа вычесть 10. Вывести Х, полученное число и разность. 3. Записать в файл N-чисел, введенных с клавиатуры в порядке убывания. Считать из файла эти числа. Вставить число в эту последовательность, не нарушая упорядоченности.

Отправлен: 24.02.2008, 20:41 Вопрос задал: Дебелов Владимир Валентинович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шемет Станіслав Васильович Здравствуйте, Дебелов Владимир Валентинович! Вот вам 3 программы которые в приложении: Третью программу зделал не полностью так как не понял куда именно вставлять число(позиция) Приложение: Var S,Buf:string; I:byte; B:boolean; Control:byte; begin Readln(s); Buf:=''; Control:=0; if s[1]='Я' then b:=true else b:=false; for i:=1 to length(s) do Begin if (s[i]='Я')and(s[i-control]=#32)and(not b) then B:=true; if b and (s[i]<>#32) then buf:=buf+s[i] else Begin if Buf<>'' then Write(Buf,#32); b:=false; Buf:=''; end; if i>1 then Control:=1; end; if Buf<>'' then Write(Buf,#32); Rеadln; end. Var s:string; x,NewX:integer; i:Integer; One_Three:byte; Begin Readln(x); Str(x,s); One_Three:=0; For i:=1 to Length(s) do If s[i] in ['0'..'3'] then inc(One_Three); if One_Three>1 then For i:=1 to Length(s) do If s[i] in ['0'..'3'] then s[i]:='7'; Val(s,NewX,i); Writeln('X= ',x); Writeln('NewX= ',NewX); Writeln('X-NewX= ',X-NewX); Readln; end. const n=100; Type TFile_Array=array[1..n] of byte; Var I:integer; File_Array:Tfile_Array; F:file of TFile_Array; begin Assign(f,'D:File_N.TxT'); Rewrite(f); for i:=1 to n do Readln(File_Array[i]); Write(f,File_Array); Close(f); Reset(f); Read(f,File_Array); Close(f); end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 3-ий класс) Ответ отправлен: 24.02.2008, 22:28 Оценка за ответ: 5 Комментарий оценки: огромное спасибо я втексте 3 задачи упустил слово число и смысл вставить число в последовательность потерялся =) ну все равно огромное спасибо

Вопрос № 124.658

не знаю как решить задачу. сама задача: пользователь задаёт число в двоичной сс, компьютер переводит в десятичную. Помогите пожайлуста. В заранее благодарен.

Отправлен: 24.02.2008, 20:43 Вопрос задал: Konder77 (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Gh0stik Здравствуйте, Konder77! Вот пожалуйста код программы с комментариями: program Bin2Dec; var c2:string;     i,d,n:longint; begin   write('BIN=');read(c2);   d:=0; n:=length(c2);   for i:=1 to n do      d:=d+ord(c2[i]='1')*round(exp(ln(2)*(n-i))); {если текущий символ строки равен 1,                                                 то к результату прибавляем число вида "2n-i"}   write('DEC=',d); {выводим число в 10-чной системе счисления}   readln; end. Good Luck!!! --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Академик) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) WWW: http://gh0stik.rusfaq.ru/ ICQ: 289363162 ---- Ответ отправлен: 24.02.2008, 21:35 Оценка за ответ: 5

Отвечает: Шемет Станіслав Васильович Здравствуйте, Konder77! Вот как работает єта программа; 1)Вводим строку 2)Создаем цикл от 0 до длина строки минус один 3)При помощи этой функции (ord(s[Length(s)-len])-48) вычисляем значение каждого символа от самого правого до первого. 4)умножаем значение (шага 3) на значения двойки в степени позиция символа минус единица 5)в переменную Dec добавляем єто число полученное из( шага 4). 6)выводим результат на монитор. Эта программа может переводить и другие системы (от двоичной до Девяти-ичной) счисления в десятичную надо токо изменить содержимое массива PoWer, вобщето можно и выше Девяти-ичной системы счисления переводить в десятичную этой программой но для этого прийдеться добавить условные переходы. Приложение: const PoWer:array[0..20] of Longint=(1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384,32768,65536,131072,262144,524288,1048576); Var s:string[16]; Len:byte; DEc:longint; Begin Readln(s); DEc:=0; for len:=0 to length(s)-1 do dec:=(ord(s[Length(s)-len])-48)*Power[len]+dec; Writeln(dec); Readln; End. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 3-ий класс) Ответ отправлен: 24.02.2008, 21:35 Оценка за ответ: 5

Отвечает: Denisss Здравствуйте, Konder77! Мой пример основан на понимании того, что система хранит числа в двоичной форме. Перевод осуществляется в 3 этапа: 1. Смещаем результат (переменная d) влево на 1 бит (d shl 1) 2. Считываем очередной символ и сравниваем его с символом '0' (ord(b[i]) - zero). 3. Добавляем результат сравнения к результату с помощью побитовой операции ИЛИ (or). Функция ord в данном случае возвращает код символа. Т.к. символ '1' стоит сразу после символа '0' в таблице ASCII, то: ord('0') - ord('0') = 0; ord('1') - ord('0') = 1. Удачи! Приложение: program q124658; uses Crt; var b: String; n, i, zero: Byte; d: LongInt; noErr: Boolean; begin {Очистка экрана} ClrScr; {Ввод двоичного числа с проверкой на правильность ввода} repeat Write('bin: '); ReadLn(b); noErr:= True; n:= Length(b); for i:= 1 to n do noErr:= noErr and (b[i] in ['0', '1']); until (noErr); {Инициализация} d:= 0; zero:= ord('0'); {Перевод в 10-ную систему} for i:= 1 to n do d:= (d shl 1) or (ord(b[i]) - zero); {Выводим результат} WriteLn('dec = ', d); {Происим пользователя нажать любую клавишу} WriteLn; Write('Press any key...'); ReadLn; end. --------- Будь осторожен, когда молишься ради чего-то, потому что можешь это получить...

Ответ отправил: Denisss (статус: Профессионал) Россия, Москва ---- Ответ отправлен: 25.02.2008, 13:24

Вопрос № 124.678

Помогите плиз с одной прогой:Определить есть ли в двумерном массиве число 5.Если таких чисел несколько найти их количиство.

Отправлен: 24.02.2008, 23:22 Вопрос задал: Bandos (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Шемет Станіслав Васильович Здравствуйте, Bandos! Программа в приложении: Приложение: Const N=25; M=30; Var Matrix:array[1..n,1..m] of integer; i,j:integer; Col_5:word; begin Randomize; For i:=1 to n do For j:=1 to m do matrix[i,j]:=Random(255); For i:=1 to n do For j:=1 to m do if matrix[i,j]=5 then Inc(Col_5); Writeln('Количество чисел 5 ',Col_5); Readln; end. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 3-ий класс) Ответ отправлен: 24.02.2008, 23:42

Отвечает: lyalya Здравствуйте, Bandos! вот еще один вариант решения данной задачи program Project2; type mas=array [1..100,1..100] of integer; var a:mas; k,i,j,m,n:integer; begin k:=0; writeln('vvedite razmernost massiva'); readln(n,m); for i:=1 to n do {заполняем массив случайными числами} for j:=1 to m do a[i,j]:=random(100); writeln('massiv'); {выводим на экран наш массив} for i:=1 to n do begin for j:=1 to m do write (a[i,j]:4); writeln; end; for i:=1 to n do {проверяем наличие 5} for j:=1 to m do if a[i,j]=5 then k:=k+1; if k=0 then writeln('5 net') else writeln('kol-vo 5 =',k); readln; end.

Ответ отправила: lyalya (статус: 5-ый класс) Ответ отправлен: 24.02.2008, 23:50

Отвечает: Marked One Здравствуйте, Bandos! Код в приложении Если IsThereFive=True, то число 5 есть. Если IsThereFive=False, то числа 5 нет. countoffive=кол-ву пятёрок Приложение: var IArray: array [0..5,0..1] of Integer; i, j, countoffive:Integer; IsThereFive:boolean; Begin CountOfFive:=0; for i:=0 to 5 do for j:=0 to 1 do begin if IArray[i, j]=5 then begin IsThereFive:=True; CountOfFive:=CountOfFive+1; end else IsThereFive:=false; end; end.

Ответ отправил: Marked One (статус: 6-ой класс) Ответ отправлен: 25.02.2008, 20:35

Вопрос № 124.686

Привет всем помогите с прогой плиз заранее спасибо:Дана строка.Подсчитать количество символов в данной строке.

Отправлен: 25.02.2008, 00:07 Вопрос задал: Bandos (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Tribak Здравствуйте, Bandos! program www; var s:string; begin writeln('vvedite stroky:'); readln(s); writeln(length(s)); readln; end.

Ответ отправил: Tribak (статус: 8-ой класс) Ответ отправлен: 25.02.2008, 08:35

Отвечает: Шемет Станіслав Васильович Здравствуйте, Bandos! Вот вам программа: Var s:string; I:byte; Begin Readln(s); I:=Length(s); Writeln('количество символов в данной строке '); Readln; End. --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 3-ий класс) Ответ отправлен: 25.02.2008, 10:02

Отвечает: Delph Здравствуйте, Bandos! Вот альтернативный способ узнать длину строки - без использования функции Length(s). Однако имейте ввиду, что этот способ может не работать для языков, производных от Pascal, например - в Delphi. Приложение: Program Pr124686; Var s: String; Begin Write('Введите строку: '); ReadLn(s); WriteLn('Длина строки: ', Ord(s[0]), ' символов'); ReadLn; End. --------- Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.

Ответ отправил: Delph (статус: Студент) Ответ отправлен: 27.02.2008, 13:39 Оценка за ответ: 5

Вопрос № 124.719

Уважаемые эксперты! Помогите пожалуйста решить задания: 2.1. Составить программу, позволяющую заменить слово «зима» в произвольном тексте, введенном с клавиатуры, на слово «весна». 2.2. Для произвольного целого числа Х, введённого с клавиатуры, определить, содержит ли оно подряд две цифры 5. Если да, вычесть из каждой 2, полученное число уменьшить на 10. Вывести Х, полученное число и их разность 3. Написать программу с использованием переменных типа запись с полями, указанными в задании 5. Вывести информацию о указанной марке компьютера. 4. Записать в файл N- целых чисел, введенных с клавиатуры. Считать из файла эти числа. Найти сумму нечётных чисел. Вывести на экран результат. 5.1. Создать файл данных, каждая запись которого состоит из следующих полей: 1. Наименование компьютера 2. Страна-поставщик 3. Год выпуска 4. цена 5.2. Считать из файла информацию, указанную преподавателем, или предложить свою версию для считывания информации.

Отправлен: 25.02.2008, 10:04 Вопрос задал: Слотин Владимир Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шемет Станіслав Васильович Здравствуйте, Слотин Владимир Сергеевич! Вот вам все программы. Насчет второй программы: Она заменит все числа на 2 меньше тока в таких случаях: 1)5 больше или равно подряд 2, и уменьшаться токо те числа которые не меньше 2, так как если будет 1 а ее уменьшать на 2 до будет -1, а что в таком случаи делать вы не указали,а я не пророк. Приложение: VAr s,Buf:string; i:byte; begin Readln(s); s:=s+#32; for i:=1 to length(s) do Begin if s[i]<>#32 then buf:=buf+s[i] else Begin if (buf<>'') then begin if (buf='зима') then buf:='весна'; Write(buf,#32); buf:=''; end end; end; Readln; end. ------------------------------------------------------------------ var s:string[5]; count,i:integer; b:boolean; X,NewX:word; begin b:=false; Readln(x); Str(x,s); for i:=1 to length(s) do Begin count:=0; if s[i]='5' then for i:=1 to length(s) do if s[i]='5' then inc(count) ; if count>=2 then b:=true; end; if b then for i:=1 to length(s) do if s[i]>=#50 then s[i]:=chr(ord(s[i])-2); Val(s,Newx,i); DEc(Newx,10); Writeln('X= ',x); Writeln('NewX= ',newx); Writeln('X-Newx= ',X-Newx); REadln; end. ------------------------------------------------------------------ const n=25; Type Ttovar=record Name:string; Made:string; Year:word; Cost:word; end; Var Tovar:array[1..n] of Ttovar; f:text; s:string; i:word; begin Assign(f,'d:Tovar.txt'); Reset(f); i:=0; Writeln(''); Readln(s); Repeat inc(i); Readln(f,tovar[i].name); Readln(f,tovar[i].made); Readln(f,tovar[i].Year); Readln(f,tovar[i].Cost); if Tovar[i].Name=s then Begin Writeln; Writeln(tovar[i].name); Writeln(tovar[i].made); Writeln(tovar[i].Year); Writeln(tovar[i].Cost); end; until eof(F); close(f); Readln; end. ------------------------------------------------------------------ Var N:word; Summ,x:integer; f:text; Begin assign(f,'d:Number.txt'); summ:=0; Rewrite(f); Write('N= '); Readln(N); for n:=n downto 1 do begin Readln(x); Writeln(f,x); end; close(f); Reset(f); Repeat Readln(f,x); if (x and 1) = 1 then summ:=summ+x; until eof(f); Writeln('Summ: ',summ); Readln; end. ------------------------------------------------------------------ uses crt; Type Ttovar=record Name:string; Made:string; Year:word; Cost:word; end; var Tovar:Ttovar; f: text; ch:char; begin Assign(f,'d:Tovar.txt'); rewrite(f); Repeat Clrscr; Write('Наименование компьютера: '); Readln(tovar.name); Write('Страна-поставщик: '); Readln(tovar.made); Write('Год выпуска: '); Readln(tovar.Year); Write('цена: '); Readln(tovar.cost); writeln(f,tovar.Name); writeln(f,tovar.made); writeln(f,tovar.Year); writeln(f,tovar.Cost); Writeln('Exit Y/N'); Ch:=readkey; until (ch='y')or(ch='Y'); close(f); end. ------------------------------------------------------------------ users crt; Type Ttovar=record Name:string; Made:string; Year:word; Cost:word; end; var Tovar:Ttovar; f:text; ch:char; s:string; begin Write('File name: '); Readln(s); Assign(f,s); Reset(f); Repeat Clrscr; Readln(f,tovar.name); Readln(f,tovar.made); Readln(f,tovar.Year); Readln(f,tovar.cost); Write('Наименование компьютера: '); Writeln(Tovar.name); Write('Страна-поставщик: '); Writeln(tovar.made); Write('Год выпуска: '); Writeln(tovar.Year); Write('Count in buy: '); Writeln(Tovar.Cost); Writeln('Exit Y/N'); Ch:=readkey; until eof(f)or(ch='y')or(ch='Y'); close(f); end. ------------------------------------------------------------------ --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 3-ий класс) Ответ отправлен: 25.02.2008, 12:46

Вопрос № 124.720

Уважаемые эксперты,помогите решить задачи!?? 2.1. Составить программу, позволяющую в тексте, введенном с клавиатуры, расставить запятые между словами: Бейсик Фортран Паскаль Си. Вывести результат на экран 2.2 Ввести с клавиатуры текст, содержащей не более 50 символов, внутри которого должны быть цифры. Подсчитать количество цифр, входящих в данную строку. Переписать их в новую переменную. Вновь образованное число увеличить на 10. Вывести на экран исходную строку, количество цифр, входящих в данную строку, вновь образованное число, результат вычислений. 3. Написать программу с использованием переменных типа запись с полями(1 - Товар (наименование); 2 - Изготовитель; 3 - Кол-во на складе; 4 - Кол-во проданных). Вывести информацию о указанном в условии товаре. 4. Записать в файл N-чисел, введенных с клавиатуры в порядке возрастания. Считать из файла эти числа. Вставить число в эту последовательность, не нарушая упорядоченности. Вывести результат на экран. 5.1. Создать файл данных, каждая запись которого состоит из следующих полей: 1 - Товар (наименование); 2 - Изготовитель; 3 - Кол-во на складе; 4 - Кол-во проданных 5.2. Считать из файла информацию, указанную преподавателем, или предложить свою версию для считывания информации.

Отправлен: 25.02.2008, 10:06 Вопрос задал: Дудус Владимир Викторович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шемет Станіслав Васильович Здравствуйте, Дудус Владимир Викторович! Вот вам программы токо третью я не сделал так как не знаю какое условие вы имеете ввиду. В каком учебном заведении вы учитесь (Вуз,Техникум,школа..) и на кого и именно,какой курс. Приложение: const Slova:array[1..4] of string[7] = ('Бейсик','Фортран','Паскаль','Си'); Var s:string; Buf:string[20]; I:byte; Function Chek_Slova(s1:string):boolean; var J:byte; Begin Chek_Slova:=false; for J:=1 to 4 do if Slova[j]=S1 then Chek_Slova:=True; end; begin Readln(s); s:=s+#32; for i:=1 to length(s) do if s[i]<>#32 then buf:=buf+s[i] Else Begin if buf<>'' then Begin if Chek_Slova(buf) then Write(buf,',') else Write(buf); end; Buf:=''; Write(s[i]); end; Readln; end. ----------------------------------------------------------------- var s:string[50] ; buf:string[50]; Count_Number:byte; i:integer; X:longint; Procedure String_Word; Begin Buf:=''; count_number:=0; for i:=1 to length(s) do if s[i] in ['0'..'9'] then begin buf:=buf+s[i]; inc(count_Number); end; Val(Buf,x,i); end; Begin Readln(s); String_word; Writeln; Writeln(s); Writeln(count_number); Writeln('x= ',x+10); Readln; end. ----------------------------------------------------------------- const n=4; var m:array[1..n+1] of integer; i:word; F:text; Procedure sort(count:word); var b:boolean; buf:integer; begin Repeat b:=true; for i:=1 to count-1 do if m[i]>m[i+1] then begin buf:=m[i]; m[i]:=m[i+1]; m[i+1]:=buf; b:=false; end; until b; end; begin assign(f,'D: umber.txt'); Rewrite(f); for i:=1 to n do Readln(m[i]); sort(n); for i:=1 to n do Write(f,m[i],#32); close(f); Writeln('N write in file'); Readln(m[n+1]); sort(n+1); for i:=1 to n+1 do Write(m[i],#32); Readln; end. ----------------------------------------------------------------- uses crt; Type Ttovar=record Name:string[175]; Made:string[50]; CountSklad:word; CountBuy:word; end; var Tovar:Ttovar; f: text; ch:char; begin Assign(f,'d:Tovar.txt'); rewrite(f); Repeat Clrscr; Write('Name tovar: '); Readln(tovar.name); Write('Made: '); Readln(tovar.made); Write('Count in sklad: '); Readln(tovar.countsklad); Write('Count in buy: '); Readln(tovar.countbuy); writeln(f,tovar.Name); writeln(f,tovar.made); writeln(f,tovar.countsklad); writeln(f,tovar.CountBuy); Writeln('Exit Y/N'); Ch:=readkey; until (ch='y')or(ch='Y'); close(f); end. ----------------------------------------------------------------- uses crt; Type Ttovar=record Name:string; Made:string; CountSklad:word; CountBuy:word; end; var Tovar:Ttovar; f:text; ch:char; s:string; begin Write('File name: '); Readln(s); Assign(f,s); Reset(f); Repeat Clrscr; Readln(f,tovar.name); Readln(f,tovar.made); Readln(f,tovar.countsklad); Readln(f,tovar.countbuy); Write('Name tovar: '); Writeln(Tovar.name); Write('Made: '); Writeln(tovar.made); Write('Count in sklad: '); Writeln(tovar.countsklad); Write('Count in buy: '); Writeln(Tovar.countBuy); Writeln('Exit Y/N'); Ch:=readkey; until eof(f)or(ch='y')or(ch='Y'); close(f); end. ------------------------------------------------------------------ --------- Любовь это прекрасно!!!

Ответ отправил: Шемет Станіслав Васильович (статус: 3-ий класс) Ответ отправлен: 25.02.2008, 12:00

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.71 от 27.02.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru