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

Выпуск № 596
от 08.03.2008, 14:35

Вопрос № 125.675

Здравствуйте. Вот тут мне дано выражение Not(x < 10). Эквивалентное ему какое будет? x > 10 или x >= 10? и ещё. Вот задачка. Постройте логическое выражение, содержащие единственную переменную n, которое принимает истинное значение в том и только в том случае, если год с номером n невисокосный. В решении запрещается использовать логическую операцию not. вторая программа в приложении. Проверьте, пожалуйста. Приложение: Var n: Boolean; n1: Integer; Begin n := FALSE; Write('Введите номер года: '); Read(n1); If ((n1 Mod 400 = 0) Or ((n1 Mod 100 <> 0) And (n1 Mod 4 = 0))) Then Begin WriteLn(n); End Else Begin n := TRUE; WriteLn(n); End; End.

Отправлен: 02.03.2008, 15:29 Вопрос задал: Хощенко Артём Владимирович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Хощенко Артём Владимирович! 1) Условие "не"( Х "меньше" 10), т.е. "больше или равно"; 2) Более простой вариант в приложении. Удачи! Приложение: var n:boolean; n1:integer; begin write('Enter :'); readln(n1); n:=(n1 mod 4)>0; write(n); readln; end. --------- И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 03.03.2008, 11:04 Оценка за ответ: 5 Комментарий оценки: спасбио, работает!

Вопрос № 125.680

Уважаемые эксперты! Помогите, пожалуйста, решить 3 задачи: 1. Дан двумерный массив. Сформировать одномерный, каждый элемент которого берётся из соответствующей строки 1го массива по правилу: 1е встреченное число, оканчивающееся нулём, если таких нет – элемент одномерного массива равен нулю. 2. Определить, есть ли нуль среди диагональных элементов квадратного массива n*m. 3. Дан квадратный массив n*m. Сформировать одномерный массив из диагональных элементов двумерного массива. Заранее огромное спасибо. Swallow.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Ласточка! Решения всех трех задач в приложении. Приложение: Задача №1. program q125680_1; uses crt; var n,m,i,j:integer; a:array[1..50,1..50]of integer; b:array[1..50]of integer; begin clrscr; write('n=');readln(n); write('m=');readln(m); randomize; writeln('Ishodnaja matrica:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(30)+1; write(a[i,j]:4); end; writeln; end; readln; for i:=1 to n do for j:=1 to m do begin if a[i,j] mod 10=0 then begin b[i]:=a[i,j]; break; end else if a[i,n] mod 10<>0 then b[i]:=0; end; writeln('Zadanny massiv:'); for i:=1 to n do write(b[i],' '); readln end. Задача №2. program q125680_2; uses crt; var n,i,j:integer; a:array[1..50,1..50]of integer; begin clrscr; write('n=');readln(n); randomize; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(8); write(a[i,j]:3); end; writeln; end; readln; for i:=1 to n do for j:=1 to n do if ((i=j)or(j=n-i+1))and (a[i,j]=0) then begin writeln('Null v diagonalnyh elementah est'); readln; exit; end else if (i=n)and(j=n) then writeln('Nulej net!'); readln end. Задача №3. program q125680_3; uses crt; var n,i,j,k:integer; a:array[1..50,1..50]of integer; b:array[1..100]of integer; begin clrscr; write('n=');readln(n); randomize; Writeln('Ishodnaja matrica:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(10); write(a[i,j]:3); end; writeln; end; readln; k:=0; for i:=1 to n do for j:=1 to n do if (i=j)or(j=n-i+1)then begin k:=k+1; b[k]:=a[i,j]; end; writeln('Massiv diagonalnyh elementov:'); for i:=1 to k do write(b[i],' '); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: 3-ий класс) Ответ отправлен: 02.03.2008, 18:44 Оценка за ответ: 5 Комментарий оценки: Огромное вам спасибо за решения, Пупорев Юрий Борисович! Ещё не проверяла, но думаю должно работать. Вы мне очень помогли!

Вопрос № 125.683

Уважаемые эксперты.. Нужна ваша помощь. задача на массивы 1. Дана целочисленная матрица размера M x N. Найти количество ее строк1|столбцов2, все элементы которых различны.

Отправлен: 02.03.2008, 16:48 Вопрос задал: Брель В.А (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Брель В.А! Решение задачи в приложении. Код протестирован, все работает. Приложение: program q125683; uses crt; var m,n,i,j,k,kstr,kstb,p:integer; a:array[1..50,1..50]of integer; begin clrscr; write('m=');readln(m); write('n=');readln(n); randomize; Writeln('Ishodnaja matrica:'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(10); write(a[i,j]:3); end; writeln; end; readln; kstr:=0; //ищем строки с разными элементами for i:=1 to m do begin p:=0; for j:=1 to n do for k:=1 to n do if (j<>k)and(a[i,j]=a[i,k])then begin p:=p+1; end; if p=0 then kstr:=kstr+1;//считаеи их end; writeln('kstr=',kstr); readln; kstb:=0; for j:=1 to n do //ищем столбцы с разными элементами begin p:=0; for i:=1 to m do for k:=1 to m do if (i<>k)and(a[i,j]=a[k,j])then begin p:=p+1; end; if p=0 then kstb:=kstb+1; //считаем их end; writeln('kstb=',kstb); readln; end.

Ответ отправил: Пупорев Юрий Борисович (статус: 3-ий класс) Ответ отправлен: 03.03.2008, 09:48

Отвечает: Delph Здравствуйте, Брель В.А! Вот ещё вариант (в приложении). Отличие от предыдущего незначительно, но программа оформлена немного иначе. Приложение: Program Pr125683; Uses CRT; Const M = 12; N = 16; Var Matrix: Array[1..M, 1..N] of Integer; i, j, k, Count: Integer; Bool: Boolean; Begin Randomize; ClrScr; { Заполняем и отображаем матрицу } WriteLn('Состав матрицы:'); for i := 1 to M do begin for j := 1 to N do begin Matrix[i, j] := Random(100); Write(Matrix[i, j]: 4); end; WriteLn; end; WriteLn; {Считаем строки, где все числа разные} Count := 0; Write('Совпадение элементов в строках: '); for i := 1 to M do begin Bool := True; for j := 1 to N do for k := 1 to N do if j <> k then Bool := (Bool and (Matrix[i, j] <> Matrix[i, k])); if Bool then inc(Count) else Write(i, '; '); end; WriteLn; WriteLn('В ', Count, ' строках все элементы различны.'); {Считаем столбцы, где все числа разные} Count := 0; Write('Совпадение элементов в столбцах: '); for i := 1 to N do begin Bool := True; for j := 1 to M do for k := 1 to M do if j <> k then Bool := (Bool and (Matrix[j, i] <> Matrix[k, i])); if Bool then inc(Count) else Write(i, '; '); end; WriteLn; WriteLn('В ', Count, ' столбцах все элементы различны.'); {Ждём нажатия <Enter> для завершения программы} ReadLn; End. --------- Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.

Ответ отправил: Delph (статус: Студент) Ответ отправлен: 03.03.2008, 10:51

Вопрос № 125.766

1. Вычислить значение функции, исходные данные ввести с клавиатуры. Написать программу, в которой задача вычисления функции оформлена через: 1) FUNCTION; 2)PROCEDURE; + ; Обратиться к FUNCTION и PROCEDURE дважды для вычисления. Вывести результат на экран. 2.1. Составить программу, позволяющую из текста, введенного с клавиатуры, выбрать слова, начинающиеся на букву Я и из них сформировать новый текст. Вывести результат на экран. 2.2. Для произвольного целого числа Х , введённого с клавиатуры, определить, сколько цифр, составляющих число, находятся в диапазоне от 0 до 3. Если таких цифр больше 1, заменить эти числа на 7, из полученного числа вычесть 10. Вывести Х, полученное число и разность. 3. Написать программу с использованием переменных типа запись с полями, указанными в задании 5. Вывести информацию о методичках, изданных в 2007году. 4. Записать в файл N-чисел, введенных с клавиатуры в порядке убывания. Считать из файла эти числа. Вставить число в эту последовательность, не нарушая упорядоченности. Вывести результат на экран. 5.1 Создать файл данных, каждая запись которого состоит из следующих полей: Задание Поля записи методичка (название) автор колич. страниц год изд. 5.2. Считать из файла информацию, указанную преподавателем, или предложить свою версию для считывания информации. увожаемые эксперты, помогите решить задачи, буду очень признателен

Отправлен: 03.03.2008, 09:47 Вопрос задал: Марьянов Евгений Александрович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Марьянов Евгений Александрович! Программа 2.1 в приложении. Удачи! Приложение: function Trim(const S: string): string; var I, L: Integer; res : string; begin L := Length(S); I := 1; while (I <= L) and (S[I] <= ' ') do Inc(I); if I > L then res := '' else begin while S[L] <= ' ' do Dec(L); Res := Copy(S, I, L - I + 1); end; Trim := res; end; Function CountWords(s : String) : Integer; var res : integer; begin {delete double spaces} s := Trim(s); While pos(' ', s) > 0 do delete(s, pos(' ',s), 1); res := 0; s := Trim(s); While pos(' ',s)>0 do begin s := copy(s, pos(' ',s)+1, Length(s) - pos(' ', s)); s := Trim(s); inc(res) end; CountWords := res+1; End; Function GetWord(s : String; i : Integer) : String; var s1 : string; k : integer; begin s1 := s; For k := 1 To i - 1 do s1 := trim(copy(s1, pos(' ',s1)+1, Length(s1) - pos(' ', s1)+1)); If pos(' ', s1) > 0 Then GetWord := copy(s1, 1, pos(' ',s1) - 1) Else GetWord := Trim(s1); End; const symbols = ',:;.!?'; { znaki prepinaniya } var s, word, s1 : string; i, c : integer; begin WriteLn('Vvedite stroku:'); ReadLn(s); WriteLn; if trim(s) <> '' then begin { change all symbols to spaces } for i := 1 to length(s) do if (pos(copy(s,i,1),symbols)>0) then begin insert(' ',s,i); delete(s,i+1,1); end; {delete double spaces} s := Trim(s); While pos(' ', s) > 0 do delete(s, pos(' ',s), 1); c := countwords(s); s1 := ''; for i := 1 to c do begin word := getword(s,i); if word[1] = 'я' then s1 := s1 +' '+ word; end; WriteLn(s1); end; ReadLn; end.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Марьянов Евгений Александрович! Решение задач №1,2.1,2.2,и 4 с комментариями в Приложении. Приложение: Задача №1. Поскольку функция и исходные данные не указаны, привожу решение задачи с подобным условием, переделай под свою формулу, а то вас будет двое в группе с одинаковыми задачами. program q125766_1; uses crt; function W(x,y,r,z,a:real):real; begin W:=sqrt(x+y)/(ln(r)/ln(z))+cos(a); end; procedure WW(x,y,r,z,a:real;var Q:real); begin Q:=sqrt(x+y)/(ln(r)/ln(z))+cos(a); end; var x,y,r,z,a,S:real; label 1,2,3,4; begin clrscr; 1:write('x=');readln(x); write('y=');readln(y); if x+y<0 then begin writeln('Vvedite drugie x,y'); goto 1; end; 2:write('r=');readln(r); if r<=0 then begin writeln('Vvedite r>0'); goto 2; end; 3:write('z=');readln(z); if (z<=0)or(z=1) then begin writeln('Vvedite z>0, z<>1'); goto 3; end; write('a=');readln(a); Writeln('Rezultat=',W(x,y,r,z,a):4:3); WW(x,y,r,z,a,S); Writeln('Rezultat=',S:4:3); readln; end. Задача № 2.1. program q125766_21; uses crt; var s,s1:string; j:integer; begin clrscr; write('Text: ');readln(s); s1:=''; repeat j:=pos(' ',s); if s[1]='Я'then s1:=s1+copy(s,1,j)else s1:=s1; delete(s,1,j); until j=0; if s[1]='Я' then s1:=s1+s;//последнее слово writeln(s1); readln end. Задача № 2.2. Чтобы можно было использовать целые числа любой длины, применим строковый тип. program q125766_22; uses crt; var X,X1,X2:string; i,k:integer; begin clrscr; write('X=');readln(X); k:=0; for i:=1 to length(X)do begin if X[i] in ['0'..'3'] then inc(k); end; X1:=X; if k<=1 then begin writeln('Cifr iz int [0..3]<=1'); readln; exit; end else if k>1 then for i:=1 to length(X)do if X1[i] in ['0'..'3'] then begin X1[i]:='7'; X2:=X1; if X2[length(X)-1]>'0' then X2[length(X)-1]:=pred(X2[length(X)-1]) else begin X2[length(X)-1]:='9'; X2[length(X)-2]:=pred(X2[length(X)-2]); end; end; writeln('Kol cifr v int[0..3]=',k); writeln('X1=',X1); writeln('X2=',X2); readln; end. Задача №4. program q125766_4; uses crt; var f:text; a:array[1..50]of integer; n,i,p,k:integer; begin clrscr; assign(f,'q774.txt');//создаем файл rewrite(f); //открываем его для записи write('n=');readln(n); writeln('Vvedite n chisel v poriadke ubyvania:'); for i:=1 to n do begin readln(a[i]); write(f,a[i],' ');//записываем данные в файл end; close(f); reset(f); //открываем файл для чтения clrscr; writeln('Chisla iz faila:'); i:=1; while not eof(f)do begin read(f,a[i]); //считываем числа из файла i:=i+1; end; for i:=1 to n do write(a[i],' '); //выводим их для контроля на экран readln; close(f); write('p=');readln(p); for i:=1 to n do if (p<=a[i])and(p>=a[i+1])then//вставляем число k:=i; for i:=n downto k+1 do a[i+1]:=a[i]; a[k+1]:=p; Writeln('Posledovatelnost so vstavkoj:'); for i:=1 to n+1 do write(a[i],' '); readln; end.

Ответ отправил: Пупорев Юрий Борисович (статус: 3-ий класс) Ответ отправлен: 03.03.2008, 15:35

Вопрос № 125.771

1)Вычислить значение функции, исходные данные ввести с клавиатуры. Написать программу, в которой задача вычисления функции оформлена через: 1)FUNCTION 2)PROCEDURE. W=(sqrt(x+y))/(ln(r)/ln(z))+cos a Обратиться к FUNCTION и PROCEDURE дважды для вычисления: Вывести результат на экран .

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, VanekP8 Поскольку в выражении присутствуют корень квадратный, логарифмы и вещественное деление, я предусмотрел контроль правильного ввода данных. Остальное легко понять. Решение во вложении. Приложение: program q125771; uses crt; function W(x,y,r,z,a:real):real; begin W:=sqrt(x+y)/(ln(r)/ln(z))+cos(a); end; procedure WW(x,y,r,z,a:real;var Q:real); begin Q:=sqrt(x+y)/(ln(r)/ln(z))+cos(a); end; var x,y,r,z,a,S:real; label 1,2,3,4; begin clrscr; 1:write('x=');readln(x); write('y=');readln(y); if x+y<0 then begin writeln('Vvedite drugie x,y'); goto 1; end; 2:write('r=');readln(r); if r<=0 then begin writeln('Vvedite r>0'); goto 2; end; 3:write('z=');readln(z); if (z<=0)or(z=1) then begin writeln('Vvedite z>0, z<>1'); goto 3; end; write('a=');readln(a); Writeln('Rezultat=',W(x,y,r,z,a):4:3); WW(x,y,r,z,a,S); Writeln('Rezultat=',S:4:3); readln; end.

Ответ отправил: Пупорев Юрий Борисович (статус: 3-ий класс) Ответ отправлен: 03.03.2008, 11:52

Вопрос № 125.772

2. Составить программу, позволяющую в текст, введенный с клавиатуры, вставить фрагмент “ студенты сдают ” перед словом ”экзамен”.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, VanekP89! В этой задаче нужно найти позицию слова экзамен и перед ним вставить нужную фразу, начинающуюся с пробела.Решение во вложении. Приложение: program q125772; uses crt; var s:string; i:integer; begin clrscr; write('s: ');readln(s); for i:=1 to length(s)do if i=pos('экзамен­',s)then insert(' студенты сдают',s,i-1); write(s); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: 3-ий класс) Ответ отправлен: 03.03.2008, 12:18

Вопрос № 125.773

3. Написать программу с использованием переменных типа запись с полями:город Мэр города Адрес мэрии Колич. жителей .Вывести информацию о Тольятти.

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

Отвечает: Костя Симанович Здравствуйте, VanekP89! В одном из предыдущих ответов я отвечал как создать файл с Вашими данными. Повторю в приложении. Теперь чтобы прочитать данные только по городу Тольятти достаточно в программе чтения ввести условие на совпадение названий городов. Это вторая программа, сперва спрашиваем по какому городу вывести данные, вводим название города и смотрим результат. Приложение: Создаём файл данных. procedure getdata; var c : integer; begin c := 0; with zapis do begin write('Введите название города (или 0 для завершения)'); readln(nameg); while nameg <> '0' do begin c := c + 1; write('Имя мэра. '); readln(mer); write('Адрес мэрии. '); readln(adres); write('Кол-во жителей. '); readln(kolwo); writerecord; write('Введите название города (или 0 для завершения)'); readln(nameg); end; end; end; begin assign(f, 'gorod.bin'); rewrite(f); getdata; close(f); writeln('Для продолжения нажмте ENTER..'); readln; end. Программа чтения файла по заданному городу. В Вашем случае ввести название горола Тольятти. program merchit; {программа читает файл} type gorod = record nameg : string[30]; //название города mer : string[50]; // фио мэра adres : string[100];// адрес kolwo : integer; // кол-во жителей end; empfilerec = File of gorod; var zapis : gorod; f :empfilerec; poisk : string[30]; // какой город ищем procedure getinfo(var f : empfilerec; g : string[30]); begin read(f, zapis); with zapis do begin if g = nameg then begin writeln('Город ', nameg); writeln('Мэр ', mer); writeln('Адрес мэрии ', adres); writeln('Кол-во жителей ', kolwo); end else writeln('Данныз по ', g, ' не найдено'); end; end; begin writeln(' Введите название города.'); readln(poisk); assign(f, 'gorod.bin'); reset(f); while not eof(f) do getinfo(f, poisk); close(f); writeln('Для продолжения нажмте ENTER..'); readln; end.

Ответ отправил: Костя Симанович (статус: 1-ый класс) Ответ отправлен: 04.03.2008, 21:19

Вопрос № 125.774

4. Записать в файл N-чисел, введенных с клавиатуры в порядке убывания. Считать из файла эти числа. Вставить число в эту последовательность, не нарушая упорядоченности.

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, VanekP89! Решение задачи в приложении. Приложение: program q125774; uses crt; var f:text; a:array[1..50]of integer; n,i,p,k:integer; begin clrscr; assign(f,'q774.txt');//создаем файл rewrite(f); //открываем его для записи write('n=');readln(n); writeln('Vvedite n chisel v poriadke ubyvania:'); for i:=1 to n do begin readln(a[i]); write(f,a[i],' ');//записываем данные в файл end; close(f); reset(f); //открываем файл для чтения clrscr; writeln('Chisla iz faila:'); i:=1; while not eof(f)do begin read(f,a[i]); //считываем числа из файла i:=i+1; end; for i:=1 to n do write(a[i],' '); //выводим их для контроля на экран readln; close(f); write('p=');readln(p); for i:=1 to n do if (p<=a[i])and(p>=a[i+1])then//вставляем число k:=i; for i:=n downto k+1 do a[i+1]:=a[i]; a[k+1]:=p; Writeln('Posledovatelnost so vstavkoj:'); for i:=1 to n+1 do write(a[i],' '); readln; end.

Ответ отправил: Пупорев Юрий Борисович (статус: 3-ий класс) Ответ отправлен: 03.03.2008, 12:39

Вопрос № 125.775

5.1 Создать файл данных, каждая запись которого состоит из следующих полей: Задание Поля записи город Мэр города Адрес мэрии Колич. жителей

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

Отвечает: Костя Симанович Здравствуйте, VanekP89! Возможно Вас устроит следующий вариан решения задачи. В приложении. p. s. Если что то не правильно понял пишите в форум. Приложение: program mer; type gorod = record nameg : string[30]; //название города mer : string[50]; // фио мэра adres : string[100];// адрес kolwo : integer; // кол-во жителей end; empfilerec = File of gorod; var f : empfilerec; zapis : gorod; procedure writerecord; begin {сохранение одной записи в файл} write(f, zapis); end; procedure getdata; var c : integer; begin c := 0; with zapis do begin write('Введите название города (или 0 для завершения)'); readln(nameg); while nameg <> '0' do begin c := c + 1; write('Имя мэра. '); readln(mer); write('Адрес мэрии. '); readln(adres); write('Кол-во жителей. '); readln(kolwo); writerecord; write('Введите название города (или 0 для завершения)'); readln(nameg); end; end; end; begin assign(f, 'gorod.bin'); rewrite(f); getdata; close(f); writeln('Для продолжения нажмте ENTER..'); readln; end. Чтение можно осуществить этой программой program merchit; {программа читает файл} type gorod = record nameg : string[30]; //название города mer : string[50]; // фио мэра adres : string[100];// адрес kolwo : integer; // кол-во жителей end; empfilerec = File of gorod; var zapis : gorod; f :empfilerec; procedure getinfo(var f : empfilerec); begin read(f, zapis); with zapis do begin writeln('Город ', nameg); writeln('Мэр ', mer); writeln('Адрес мэрии ', adres); writeln('Кол-во жителей ', kolwo); end; end; begin assign(f, 'gorod.bin'); reset(f); while not eof(f) do getinfo(f); close(f); writeln('Для продолжения нажмте ENTER..'); readln; end.

Ответ отправил: Костя Симанович (статус: 1-ый класс) Ответ отправлен: 03.03.2008, 20:49

Вопрос № 125.800

Подскажите,где можно скачать ТУРБО ПАСКАЛЬ?

Отправлен: 03.03.2008, 13:26 Вопрос задал: Brodjaga (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 31)

Отвечает: Лысенков Антон Анатольевич Здравствуйте, Brodjaga! Например здесь http://freesoft.ru/?id=670136 Или здесь А вообще очень много ссылок. Учитесь пользоваться поисковиками Исправлены длинные ссылки. ----- ∙ Отредактировал: sir henry (Академик) ∙ Дата редактирования: 03.03.2008, 15:02

Ответ отправил: Лысенков Антон Анатольевич (статус: 7-ой класс) Ответ отправлен: 03.03.2008, 13:35

Вопрос № 125.802

кто знает официальный сайт Borland International,Inc(сша)- фирма разработчик системы программирования турбо паскаль?

Отправлен: 03.03.2008, 13:32 Вопрос задал: Brodjaga (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Brodjaga! Сайт http://borland.com. Но сейчас всеми их продуктами занимается CodeGear (русский сайт) Удачи!

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

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