Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Войти
 
Страницы: 1
RSS
Прога по паскалю, помогите написать.
 
Нужно написать прогу которая изменяет все ключевые слова Паскаля, изменяет их русскими эквивалентами, данные вводятся из одного файла в другой.
Прога нужна не мне а моему брату, которые как и я них.я не шарит в программировании т.к. у нас тут преподают дауны которые только что отучились или маразматики.
Кто чем может помогите. В инете подобные я искал, ничего не нашел., меня удивляет разве таких заданий больше никому не дают?.
Сорри админам, не знал куда определить тему, вот и выложил сюда.
Всем буду очень благодарен.
 
Есть поговорка: "Если ты дал человеку рыбу - накормил на один день, научил человека ловить рыбу - накормил на всю жизнь."
Может ему взять и выучить Паскаль? В жизни пригодится. Что то мне подсказывает, что его нежелание учить Паскаль никак не зависит от преподавателей.
Если коротко то результатом будет что-то типа

while not eof(file) do begin
 readln(file, str);
 changeall(str);
 writeln(file2, str);
end;
close(file);
close(file2);

осталось научиться открывать тесктовый файл, и менять в строке слово на слово.
 
2 ksiva:
Цитата
осталось научиться открывать тесктовый файл, и менять в строке слово на слово
А какой файл открывать надо? Где КЛЮЧЕВЫЕ СЛОВА Паскаля?
PS: Возможно, это я вопрос не понял!
 
ksiva,
просто так получилось что кроме профессии программиста ничего...проще и интересней не было, но это со временем надоело, и теперь приходится просто отсиживать пары. не всем дано выучить ту или иную науку - вот я например не шарю в ЯП и не могу играть на гитаре, зато в экономике мне уже завидуют многие.
спасибо и за это.
 
Привет всем! пожалуйста помогите!!! Визначити суму додатних значень функції та кількість відємних???? Помогите
 
Цитата
Владислав ??? пишет:
Визначити суму додатних значень функції та кількість відємних???? Помогите

А конкретное задание правильно сформулировать тяжело?

Если правильно понял то следующее пускай функция = x^3

Код
var
n,i,sum : integer
begin
n:=0;sum:=0;
for i:= -255 to 255 do 
if i*i*i > 0 then sum:=sum+(i*i*i)
else if i*i*i <0 then n:= n+1; //исключаем 0
writeln('Сума положительный значений = ',sum);
writeln('Количество отрицательных значений = ',n);
end.
 
Цитата
Визначити суму додатних значень функції та кількість відємних
Ниче не понял! Напиши подробно и правильно, а то это прям урывок из текста какой-то!
Страницы: 1
Читают тему